Publicado em 27 de mar.

Executar query dentro do global.ASA

Galera, vi num outro forum que pe possível executar uma query no global.asa em tempos determinados e com isso por exemplo manda um email para o administrador de 30 em 30 dia. Gostaria de fazer isso de 7 em 7 dias gerando uma newsletter. Abaixo segue o código da newslewtter fincionando.

<link rel="stylesheet" href="../../css/style.css" type="text/css" media="screen" charset="utf-8" />
<%
Set rstEmail = conn.execute("Select * from tbl_newsletter")
if rstEmail.eof then
response.write ""
else
while not rstEmail.eof

email = Array(rstEmail("email"))
nome = Array(rstEmail("nome"))

For c = lbound(email) to ubound(email)

email_ok = email_ok & rstEmail("email")&","
nome_ok = nome_ok & rstEmail("nome")&","

rstEmail.moveNext
Next
Wend

email_ok = Mid(email_ok,1,Len(email_ok)-1)
nome_ok = Mid(nome_ok,1,Len(nome_ok)-1)

email1 = Split(email_ok,",",-1,1)
nome1 = Split(nome_ok,",",-1,1)

IF n = "" then
n = 0
End if

n = cInt(n)+cInt(1)

For n = lbound(email1) to ubound(email1)

Set SendMail = Server.CreateObject("CDONTS.Newmail")
SendMail.From = "[email="leandro@arquivoteen.com.br"]leandro@arquivoteen.com.br[/email]"
SendMail.To = email1(n)'"[email="leandro@arquivoteen.com.br"]leandro@arquivoteen.com.br[/email]"
'SendMail.Subject = "Olá você, confira as baladas do final de semana."
SendMail.Subject = "Olá "&nome1(n)&", confira as baladas do final de semana."
Set rstNewsletter = Server.CreateObject("adodb.recordset")

Datai = datainvertida(date())
Dataf = datainvertida(Dateadd("d",6,Datai))

Sql = "Select * From tbl_agenda where data between '" & Datai & "' and '" & Dataf & "' and condicao=1 order by data, festa"
rstNewsletter.Open Sql,conn
If rstNewsletter.eof then
response.write "<center>Não há festas para este final de semana!</center> "
else

corpo = corpo &"<html>"
corpo = corpo & "<style type='text/css'>"

corpo = corpo & ".style1 {font-size: 3em;color:#f5f5f5;font-weight:bold;}" corpo = corpo &"body {" corpo = corpo & "margin:1px;" corpo = corpo & "padding:0;" corpo = corpo & "border:0;" corpo = corpo & "background-color:#000000;" corpo = corpo & "}" corpo = corpo &".texto {" corpo = corpo & "font-family: Verdana, Arial, Helvetica, sans-serif;" corpo = corpo & "font-size:0.6em;" corpo = corpo & "color:#F5F5F5;" corpo = corpo &"}" corpo = corpo &"a {" corpo = corpo & "text-decoration:none;" corpo = corpo & "display:inline;" corpo = corpo & "color:#F5F5F5;" corpo = corpo & "font-family: Verdana, Arial, Helvetica, sans-serif;" corpo = corpo & "font-size:0.6em;" corpo = corpo &"}" corpo = corpo &"a:hover {" corpo = corpo & " /text-decoration:underline;/" corpo = corpo &"}" corpo = corpo & ".texto_negrito {" corpo = corpo & "font-family: Verdana, Arial, Helvetica, sans-serif;" corpo = corpo & "font-size:0.6em;" corpo = corpo & "font-weight:bold;" corpo = corpo & " color:#f5f5f5;" corpo = corpo & "}"

corpo = corpo & "</style>"
corpo = corpo &"<body>"
corpo = corpo & "<table width='520' border='1' align='center' cellpadding='0' cellspacing='0' bordercolor='#252525'>"
corpo = corpo & "<tr>"
corpo = corpo & "<td width='150' height='60' bgcolor='#252525'><a href='[http://www.arquivoteen.com.br/'>http://www.arquivoteen.com.br/baladateen/css/logo_newsletter.jpg' alt='ArquivoTeen.com.br' width='150' height='60' border='0' /></a></td>"
corpo = corpo & "<td width='364' align='center' bgcolor='#252525' class='style1'>NewsLetter</td>"
corpo = corpo & "</tr>"
corpo = corpo & "<tr>"
corpo = corpo & "<td height='60' colspan='2'><span class='texto'>Fique por dentro do que vai rolar neste próximo final de semana! Para saber mais acesse </span><a href=http://www.arquivoteen.com.br/ target=_self><b>www.arquivoteen.com.br</b></a><span class='texto'>.<br> Caso não consiga vizualizar este email </span><a href=http://www.arquivoteen.com.br/baladateen/newsletter.asp target=_blank><b>clique aqui</b> </a> <span class='texto'>e confira o que rola no final de semana.</span</td>"
corpo = corpo & "</tr>"
corpo = corpo & "<tr>"
corpo = corpo & " <td colspan='2' class='texto'>"
corpo = corpo & "<br /> "
corpo = corpo & "<table width='270' border='0' align='center' cellpadding='4' cellspacing='4'>"
corpo = corpo & "<tr>"

