Ir para conteúdo

POWERED BY:

Arquivado

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

Pachevisk

Q to fazendo de Errado??

Recommended Posts

seguinte tenho um usuario cadastrado com data nascimento ex. 10/05/85 ou seja ele fais aniver quarta-feira

ai quero mostrar na pagina o aniversariante e envia um cartão no dia mas não

ta funfandu..... ou seja está dizendo que não tem aniversariante esse mês

o que estou fazendo errado ?

 

<%'*** CRIANDO CONEXAO COM O BANCO DE DADOSSet Cnn = Server.CreateObject("ADODB.Connection")Cnn.open "DSN=user; UID=user; PWD=pass;"'*** INICIANDO O CODIGO DE CONSULTA A DADOSSQL = "SELECT * FROM users"SQL = SQL & " WHERE"SQL = SQL & " DAY(dob) = "& RIGHT("0" & DAY(DATE()),2) & " "SQL = SQL & " AND "SQL = SQL & " Month(dob)	= "& RIGHT("0" & MONTH(DATE()),2) & ""'SQL = SQL & " AND Year(AN_NASCIMENTO) = "& Year(Now())	&" "		 SET RS = Cnn.execute(SQL)'*** VERIFICANDO SE EXISTE ALGUM REGISTRO DE ACORDO COM A CONDICAO	IF NOT RS.EOF THEN		 		 WHILE NOT RS.EOF 		 contador = contador + 1			  '*** IMPRINDO A QUANTIDADE DE ANIVERSARIANTES			  IF contador = 1 THEN				  Response.Write("Existem "&contador&" aniversario esse mes!!")&"<br>"				Response.Write("O nome do Aniversariante é: "&RS("username")&"")			  ELSE				Response.Write("Existem "&contador&" aniversarios esse mes!!")&"<br>"				Response.Write("O nome do Aniversariante é: "&RS("username")&"")			  END IF									 '*** INICIO DO CODIGO DE ENVIO DO CARTAO					StrDescricao = StrDescricao & "<img src <a href='http://www.site.com.br/aniversariantes' target='_blank'>http://www.site.com.br/aniversariantes</a> foto.jpg"							'-------INICIO DO CODIGO CDONTS-----------------'						Set objmail		= Server.CreateObject("CDONTS.NewMail") 						objmail.From	   =  " Titulo "						objmail.to		 =  RS("AN_EMAIL")						objmail.subject	= " Mensagem do Email "						objmail.Body	   = strDescricao  						objmail.BodyFormat = 0						objmail.MailFormat = cdoMailFormatText						objmail.send 						Set objmail = nothing 								Response.Write("<br>"&"Email Enviado")		 RS.MOVENEXT		  WEND			ELSE		Response.Write("Nao existem aniversarios esse mes..")	END IF %>
alguem ai da uma ajudinha ?

Compartilhar este post


Link para o post
Compartilhar em outros sites

o campo é data??se for para selecionar os aniver do mes bastaria"SELECT.... WHERE MONTH(DATA) = " & MONTH(Date)não entendi bem o que voce quer....

Compartilhar este post


Link para o post
Compartilhar em outros sites

isso mesmo lucasBR ele mostra os usuarios do mês e queria q no dia ele envia-se o tal email.......funciona.... mas como disse ele já envia do jeito marioufpa...mas como ficaria pra mim segurar esse email e enviar na data do aniver?

Compartilhar este post


Link para o post
Compartilhar em outros sites

para aniversariantes do dia ficaria parecido

"SELECT.... WHERE DAY(DATA) = " & DAY(Date) & " AND MONTH(DATA) = " & MONTH(Date)

só que voce precisa controlar o envio para so enviar uma vez por diaalem disso tem que cuidar para enviar inclusive se ninguem visitar o site

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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