Inserisco lo script, non so se servirà a qualcosa ma..ci provo:

Set fso = CreateObject("Scripting.FileSystemObject")

Set f1 = fso.OpenTextFile(Server.MapPath("doc\nomina_respon sabile_originale.txt"), 1, false, 0)

Documento = f1.ReadAll
response.Write(Documento)

f1.Close
Set f1 = Nothing

Documento = Replace(Documento, "<!nome!>", nome)
Documento = Replace(Documento, "<!indirizzo!>", indirizzo)
Documento = Replace(Documento, "<!citta!>", citta)
Documento = Replace(Documento, "<!prov!>", prov)
Documento = Replace(Documento, "<!societa!>", session("nomesocieta"))


Set f = fso.OpenTextFile(Server.MapPath("doc\lr"&session(" idutente")&""&IDresponsabile&".rtf"), 2, True, 0)

f.WriteLine Documento
f.Close
Set f = Nothing
Set fso = Nothing


Riuscite a trovare qualche errore?