Ciao!

ho elaborato uno script per inserire il santo del giorno su un file txt. tutto sembra funzionare, solo che nel file txt viene scritto tutto, tranne il contenuto delle variabili... come devo fare?

Ecco il codice:

INIZIO CODICE
<%
Dim fsoMyFile
Dim tsTextStream
Dim IDSanto, nomesanto, giorno, mese, stringaDB, connessione, sql, RecSet

'============================================
Sub Santo(Giorno, Mese)
StringaDB = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("mdb-database/db1.mdb")
Set Connessione = Server.CreateObject("ADODB.Connection")
Connessione.Open StringaDB

SQL = "Select * From Santi where Giorno='"& giorno &"' and Mese='"&mese&"'"
Set RecSet = Connessione.Execute(SQL)

IF Not RecSet.Eof Then

Response.Write("" & RecSet("nomesanto") & "")

End IF

RecSet.Close
Set RecSet = Nothing
Connessione.Close
Set Connessione = Nothing

End Sub

'============================================


Set fsoMyFile = CreateObject("Scripting.FileSystemObject")

fsoMyFile.Deletefile Server.MapPath("/public/upload/santo.txt")

Set tsTextStream = fsoMyFile.OpenTextFile(Server.MapPath("/public/upload/santo.txt"), 8, True)

tsTextStream.Write ("document.write(""" & nomesanto & """)")

Call santo(Giorno, Mese)

Giorno = Day(Date())
Mese = Month(Date())

tsTextStream.Close
%>

FINE CODICE

sapete aiutarmi??

GRAZIE