Perchè mi dice che la pagina non contiene dati? Dov'è che sbaglio?
codice:
<%
Server.ScriptTimeout = 10000000

dim fso, f, rs, documento, testo, acapo, totale

' 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
totale = rs.RecordCount
for x = 1 to ubound(totale)
  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
next
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)

Set f = fso.OpenTextFile(Server.MapPath(i&".rtf"), 2, True)
f.Write Documento
f.Close
Set f = Nothing
Set fso = Nothing
rs.Close
set rs = Nothing
%>