c = 2 ' numero de colunas
DO WHILE NOT rstNewsletter.EOF And Count < rstNewsletter.PageSize
i = i + 1
if p = "" then
p = 1
else
p = p
end if

corpo = corpo & "<td bgcolor='#252525' onmouseover='java script:this.style.backgroundColor='#333333'' onmouseout='java script:this.style.backgroundColor='''><table width='270' border='0' align='center' cellpadding='0' cellspacing='0'>"
corpo = corpo & "<tr>"
corpo = corpo & " <td width='56' height='67' align='center' valign='middle'><a href=http://www.arquivoteen.com.br/baladateen/agenda/festa_detalhes.asp?idEvento="&rstNewsletter("idEvento")&" target=_blank><img src="&rstNewsletter("img")&" width='56' height='56' border='0'/></a></td>"
 corpo = corpo & "<td> </td>"
corpo = corpo & "<td width='209' align='left' background='http://www.arquivoteen.com.br/baladateen/css/fundo_degrade.jpg'> <a href=http://www.arquivoteen.com.br/baladateen/agenda/festa_detalhes.asp?idEvento="&rstNewsletter("idEvento")&" target=_blank> "&datacerta(rstNewsletter("data"))&"</a><br />"
corpo = corpo & " <a href=http://www.arquivoteen.com.br/baladateen/agenda/festa_detalhes.asp?idEvento="&rstNewsletter("idEvento")&" target=_blank> "&rstNewsletter("festa")&"</a><br />"
 corpo = corpo & "  <a href=http://www.arquivoteen.com.br/baladateen/agenda/festa_detalhes.asp?idEvento="&rstNewsletter("idEvento")&" target=_blank>"&rstNewsletter("Local1")&"</a></td>"
 corpo = corpo & "</tr>"
 corpo = corpo & " </table></td>"

p = cint(p)+cint(1)
if i = c then

corpo = corpo & "</tr>"
corpo = corpo & "<tr>"

i = 0
end if
'Count = Count + 1
rstNewsletter.MoveNext
LOOP

corpo = corpo & "</tr>"
corpo = corpo & "</table><br /> </td>"
corpo = corpo & "</tr>"
corpo = corpo & "<tr>"
corpo = corpo & "<td height='30' colspan='2' bgcolor='#252525'><span class=texto> Este é um email automático, enviado aos cadastrados na newsletter do site</span> <a href=http://www.arquivoteen.com.br target=_blank><b>www.arquivoteen.com.br</b></a><span class=texto>. Caso não queira mais receber emails deste site, por favor acesse</span> <a href=http://www.arquivoteen.com.br target=_blank><b>www.arquivoteen.com.br</b></a><span class=texto> e retire seu email do nosso banco de dados. Por favor não responda este email.</span></td>"
corpo = corpo & "</tr>"
corpo = corpo & "</table>"

end if

corpo = corpo &"</body>"
corpo = corpo &"</html>"

SendMail.Body = corpo
SendMail.BodyFormat = 0
SendMail.MailFormat = 0
SendMail.Importance = 2
SendMail.Send
Set SendMail = nothing

Response.Write "Email '"&nome1(n)&"' enviado para ' "&email1(n)&" ' "
Next

end if

conn.close
Set rstNewsletter = nothing
Set conn = nothing
Set SendMail = Nothing

isso num arquivo ASP funciona normalmente..mais como faço pra usar esse código no global.asa e toda quarta feira ele executa o código mandando os email?????

abaixo segue o código que vi na NET falando da possibilidade:

<script LANGUAGE=VBScript RUNAT=Server>

 ' O aplicativo iniciou e foi definido a data de hoje à variável Application("Data" )
 ' A data de envio do email foi definida para 30 dias depois da data de hoje

 Sub Application_OnStart
 Application.Lock

 Application("Data") = Date
 Application("DataDeEnvio") = DateAdd("d", 30, Date)
 Application.Unlock
 End Sub

 'Agora a sessao do usuario vai inicializar
 ' Vamos agora fazer uma verificação para saber se hoje é o dia da data de envio do email

 Sub Session_OnStart

 ' Se a data de envio e a data de hoje conferir, o email será enviado ao webmaster
 ' Mas antes disso, a data de envio é modificada novamente para daqui a mais 30 dias.

	if Application("DataDeEnvio") = Date then

 Application.Lock
 Application("Data") = Date
 Application("DataDeEnvio") = DateAdd("d", 30, Date)
 Application.UnLock

 ' Código para enviar o email ao webmaster.

 Set objMail = Server.CreateObject("CDONTS.NewMail")
 objMail.To = "[email="webmaster@do.site.com.br"]webmaster@do.site.com.br[/email]"
 objMail.From = "[email="script@automatico.com"]script@automatico.com[/email]"
 objMail.Subject = "Email do mês!"
 objMail.Body = "Email enviado para o webmaster."
 objMail.Send

 End if

 End Sub
</SCRIPT>

Discussão (2)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

Carregando comentários...