Selecionar dados após dois meses... automatico

[gamefe 0]

Pessoal, na newsletter tenho um campo com a data do cadastro da pessoa no site e se ele autorizou ou não o recebimento do e-mail.Gostaria que caso ele não tenha autorizado, que ele fosse avisado de semana em semana sobre a confirmação do e-mail dele.Como faço isso?É + ou - assim ? "SELECT * FROM newsletter where data_cadastro < datevalue('"&now()+7&"') and autorizado like 'N' "Está certo?Grato,Gabriel

[Mário Monteiro 179]

seria bom que voce armazenasse a data do ultimo avisoassim teria um melhor controle

[gamefe 0]

marioufpa, acabei criando o campo data_aviso, nele fica armazenado a data do último aviso... foi uma ótima idéia que não tinha pensado antes... agora estou tendo um problema.

No bd, tem cadastrado uns 7 e-mails, com 7 senhas diferentes... quando executo a página com o código abaixo, ele envia todos os e-mails com a mesma senha... e outra coisa, quando envio para um e-mail apenas ele não é marcado como spam. Agora enviando usando o código abaixo, o webmail está classificando como spam... como faço para corrigir isso também?

 

<%Response.Expires = 0Dim objConn, objRs, strQuery, strConnection, nome, email, senha, ceitelDim a, b, c, d, e'Conectando com o banco de dados contato.mdbSet objConn =  Server.CreateObject("ADODB.Connection")objConn.Open "DBQ=e:/home/ceitel1/dados/informativo2.mdb" & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"'Seleciona da tabela contatostrQuery = "SELECT * FROM newsletter where data_aviso < datevalue('"&now()+5&"') and autorizado like 'N' "Set ObjRs = objConn.Execute(strQuery)email = objRS("email")nome = objRS("nome")senha= objRS("senha")While Not objRS.EOF			 'cria o objeto para o envio de e-mailSet objCDOSYSMail = Server.CreateObject("CDO.Message")'cria o objeto para configuração do SMTPSet objCDOSYSCon = Server.CreateObject ("CDO.Configuration")'SMTPobjCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp2.locaweb.com.br"'porta do SMTPobjCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25'porta do CDOobjCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2objCDOSYSCon.Fields.update'atualiza a configuração do CDOSYS para o envio do e-mailSet objCDOSYSMail.Configuration = objCDOSYSCon'e-mail do remetenteobjCDOSYSMail.From = "newsletter@ceitel.com.br"'e-mail do destinatárioobjCDOSYSMail.To = objRS("email")'assunto da mensagemobjCDOSYSMail.Subject = "Autorização | Newsletter"'conteúdo da mensagemobjCDOSYSMail.HtmlBody = "<p><font face='Verdana' size=2>Teste "& senha &"</font></p>"'objCDOSYSMail.fields.update'envia o e-mailobjCDOSYSMail.Send'destrói os objetosSet objCDOSYSMail = NothingSet objCDOSYSCon = Nothingc = objRS("senha")Set a =  Server.CreateObject("ADODB.Connection")a.Open "DBQ=e:/home/ceitel1/dados/informativo2.mdb" & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"d = "UPDATE newsletter SET data_aviso = '" & Date() & "' WHERE senha = '" & c & "' "Set e = a.Execute(d)a.closeSet e = NothingSet a = Nothing   'Move para o próximo registro  objRS.MoveNext  Wend  'Fechando as conexões  objRs.close  objConn.close  Set objRs = Nothing  Set objConn = Nothingresponse.redirect "http://www.imasters.com.br"%>

Não está aparecendo nenhum erro... só não está enviando certinho com a senha individualizada... e ta sendo taxado como spam...

 

Aguardo qualquer ajuda..

Valeu!

[jrcardozo 4]

substituaobjCDOSYSMail.HtmlBody = "<p><font face='Verdana' size=2>Teste "& senha &"</font></p>"porobjCDOSYSMail.HtmlBody = "<p><font face='Verdana' size=2>Teste "&objRS("senha")&"</font></p>"

[cabral51 0]

Ae jonathan so pode ser irsso, poir ele atrbui a senha ao que vem do banco antes do loop

[jrcardozo 4]

com certeza, agora o lance do span eu não sei...provavelemente o servidor está reconhecendo como tal pois envia emails seguidos

[gamefe 0]

jonathandj, valeu! Era isso mesmo...Agora como que eu faço para não ser taxado de spam os e-mails que envio?Lembrando que se usar este mesmo código enviando para um só e-mail, ele não é taxado como spam, enviando para mais de um, ele se torna spam....Valeu...