Vorrei poter generare un file RTF per ogni record presente nel mio database utilizzando questo script:
codice:
<%
' 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