Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
Leandro Rocha

Global.asa

Question

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 = "[email protected]"
SendMail.To = email1(n)'"[email protected]"
'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 = "[email protected]"
                    objMail.From = "[email protected]"
                    objMail.Subject = "Email do mês!"
                    objMail.Body = "Email enviado para o webmaster."
                    objMail.Send

                  End if

           End Sub
</SCRIPT>

Share this post


Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 0

e qual a duvida então???? modifique o global.asa a forma como queira se der erro poste oo erro e vemos o que pode ser feito...

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  



  • Forum Statistics

    • Total Topics
      148585
    • Total Posts
      644290
×
×
  • Create New...