Buenas tardes , disculpen q siga con este tema, pero necesito de ser posible ver como puedo generar la tarea programada desde windows para ejecutar el ASP.
les comento que mi codigo funciona a la perfeccion, pero claro, sino no conozco otra manera de hacerlo.
Código:
<%Option Explicit%>
<%
Dim dbConn
Dim RS
Dim SQL
Dim dias
Set dbConn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("adodb.recordset")
dbConn.Open "DRIVER={SQL Server};SERVER=localhost;UID=sa;PWD=xxxx;DATABASE=xxxxx"
SQL = "SELECT ListaSuscripcionMail.DPSKU, ListaSuscripcionMail.Pais, ListaSuscripcionMail.DpskuReemplazo, "&_
" ListaSuscripcionMail.IdListaSuscripcionMail, ListaSuscripcionMail.FechaVisible , "&_
" Suscripcion_mail.Pais, Suscripcion_mail.Mail, ListaSuscripcionMail.enviado "&_
"FROM ListaSuscripcionMail, Suscripcion_mail "&_
"WHERE (DATEDIFF(day, GETDATE(), FechaVisible) <= 0) "&_
"AND Enviado is NULL "&_
"AND Suscripcion_mail.Pais = ListaSuscripcionMail.Pais "&_
"AND Suscripcion_mail.Suscripto = 1"
RS.Open SQL, dbConn, 1, 3
Do while NOT RS.EOF
EnviarMail()
dbConn.Execute "UPDATE ListaSuscripcionMail SET Enviado = 1 WHERE IdListaSuscripcionMail = "&RS("IdListaSuscripcionMail")
RS.Movenext
Loop
function EnviarMail()
Dim EnvioMail
Set EnvioMail = CreateObject("CDO.Message")
EnvioMail.To = RS("mail")
EnvioMail.From = "[email protected]"
EnvioMail.Subject = "Un nuevo producto disponible en la Web"
EnvioMail.HTMLBody = "hola"
EnvioMail.AddAttachment "C:\Inetpub\wwwroot\prensa.htm"
EnvioMail.Send
Set EnvioMail = Nothing
end function
%>
espero me puedan orientar
Lo que necesito es que esta instruccion se ejecute todos los dias, muchas gracias por la idea que me puedan dar.
Atte. Gustavo
