Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

shumi

Cdont´s - HTML e ASP

Por , em ASP Clássico

Recommended Posts

shumi    0

shumi
Postado

Galera,

 

Estou com um probleminha com o Cdont´s ontem fiz um script que verifica quem faz aniversário no dia ai o arquivo confere que ano que a pessoa nasceu e manda um arquivo diferente conforme o ano, mas ate ai beleza esta funcionando perfeitamente.

 

Meu problema é que eu quero reunir quem faz aniversário no dia e mandar um e-mail para o diretor da empresa falando quem são os aniversariantes e tal, mas to tentando fazer e só da erro...

 

Set msg = Server.CreateObject("CDONTS.NewMail") msg.From = "Empresa <email@email.com.br>" msg.To= "email@email.com.br"msg.Subject = "Parabéns!!!!!" msg.Bodyformat = 0msg.MailFormat = 0texto = "<html><head><meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1' /><title>PARABÉNS!!!!</title></head><body style='margin:0px;'><div align='center'><table border='0' cellpadding='0' cellspacing='0'><tr><td>Nome</td><td>Local</td><td>e-mail</td><td>Data de Nasc</td></tr><tr><td>rs(nome)</td><td>rs(local)</td><td>rs(email)</td><td>rs(data_niver)</td></tr></table></div></body></html>"msg.Body = textomsg.SendSet msg = Nothing

Como posso resolver essa linha?

 

texto = "<html><head><meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1' /><title>PARABÉNS!!!!</title></head><body style='margin:0px;'><div align='center'><table border='0' cellpadding='0' cellspacing='0'><tr><td>Nome</td><td>Local</td><td>e-mail</td><td>Data de Nasc</td></tr><tr><td>rs(nome)</td><td>rs(local)</td><td>rs(email)</td><td>rs(data_niver)</td></tr></table></div></body></html>"

 

Valeu!!!!!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

Desse jeito que postei envia, mas ele aparece assim no e-mailNome Local e-mail Data de Nasc rs(nome) rs(local) rs(email) rs(data_niver) Ele não me mostra quem faz niver... ele envia como se fosse o HTML mesmo

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelinho    0

marcelinho
Postado

tenta assimtexto = "<html><head><meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1' /><title>PARABÉNS!!!!</title></head><body style='margin:0px;'><div align='center'><table border='0' cellpadding='0' cellspacing='0'><tr><td>Nome</td><td>Local</td><td>e-mail</td><td>Data de Nasc</td></tr><tr><td>" & rs(nome) & "</td><td>" & rs(local) & "</td><td>" & rs(email) & "</td><td>" & rs(data_niver) & "</td></tr></table></div></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

smith    0

smith
Postado

tenta assimtexto = "<html><head><meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1' /><title>PARABÉNS!!!!</title></head><body style='margin:0px;'><div align='center'><table border='0' cellpadding='0' cellspacing='0'><tr><td>Nome</td><td>Local</td><td>e-mail</td><td>Data de Nasc</td></tr><tr><td>" & rs(nome) & "</td><td>" & rs(local) & "</td><td>" & rs(email) & "</td><td>" & rs(data_niver) & "</td></tr></table></div></body></html>

Acho q tem q botar o campo databela entre aspas: rs("local") ... não ???

Compartilhar este post

Link para o post
Compartilhar em outros sites

Davidmg    0

Davidmg
Postado

tenta assimtexto = "<html><head><meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1' /><title>PARABÉNS!!!!</title></head><body style='margin:0px;'><div align='center'><table border='0' cellpadding='0' cellspacing='0'><tr><td>Nome</td><td>Local</td><td>e-mail</td><td>Data de Nasc</td></tr><tr><td>" & rs(nome) & "</td><td>" & rs(local) & "</td><td>" & rs(email) & "</td><td>" & rs(data_niver) & "</td></tr></table></div></body></html>

issu issu.... http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelinho    0

marcelinho
Postado

Bem lembrado smith:so atualizando entao:texto = "<html><head><meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1' /><title>PARABÉNS!!!!</title></head><body style='margin:0px;'><div align='center'><table border='0' cellpadding='0' cellspacing='0'><tr><td>Nome</td><td>Local</td><td>e-mail</td><td>Data de Nasc</td></tr><tr><td>" & rs("nome") & "</td><td>" & rs("local") & "</td><td>" & rs("email") & "</td><td>" & rs("data_niver") & "</td></tr></table></div></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

