RTF, cerca in unoscript@lgiorno, troverai uno script ASP ma il concetto è lo stesso ed i risultati sono ottimi.

Ho provato ad uttilizzare l'RFT come report, sono riuscito a impostare tutti i parametri con il replace, ma quando chiedo di visualizzarmelo mi chiede se voglio scaricare il file in doc sapete perchè?

Dim PathFile As String
Dim Sql As String
Dim Stringa As String
Dim fs As Object
Dim f As Object
Dim c As Integer
Dim Campo As String
Dim K As Integer
Dim Dati(58) As String
Dim Documento As String
Dim acapo, testo As String
' lettura del contenuto dal template


PathFile = Server.MapPath("prova.rtf")
fs = CreateObject("Scripting.FileSystemObject")
f = fs.OpenTextFile(PathFile, 1, 0)
Do While f.AtEndOfLine <> True
Documento = Documento & f.ReadAll

Loop

f.Close()

f = Nothing
fs = Nothing

' carattere di a capo in RTF
acapo = " \par " & vbCrLf

testo = testo & "caio" & " " & "caio" & acapo
testo = testo & "caio" & acapo
testo = testo & "caio" & " " & "caio" & " " & "caio" & acapo & acapo

' sostituzione file
Documento = Replace(Documento, "[testo]", testo)

' ContentType e risposta a video
Response.ContentType = "application/msword"
Response.Write(Documento)

il problema me lo da solo se uttilizzo l'istruzione
Response.ContentType = "application/msword"
ma se non lo faccio perde tutta la formatazione!

MA SE VOGLIO CREARMI UN UNICO FILE CON PIù PAGINE

ESEMPIO:


Do While not query.EOF

'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("protocollo/incarico_doc_interno.rtf"), 1, True)

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

'chiudo e distruggo subito
f.Close
Set f = Nothing

'ora sostituisco i TAG con il campo textarea contenuto nel form
Documento = Replace(Documento, "[data]", date())
Documento = Replace(Documento, "[protocollo]", numero_p)

Documento = Replace(Documento, "[titolo]", titoloC)
Documento = Replace(Documento, "[data_corso]", dataC)

if not query.EOF then
query.movenext
end if
Loop
query.close
set query = nothing

E ALLA FINE SALVO UN FILE CON CONTENUTO "Documento" MI Dà SOLO LìULTIMA PAGINA.

COME OVVIARE QUESTO PROBLEMA!!