Ho la necessità di creare dalla mia pagina asp un documento word e ho trovato un esempio(che riporto) e che ho adattato alla mia applicazione.



PROBLEMA: Quando eseguo, o meglio cerco di eseguire questo script, non ricevo nessuna risposta dal server come se fosse entrato in un loop infinito. Ho provato, pertanto, a frammentare lo script e ho notato che il problema è l'apertura del file (OpenTextFile)


Come posso risolvere questo problema?


<%@ Language=VBScript %>
<%
'Nome del modulo da utilizzare
'NomeReport= request("NomeReport")

'codice del movimento
'Movimento=request("Movimento")

percorso= "/webben/moduli/Modulo.rtf"
'Per leggere il documento utilizzo FSO
Set fso = CreateObject("Scripting.FileSystemObject")

'doc.rtf e' il documento di base che contiene i tag
'Set f = fso.OpenTextFile(Server.MapPath(NomeReport & ".rtf"), 1)
Set f = fso.OpenTextFile(Percorso, 1)

'Leggo tutto il contenuto del documento
Documento = f.ReadAll

'chiudo subito
f.Close
Set f = Nothing

'ora sostituisco i TAG con i campi contenuti nella form

'Nome = request("Nome")
'Cognome = request("Cognome")

Nome = "XXX"
Cognome = "YYY"

Documento = Replace(Documento, "[Nome]", Nome)
Documento = Replace(Documento, "[Cognome]", Cognome)

'creo un nuovo documento con Nome e Cognome reali al posto dei TAG
percorso= "/webben/Doc/Modulo.rtf"
Set f = fso.OpenTextFile(Percorso, 2, True)

'chiudo tutto
f.Write Documento
f.Close
Set f = Nothing
Set fso = Nothing
%>