Ciao a tutti. Non riesco a mandare a capo una stringa.
Sono dati presi da BD e messi in un file rtf:
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(Server.MapPath("template.rtf"), 1)
Docu = f.ReadAll
f.Close
Set f = Nothing
Set fso = Nothing
' carattere di a capo in RTF
acapo = VbCrLf
' stringa di conn .......
' apro la connessione....
do While Not rs.eof
Corpo = Corpo & rs("Nr") & ") " & rs("Campo1") & " " & rs("Campo2") & " " & rs("Campo3") & acapo
rs.MoveNext
loop
.......
Documento = Replace(Documento, "[Corpo]", Corpo)
' ContentType e risposta a video
Response.ContentType="application/msword"
Response.Write(Documento)
Lo script funziona ma mi scrive tutto di seguito senza andare a capo.
Dove sbaglio?
Grazie e buon lavoro

Rispondi quotando
