Ciao,
ho una pagina asp che voglio sia eseguita periodicamente (diciamo 1 volta al giorno, tutti i giorni); so che devo metterla nelle operazioni pianificate, ma so anche che devo trasformare la pagina in un file vbs; dato che non ho accesso al server e devo chiedere di pianificare il file ai gestori del server, devo dare loro il file già pronto. Potreste aiutarmi a trasformare la pagina in uno script vbs? questa è la pagina:
<%
file = "http://www.sito.it/pagina.asp"
dbPath = Server.MapPath("\")
dim UpdatingMail
oggi = date()
oggetto_mail = "oggetto mail"
Set dbConn=Server.CreateObject("ADODB.Connection")
dbConn.ConnectionTimeout=60
dbConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & dbPath & "\file_del_database.mdb")
sql = "SELECT * FROM tabella_annunci ORDER BY data DESC,id_annuncio DESC"
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open sql,dbConn,1,3
Do While Not RS.EOF
scadenza = RS("scadenza")
diff = DateDiff("d", oggi, scadenza)
If diff = 7 Then
data_annuncio = RS("data")
id_annuncio = RS("id_annuncio")
password_annuncio = RS("password")
testo_mail = "testo della mail"
Set UpdatingMail = CreateObject("CDONTS.NewMail")
UpdatingMail.From = "webmaster@laser4000.it"
UpdatingMail.To = RS("email")
UpdatingMail.Subject = oggetto_mail
UpdatingMail.BodyFormat = 0
UpdatingMail.MailFormat = 0
UpdatingMail.Importance = 0
UpdatingMail.Body = testo_mail
UpdatingMail.Send
Set UpdatingMail = Nothing
RS("already_updated") = "No"
RS.Update
End If
RS.MoveNext
Loop
RS.Close
Set RS=Nothing
dbConn.Close
Set dbConn=Nothing
%>
Grazie 1000
ciao

Rispondi quotando