Assim rolou, mas ao inves de juntar todos que fazem aniversario e mandar apenas 1 e-mail... eu tinha 3 pessoas que fazem aniversário hoje o sistema mandou 3 e-mail com os nomes separados... como faço pra juntar todos que fazem no mesmo dia e mandar apenas 1 email com todos juntos???

Compartilhar este post

Link para o post
Compartilhar em outros sites

Davidmg    0

Davidmg
Postado

Assim rolou, mas ao inves de juntar todos que fazem aniversario e mandar apenas 1 e-mail... eu tinha 3 pessoas que fazem aniversário hoje o sistema mandou 3 e-mail com os nomes separados... como faço pra juntar todos que fazem no mesmo dia e mandar apenas 1 email com todos juntos???

Provavelmente você está dando o loop no email....por isso enviou 3....você terá que dar o loop no TEXTO do email somente....assim ele montará o HTML com todos os aniversariantes do dia....

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelinho    0

marcelinho
Postado

texto = "<html><head><meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1' /><title>PARABÉNS!!!!</title></head><body style='margin:0px;'><div align='center'><table border='0' cellpadding='0' cellspacing='0'><tr><td>Nome</td><td>Local</td><td>e-mail</td><td>Data de Nasc</td></tr><tr>" &chr(13)WHILE rs.EOFtexto = texto & "<td>" & rs("nome") & "</td><td>" & rs("local") & "</td><td>" & rs("email") & "</td><td>" & rs("data_niver") & "</td>" &chr(13)rs.MoveNextWENDtexto = texto & "</tr></table></div></body></html>"isso mesmo que o davi dissee para dar o loop no texto eu puis ali...so que precisa testar!!!e na hora que for mandar email nem precisa de for ou while ou algo do tipo...é so mandar um normal que no texto vai os aniversariiantes

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

Repetiu do mesmo jeito....

 

