Sto cercando di permettere alla mia pagina di creare un report su file RTF per ogni riga presente all'interno del database e che abbia per nome l'ID il suo id. Cos'è che sbaglio?
codice:
<%@LANGUAGE="VBSCRIPT"%>

<%
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
%>