Report RTF

[Grinder]

Vorrei poter generare un file RTF per ogni record presente nel mio database utilizzando questo script:

<%
' lettura del contenuto dal template
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(Server.MapPath("template.rtf"), 1)
Documento = f.ReadAll
f.Close
Set f = Nothing
Set fso = Nothing

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

' estraggo tutti i dati
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_admin_STRING
rs.source = "SELECT * FROM campeggi"
rs.Open()

function posizione()
select case rs.Fields.Item("posizione")
case "2"
response.write "Montagna"
case "3"
response.write "Mare"
case "4"
response.write "Lago"
case "5"
response.write "Campagna"  
case "6"
response.write "Collina"
case "7"
response.write "Pianura"
end select
end function

do until rs.eof
  testo = testo & "Nome: " & rs.fields("nome") & acapo & 
"Stelle: " & rs.fields("stelle") & acapo & 
rs.fields("indirizzo") & " - " & rs.fields("cap") & ", " & 
rs.fields("citta") & " (" & rs.fields("id_provincia") & ") " & acapo & "Tipo di soggiorno: " 
& posizione() & acapo & "Sito internet: " & rs.fields("url") & acapo & "Indirizzo 
e-mail: " & rs.fields("email")
  rs.MoveNext
loop

for i = 0 to rs.eof
Documento = Replace(Documento, "[testo]", rs.fields("id"))
next

rs.Close
set rs = Nothing

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

Per me è un meccanismo nuovo, ho preso lo script su un sito e l'ho modificato...non c'erano molte spiegazioni....l'ho provato e non da errori, ma non mi crea nemmeno alcun file!

P.S.: vorrei che ogni file avesse per nome l'id del record e me li salvasse sul disco

[Roby_72]

Il template rtf l'hai usato?

Roby

[Grinder]

Si, ma non mi salva nessun file

[Grinder]

Ah no, adesso ho trovato il file! Però è sempre in asp e non scrive i dati che vorrei! Mi salva tutto in un unico file e senza la formattazione che gli ho chiesto!

[Grinder]

Adesso ho provato così:

<%
dim fso, f, rs, documento, testo, acapo

' lettura del contenuto dal template
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(Server.MapPath("template.rtf"), 1)
Documento = f.ReadAll

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

' estraggo tutti i dati
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_admin_STRING
rs.source = "SELECT * FROM campeggi"
rs.Open()

function posizione()
select case rs.Fields.Item("posizione")
case "2"
response.write "Montagna"
case "3"
response.write "Mare"
case "4"
response.write "Lago"
case "5"
response.write "Campagna"  
case "6"
response.write "Collina"
case "7"
response.write "Pianura"
end select
end function

do until rs.eof
  nome = acapo & "Nome: " & rs.fields("nome") & acapo
  stelle = "Stelle: " & rs.fields("stelle") & acapo
  indirizzo = rs.fields("indirizzo") & " - " & rs.fields("cap") & ", " & rs.fields("citta") & " (" & rs.fields("id_provincia") & ") " & acapo
  tipo_di_soggiorno = "Tipo di soggiorno: " & posizione() & acapo
  url = "Sito internet: " & rs.fields("url") & acapo
  mail = "Indirizzo e-mail: " & rs.fields("email")& acapo & acapo
  rs.MoveNext
loop

Documento = Replace(Documento, "[nome]", nome)
Documento = Replace(Documento, "[stelle]", stelle)
Documento = Replace(Documento, "[indirizzo]", indirizzo)
Documento = Replace(Documento, "[tipo_di_soggiorno]", tipo_di_soggiorno)
Documento = Replace(Documento, "[url]", url)
Documento = Replace(Documento, "[mail]", mail)

for i = 0 to ubound(rs.fields("id"))
Set f = fso.OpenTextFile(Server.MapPath(i&".rtf"), 2, True)
f.Write Documento
next
f.Close
Set f = Nothing
Set fso = Nothing
rs.Close
set rs = Nothing
%>