Ir para conteúdo
Fórum Script Brasil
  • 0

Global.asa

Leandro Rocha

Perguntado por Leandro Rocha,

 Share

Pergunta

Leandro Rocha

Leandro Rocha

Postado
Postado

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.

<!--#include file="../../inc/conn.asp"-->
<!--#include file="../../inc/data_invertida.asp"-->
<!--#include file="../../inc/data.asp"-->
<!--#include file="../../inc/destratamento.asp"-->
<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 = "leandro@arquivoteen.com.br"
SendMail.To = email1(n)'"leandro@arquivoteen.com.br"
'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><span class=texto>Não há festas para este final de semana!</span></center><br>"
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/'><img src='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&oacute;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>&nbsp;</td>"
corpo = corpo &             "<td width='209' align='left' background='http://www.arquivoteen.com.br/baladateen/css/fundo_degrade.jpg'>&nbsp;<a href=http://www.arquivoteen.com.br/baladateen/agenda/festa_detalhes.asp?idEvento="&rstNewsletter("idEvento")&" target=_blank> "&datacerta(rstNewsletter("data"))&"</a><br />"
corpo = corpo &  "&nbsp;<a href=http://www.arquivoteen.com.br/baladateen/agenda/festa_detalhes.asp?idEvento="&rstNewsletter("idEvento")&" target=_blank> "&rstNewsletter("festa")&"</a><br />"
 corpo = corpo &   "&nbsp;&nbsp;<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 &eacute; um email autom&aacute;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&atilde;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&atilde;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 "<span class=texto>Email '"&nome1(n)&"' enviado para <b>' "&email1(n)&" '</span></b><br>"
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 = "webmaster@do.site.com.br"
                    objMail.From = "script@automatico.com"
                    objMail.Subject = "Email do mês!"
                    objMail.Body = "Email enviado para o webmaster."
                    objMail.Send

                  End if

           End Sub
</SCRIPT>

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,1k
    • Posts
      651,8k
×
×
  • Criar Novo...