vou postar meu script todo ok?

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%server.scriptTimeout = 3600dim ConexcaoDim msg Set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("banco.mdb"))sql= "Select * From cadastro Where Day(data_niver)="& day(now()) &" And Month(data_niver)="& Month(now()) &";" Set rs=Conexcao.Execute(sql)%><html><head><Title>Aniversáriantes do Dia</title><style type="text/css"><!--body {	background-color: #FFFFFF;	}	.texto10 {	font-family: Arial, Helvetica, sans-serif;	font-size: 10px;	color: #464646;		}		.texto11 {	font-family: Arial, Helvetica, sans-serif;	font-size: 13px;	color: #464646;	}	.texto12 {	font-family: Arial, Helvetica, sans-serif;	font-size: 9px;	color: #464646;	}	.texto15 {	font-family: Arial, Helvetica, sans-serif;	font-size: 12px;	color: #0000FF;		}		-->  </style>  </head><body><center><table border="1"><tr><td><span class="texto15">Nome</span></td><td><span class="texto15">Local</span></td><td><span class="texto15">e-mail</span></td><td><span class="texto15">Data de Nascimento</span></td></tr><%While not rs.EOFSet msg = Server.CreateObject("CDONTS.NewMail") 'msg.AttachURL Server.MapPath("capa_80.gif"),"capa_80.gif"msg.From = "NewStyle <newstyle@newstyle.com.br>" msg.To= "rodrigo@newstyle.com.br"msg.Subject = "Aniversáriantes do dia" msg.Bodyformat = 0msg.MailFormat = 0texto = "<html><head><meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1' /><title>PARABÉNS!!!!</title></head><body style='margin:0px;'><div align='center'><font style='font-family:Arial, Helvetica, sans-serif; font-size:11px; padding-top:5px; color:blue'>Aniversáriantes</font><br><br><table border='1' bordercolor='orange' cellpadding='0' cellspacing='0'><tr><td>Nome</td><td>Local</td><td>e-mail</td><td>Data de Nasc</td></tr><tr><td>" & rs("nome") & "</td><td>" & rs("local") & "</td><td>" & rs("email") & "</td><td>" & rs("data_niver") & "</td>" &chr(13)WHILE rs.EOFtexto = texto & "<td>" & rs("nome") & "</td><td>" & rs("local") & "</td><td>" & rs("email") & "</td><td>" & rs("data_niver") & "</td>" &chr(13)rs.MoveNextWENDtexto = texto & "</tr></table></div></body></html>"msg.Body = textomsg.SendSet msg = Nothing    Ano = Year(CDate(rs("data_niver")))If Ano > 1949 And Ano < 1960 Then'começo de envio de e-mailSet msg = Server.CreateObject("CDONTS.NewMail") msg.AttachURL Server.MapPath("capa_50.gif"),"capa_50.gif"msg.From = "NewStyle <newstyle@newstyle.com.br>" msg.To= rs("email")msg.Subject = "Parabéns!!!!!" msg.Bodyformat = 0msg.MailFormat = 0texto = "<html><head><meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1' /><title>PARABÉNS!!!!</title></head><body style='margin:0px;'><div align='center'><table border='0' cellpadding='0' cellspacing='0'><tr><td height='55' style='font-family:Arial, Helvetica, sans-serif; font-size:11px; padding-top:5px;'>Caso não esteja visualizando o e-mail abaixo  por favor <a style='color:#004BF4;' href='http://www.newstyle1.com/cartoes/50.html'>clique aqui</a></td></tr><tr><td align='center'><a href='http://www.newstyle1.com/cartoes/50.html'>'<img src='capa_50.gif'>'</a></td></tr></table></div></body></html>"msg.Body = textomsg.SendSet msg = Nothing 'FIM DE ENVIO DOS ANOS 50ElseIf Ano > 1959 And Ano < 1970 Then'começo de envio de e-mailSet msg = Server.CreateObject("CDONTS.NewMail") msg.AttachURL Server.MapPath("capa_60.gif"),"capa_60.gif"msg.From = "NewStyle <newstyle@newstyle.com.br>" msg.To= rs("email")msg.Subject = "Parabéns!!!!!" msg.Bodyformat = 0msg.MailFormat = 0texto = "<html><head><meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1' /><title>PARABÉNS!!!!</title></head><body style='margin:0px;'><div align='center'><table border='0' cellpadding='0' cellspacing='0'><tr><td height='55' style='font-family:Arial, Helvetica, sans-serif; font-size:11px; padding-top:5px;'>Caso não esteja visualizando o e-mail abaixo  por favor <a style='color:#004BF4;' href='http://www.newstyle1.com/cartoes/60.html'>clique aqui</a></td></tr><tr><td align='center'><a href='http://www.newstyle1.com/cartoes/60.html'>'<img src='capa_60.gif'>'</a></td></tr></table></div></body></html>"msg.Body = textomsg.SendSet msg = Nothing 'FIM DE ENVIO DOS ANOS 60'Response.write(rs("nome"))ElseIf Ano > 1969 And Ano < 1980 Then'começo de envio de e-mailSet msg = Server.CreateObject("CDONTS.NewMail") msg.AttachURL Server.MapPath("capa_70.gif"),"capa_70.gif"msg.From = "NewStyle <newstyle@newstyle.com.br>" msg.To= rs("email")msg.Subject = "Parabéns!!!!!" msg.Bodyformat = 0msg.MailFormat = 0texto = "<html><head><meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1' /><title>PARABÉNS!!!!</title></head><body style='margin:0px;'><div align='center'><table border='0' cellpadding='0' cellspacing='0'><tr><td height='55' style='font-family:Arial, Helvetica, sans-serif; font-size:11px; padding-top:5px;'>Caso não esteja visualizando o e-mail abaixo  por favor <a style='color:#004BF4;' href='http://www.newstyle1.com/cartoes/70.html'>clique aqui</a></td></tr><tr><td align='center'><a href='http://www.newstyle1.com/cartoes/70.html'>'<img src='capa_70.gif'>'</a></td></tr></table></div></body></html>"msg.Body = textomsg.SendSet msg = Nothing 'FIM DE ENVIO DOS ANOS 70'Response.write(rs("nome"))ElseIf Ano > 1979 And Ano < 1990 Then'começo de envio de e-mailSet msg = Server.CreateObject("CDONTS.NewMail") msg.AttachURL Server.MapPath("capa_80.gif"),"capa_80.gif"msg.From = "NewStyle <newstyle@newstyle.com.br>" msg.To= rs("email")msg.Subject = "Parabéns!!!!!" msg.Bodyformat = 0msg.MailFormat = 0texto = "<html><head><meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1' /><title>PARABÉNS!!!!</title></head><body style='margin:0px;'><div align='center'><table border='0' cellpadding='0' cellspacing='0'><tr><td height='55' style='font-family:Arial, Helvetica, sans-serif; font-size:11px; padding-top:5px;'>Caso não esteja visualizando o e-mail abaixo  por favor <a style='color:#004BF4;' href='http://www.newstyle1.com/cartoes/80.html'>clique aqui</a></td></tr><tr><td align='center'><a href='http://www.newstyle1.com/cartoes/80.html'>'<img src='capa_80.gif'>'</a></td></tr></table></div></body></html>"msg.Body = textomsg.SendSet msg = Nothing 'FIM DE ENVIO DOS ANOS 80'Response.write(rs("nome"))End If%><tr><td><span class="texto10"><%Response.write(rs("nome"))%></span></td><td><span class="texto10"><%Response.write(rs("local"))%></span></td><td><span class="texto10"><%Response.write(rs("email"))%></span></td><td><span class="texto10"><%Response.write(rs("data_niver"))%></span></td></tr><tr><td><%rs.MoveNext	 wend set rs=nothing%></td></tr></table></center>

 

Valeu

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelinho    0

marcelinho
Postado

tenta desse jeito:

ve se funfa

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%server.scriptTimeout = 3600dim ConexcaoDim msgSet Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("banco.mdb"))sql= "Select * From cadastro Where Day(data_niver)="& day(now()) &" And Month(data_niver)="& Month(now()) &";"Set rs=Conexcao.Execute(sql)%><html><head><Title>Aniversáriantes do Dia</title><style type="text/css"><!--body {	background-color: #FFFFFF;	}	.texto10 {	font-family: Arial, Helvetica, sans-serif;	font-size: 10px;	color: #464646;		}		.texto11 {	font-family: Arial, Helvetica, sans-serif;	font-size: 13px;	color: #464646;	}	.texto12 {	font-family: Arial, Helvetica, sans-serif;	font-size: 9px;	color: #464646;	}	.texto15 {	font-family: Arial, Helvetica, sans-serif;	font-size: 12px;	color: #0000FF;		}		-->  </style>  </head><body><center><table border="1"><tr><td><span class="texto15">Nome</span></td><td><span class="texto15">Local</span></td><td><span class="texto15">e-mail</span></td><td><span class="texto15">Data de Nascimento</span></td></tr><%Set msg = Server.CreateObject("CDONTS.NewMail")'msg.AttachURL Server.MapPath("capa_80.gif"),"capa_80.gif"msg.From = "NewStyle <newstyle@newstyle.com.br>"msg.To= "rodrigo@newstyle.com.br"msg.Subject = "Aniversáriantes do dia"msg.Bodyformat = 0msg.MailFormat = 0texto = "<html><head><meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1' /><title>PARABÉNS!!!!</title></head><body style='margin:0px;'><div align='center'><font style='font-family:Arial, Helvetica, sans-serif; font-size:11px; padding-top:5px; color:blue'>Aniversáriantes</font><br><br><table border='1' bordercolor='orange' cellpadding='0' cellspacing='0'><tr><td>Nome</td><td>Local</td><td>e-mail</td><td>Data de Nasc</td></tr><tr><td>" & rs("nome") & "</td><td>" & rs("local") & "</td><td>" & rs("email") & "</td><td>" & rs("data_niver") & "</td>" &chr(13)WHILE not rs.EOFtexto = texto & "<td>" & rs("nome") & "</td><td>" & rs("local") & "</td><td>" & rs("email") & "</td><td>" & rs("data_niver") & "</td>" &chr(13)rs.MoveNextWENDtexto = texto & "</tr></table></div></body></html>"msg.Body = textomsg.SendSet msg = NothingWhile not rs.EOF  Ano = Year(CDate(rs("data_niver")))If Ano > 1949 And Ano < 1960 Then'começo de envio de e-mailSet msg = Server.CreateObject("CDONTS.NewMail")msg.AttachURL Server.MapPath("capa_50.gif"),"capa_50.gif"msg.From = "NewStyle <newstyle@newstyle.com.br>"msg.To= rs("email")msg.Subject = "Parabéns!!!!!"msg.Bodyformat = 0msg.MailFormat = 0texto = "<html><head><meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1' /><title>PARABÉNS!!!!</title></head><body style='margin:0px;'><div align='center'><table border='0' cellpadding='0' cellspacing='0'><tr><td height='55' style='font-family:Arial, Helvetica, sans-serif; font-size:11px; padding-top:5px;'>Caso não esteja visualizando o e-mail abaixo  por favor <a style='color:#004BF4;' href='http://www.newstyle1.com/cartoes/50.html'>clique aqui</a></td></tr><tr><td align='center'><a href='http://www.newstyle1.com/cartoes/50.html'>'<img src='capa_50.gif'>'</a></td></tr></table></div></body></html>"msg.Body = textomsg.SendSet msg = Nothing'FIM DE ENVIO DOS ANOS 50ElseIf Ano > 1959 And Ano < 1970 Then'começo de envio de e-mailSet msg = Server.CreateObject("CDONTS.NewMail")msg.AttachURL Server.MapPath("capa_60.gif"),"capa_60.gif"msg.From = "NewStyle <newstyle@newstyle.com.br>"msg.To= rs("email")msg.Subject = "Parabéns!!!!!"msg.Bodyformat = 0msg.MailFormat = 0texto = "<html><head><meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1' /><title>PARABÉNS!!!!</title></head><body style='margin:0px;'><div align='center'><table border='0' cellpadding='0' cellspacing='0'><tr><td height='55' style='font-family:Arial, Helvetica, sans-serif; font-size:11px; padding-top:5px;'>Caso não esteja visualizando o e-mail abaixo  por favor <a style='color:#004BF4;' href='http://www.newstyle1.com/cartoes/60.html'>clique aqui</a></td></tr><tr><td align='center'><a href='http://www.newstyle1.com/cartoes/60.html'>'<img src='capa_60.gif'>'</a></td></tr></table></div></body></html>"msg.Body = textomsg.SendSet msg = Nothing'FIM DE ENVIO DOS ANOS 60'Response.write(rs("nome"))ElseIf Ano > 1969 And Ano < 1980 Then'começo de envio de e-mailSet msg = Server.CreateObject("CDONTS.NewMail")msg.AttachURL Server.MapPath("capa_70.gif"),"capa_70.gif"msg.From = "NewStyle <newstyle@newstyle.com.br>"msg.To= rs("email")msg.Subject = "Parabéns!!!!!"msg.Bodyformat = 0msg.MailFormat = 0texto = "<html><head><meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1' /><title>PARABÉNS!!!!</title></head><body style='margin:0px;'><div align='center'><table border='0' cellpadding='0' cellspacing='0'><tr><td height='55' style='font-family:Arial, Helvetica, sans-serif; font-size:11px; padding-top:5px;'>Caso não esteja visualizando o e-mail abaixo  por favor <a style='color:#004BF4;' href='http://www.newstyle1.com/cartoes/70.html'>clique aqui</a></td></tr><tr><td align='center'><a href='http://www.newstyle1.com/cartoes/70.html'>'<img src='capa_70.gif'>'</a></td></tr></table></div></body></html>"msg.Body = textomsg.SendSet msg = Nothing'FIM DE ENVIO DOS ANOS 70'Response.write(rs("nome"))ElseIf Ano > 1979 And Ano < 1990 Then'começo de envio de e-mailSet msg = Server.CreateObject("CDONTS.NewMail")msg.AttachURL Server.MapPath("capa_80.gif"),"capa_80.gif"msg.From = "NewStyle <newstyle@newstyle.com.br>"msg.To= rs("email")msg.Subject = "Parabéns!!!!!"msg.Bodyformat = 0msg.MailFormat = 0texto = "<html><head><meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1' /><title>PARABÉNS!!!!</title></head><body style='margin:0px;'><div align='center'><table border='0' cellpadding='0' cellspacing='0'><tr><td height='55' style='font-family:Arial, Helvetica, sans-serif; font-size:11px; padding-top:5px;'>Caso não esteja visualizando o e-mail abaixo  por favor <a style='color:#004BF4;' href='http://www.newstyle1.com/cartoes/80.html'>clique aqui</a></td></tr><tr><td align='center'><a href='http://www.newstyle1.com/cartoes/80.html'>'<img src='capa_80.gif'>'</a></td></tr></table></div></body></html>"msg.Body = textomsg.SendSet msg = Nothing'FIM DE ENVIO DOS ANOS 80'Response.write(rs("nome"))End If%><tr><td><span class="texto10"><%Response.write(rs("nome"))%></span></td><td><span class="texto10"><%Response.write(rs("local"))%></span></td><td><span class="texto10"><%Response.write(rs("email"))%></span></td><td><span class="texto10"><%Response.write(rs("data_niver"))%></span></td></tr><tr><td><%rs.MoveNext	 wendset rs=nothing%></td></tr></table></center>

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

a parte do admin esta certa, mas não exibiu na tela quem faz niver e nem mandou os arquivos pra quem varia....

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelinho    0

marcelinho
Postado

vamos por parte:o que o sistema tem que fazer?mandar para o administrador todo mundo que faz aniversario certo?isso ta fazendo ne?agora que mais que ele tem que fazer?e no que que esta errando?

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

Ele tem que mandar para o admin, todos que fazem aniversário no dia, e o resto ele tem que comparar o ano que o fulano nasceu e mandar um arquivo diferente dependendo da década do fulano...o sistema só não estava mandando e-mail pro admin o resto tava tudo OK!!!Valeu!!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelinho    0

marcelinho
Postado

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%server.scriptTimeout = 3600dim ConexcaoDim msgSet Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("banco.mdb"))sql= "Select * From cadastro Where Day(data_niver)="& day(now()) &" And Month(data_niver)="& Month(now()) &";"Set rs=Conexcao.Execute(sql)%><html><head><Title>Aniversáriantes do Dia</title><style type="text/css"><!--body { background-color: #FFFFFF; } .texto10 { font-family: Arial, Helvetica, sans-serif; font-size: 10px; color: #464646; } .texto11 { font-family: Arial, Helvetica, sans-serif; font-size: 13px; color: #464646; } .texto12 { font-family: Arial, Helvetica, sans-serif; font-size: 9px; color: #464646; } .texto15 { font-family: Arial, Helvetica, sans-serif; font-size: 12px; color: #0000FF; } --> </style> </head><body><center><table border="1"><tr><td><span class="texto15">Nome</span></td><td><span class="texto15">Local</span></td><td><span class="texto15">e-mail</span></td><td><span class="texto15">Data de Nascimento</span></td></tr><%While not rs.EOFSet msg = Server.CreateObject("CDONTS.NewMail")'msg.AttachURL Server.MapPath("capa_80.gif"),"capa_80.gif"msg.From = "NewStyle <newstyle@newstyle.com.br>"msg.To= "rodrigo@newstyle.com.br"msg.Subject = "Aniversáriantes do dia"msg.Bodyformat = 0msg.MailFormat = 0texto = "<html><head><meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1' /><title>PARABÉNS!!!!</title></head><body style='margin:0px;'><div align='center'><font style='font-family:Arial, Helvetica, sans-serif; font-size:11px; padding-top:5px; color:blue'>Aniversáriantes</font><br><br><table border='1' bordercolor='orange' cellpadding='0' cellspacing='0'><tr><td>Nome</td><td>Local</td><td>e-mail</td><td>Data de Nasc</td></tr><tr><td>" & rs("nome") & "</td><td>" & rs("local") & "</td><td>" & rs("email") & "</td><td>" & rs("data_niver") & "</td>" &chr(13)WHILE not rs.EOFtexto = texto & "<td>" & rs("nome") & "</td><td>" & rs("local") & "</td><td>" & rs("email") & "</td><td>" & rs("data_niver") & "</td>" &chr(13)rs.MoveNextWENDtexto = texto & "</tr></table></div></body></html>"msg.Body = textomsg.SendSet msg = Nothing Ano = Year(CDate(rs("data_niver")))If Ano > 1949 And Ano < 1960 Then'começo de envio de e-mailSet msg = Server.CreateObject("CDONTS.NewMail")msg.AttachURL Server.MapPath("capa_50.gif"),"capa_50.gif"msg.From = "NewStyle <newstyle@newstyle.com.br>"msg.To= rs("email")msg.Subject = "Parabéns!!!!!"msg.Bodyformat = 0msg.MailFormat = 0texto = "<html><head><meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1' /><title>PARABÉNS!!!!</title></head><body style='margin:0px;'><div align='center'><table border='0' cellpadding='0' cellspacing='0'><tr><td height='55' style='font-family:Arial, Helvetica, sans-serif; font-size:11px; padding-top:5px;'>Caso não esteja visualizando o e-mail abaixo por favor <a style='color:#004BF4;' href='http://www.newstyle1.com/cartoes/50.html'>clique aqui</a></td></tr><tr><td align='center'><a href='http://www.newstyle1.com/cartoes/50.html'>'<img src='capa_50.gif'>'</a></td></tr></table></div></body></html>"msg.Body = textomsg.SendSet msg = Nothing'FIM DE ENVIO DOS ANOS 50ElseIf Ano > 1959 And Ano < 1970 Then'começo de envio de e-mailSet msg = Server.CreateObject("CDONTS.NewMail")msg.AttachURL Server.MapPath("capa_60.gif"),"capa_60.gif"msg.From = "NewStyle <newstyle@newstyle.com.br>"msg.To= rs("email")msg.Subject = "Parabéns!!!!!"msg.Bodyformat = 0msg.MailFormat = 0texto = "<html><head><meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1' /><title>PARABÉNS!!!!</title></head><body style='margin:0px;'><div align='center'><table border='0' cellpadding='0' cellspacing='0'><tr><td height='55' style='font-family:Arial, Helvetica, sans-serif; font-size:11px; padding-top:5px;'>Caso não esteja visualizando o e-mail abaixo por favor <a style='color:#004BF4;' href='http://www.newstyle1.com/cartoes/60.html'>clique aqui</a></td></tr><tr><td align='center'><a href='http://www.newstyle1.com/cartoes/60.html'>'<img src='capa_60.gif'>'</a></td></tr></table></div></body></html>"msg.Body = textomsg.SendSet msg = Nothing'FIM DE ENVIO DOS ANOS 60'Response.write(rs("nome"))ElseIf Ano > 1969 And Ano < 1980 Then'começo de envio de e-mailSet msg = Server.CreateObject("CDONTS.NewMail")msg.AttachURL Server.MapPath("capa_70.gif"),"capa_70.gif"msg.From = "NewStyle <newstyle@newstyle.com.br>"msg.To= rs("email")msg.Subject = "Parabéns!!!!!"msg.Bodyformat = 0msg.MailFormat = 0texto = "<html><head><meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1' /><title>PARABÉNS!!!!</title></head><body style='margin:0px;'><div align='center'><table border='0' cellpadding='0' cellspacing='0'><tr><td height='55' style='font-family:Arial, Helvetica, sans-serif; font-size:11px; padding-top:5px;'>Caso não esteja visualizando o e-mail abaixo por favor <a style='color:#004BF4;' href='http://www.newstyle1.com/cartoes/70.html'>clique aqui</a></td></tr><tr><td align='center'><a href='http://www.newstyle1.com/cartoes/70.html'>'<img src='capa_70.gif'>'</a></td></tr></table></div></body></html>"msg.Body = textomsg.SendSet msg = Nothing'FIM DE ENVIO DOS ANOS 70'Response.write(rs("nome"))ElseIf Ano > 1979 And Ano < 1990 Then'começo de envio de e-mailSet msg = Server.CreateObject("CDONTS.NewMail")msg.AttachURL Server.MapPath("capa_80.gif"),"capa_80.gif"msg.From = "NewStyle <newstyle@newstyle.com.br>"msg.To= rs("email")msg.Subject = "Parabéns!!!!!"msg.Bodyformat = 0msg.MailFormat = 0texto = "<html><head><meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1' /><title>PARABÉNS!!!!</title></head><body style='margin:0px;'><div align='center'><table border='0' cellpadding='0' cellspacing='0'><tr><td height='55' style='font-family:Arial, Helvetica, sans-serif; font-size:11px; padding-top:5px;'>Caso não esteja visualizando o e-mail abaixo por favor <a style='color:#004BF4;' href='http://www.newstyle1.com/cartoes/80.html'>clique aqui</a></td></tr><tr><td align='center'><a href='http://www.newstyle1.com/cartoes/80.html'>'<img src='capa_80.gif'>'</a></td></tr></table></div></body></html>"msg.Body = textomsg.SendSet msg = Nothing'FIM DE ENVIO DOS ANOS 80'Response.write(rs("nome"))End If%><tr><td><span class="texto10"><%Response.write(rs("nome"))%></span></td><td><span class="texto10"><%Response.write(rs("local"))%></span></td><td><span class="texto10"><%Response.write(rs("email"))%></span></td><td><span class="texto10"><%Response.write(rs("data_niver"))%></span></td></tr><tr><td><%rs.MoveNext wendset rs=nothing%></td></tr></table></center>

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

Deu erro meu quirido!erro '80020009' Exceção. /cartoes/sistema/dispara.asp, line 79

Compartilhar este post

Link para o post
Compartilhar em outros sites

shumi    0

shumi
Postado

beleza resolvi o problema!!!!Valeu

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito