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
Rispondi quotando