Il documento non contiene dati

[Grinder]

Perchè mi dice che la pagina non contiene dati? Dov'è che sbaglio?

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

[teorema55]

A primissima vista e al volo, mi sembra che tu abbia un ciclo di troppo, annidato nel ciclo giusto, in modo che si esauriscono tutti i records prima di stampare il primo........prova a togliere le righe

totale = rs.RecordCount
for x = 1 to ubound(totale)

e il corrispondente next, qualche riga dopo.........poi, per trasferire i dati nel "documento", bisognerà piazzare le istruzioni

rs.movenext
loop

all'altezza giusta.

Ma forse sto sparando fuori bersaglio, dopo cena lo rivediamo, ok?

[Grinder]

Ok, però così mi da un solo file RTF

[teorema55]

Scommetto che è l'ultimo.........

[Grinder]

Quello che vorrei è poter creare un file RTF per ogni record del database, avente per nome l'id (1.rtf, 2.rtf, 3.rtf, 567.rtf ecc..)

[teorema55]

Sempre a occhio:

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



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(x&".rtf"), 2, True)
f.Write Documento
f.Close
Set f = Nothing
Set fso = Nothing

next     'a questa altezza! 
rs.Close
set rs = Nothing

[teorema55]

Già trovata la c.xxxx.ata



bisognerà ogni volta riaprire il template, quindi portare le righe in cui lo apri all'interno del ciclo..........

... e io dovrò studiarmi il FSO