sistema de aniversário

[lifenetwork 0]

Bom dia

 

Tenho uma tabela no banco de dados onde tem a ficha do cliente, nela entra a data de aniversário dela da esposa e filhos que moram com eles.

 

A data lançada entra no sistema da seguinte forma 03/10/1982 , na tela principal do sistema tenho uma área chamada Próximo Aniversário ...

 

Queria que toda fez que logasse no sistema foce visto os próximos aniversariantes mas o legal seria com 7 dias de antecedência para que possamos preparar um carta para pessoa.

 

Obrigado

[Humberto Oliveira Pinto 8]

<%
data = split("03/10/1982","/")
data_nova = data(0)&"/"&data(1)&"/"&year(now)
data_nova = DateAdd("d",-7,data_nova)

If date()>=data_nova Then
	Response.Write("envia!")
End if
%>

Só adaptar

[xanburzum 169]

olha estes exemplo:

 

exemplo 1

 

<%
mTitleColor = "DARKRED" 
mHeaderColor = "DARKBLUE" 
mYearColor = "DARKBLUE" 
mTextColor = "#069" 
mTitle = "Aniversariantes do Mês: " 

mDataBaseDir = "Today.mdb" 


function toLongMonth(pInInteger)

mMonth = "Não encontrado"

if isNumeric(pInInteger) then
select case pInInteger
case 1: mMonth = "Janeiro"
case 2: mMonth = "Fevereiro"
case 3: mMonth = "Março"
case 4: mMonth = "Abril"
case 5: mMonth = "Maio"
case 6: mMonth = "Junho"
case 7: mMonth = "Julho"
case 8: mMonth = "Augosto"
case 9: mMonth = "Setembro"
case 10: mMonth = "Outubro"
case 11: mMonth = "Novembro"
case 12: mMonth = "Dezembro"
end select
end if

toLongMonth = mMonth

end function


set connGlobal = server.createobject("ADODB.Connection")
connGlobal.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= " & server.mappath(mDataBaseDir)


mSQL = "SELECT his_type, his_day, his_desc FROM UNV_HISTORY " & _
" WHERE his_day = datepart('d', date()) " & _
" AND his_month = datepart('m', date()) " & _
" ORDER BY his_day, his_desc "


set rsGlobal = connGlobal.execute(mSQL)


response.write "<FONT>" & mTitle & _
toLongMonth(datepart("m", date())) & _
" " & datepart("yyyy", date()) & _
"</FONT>

"


response.write "<FONT>Parabéns:</FONT>"

mType = "B"


response.write "<TABLE>"

while not rsGlobal.eof


'if rsGlobal("his_type") </TABLE>

Exemplo 2 com envio de email:

SESSION.LCID = 1046 'BR-PT (Padrão Portugues/Brasileiro)

SQL = "SELECT * FROM EMAILS WHERE DAY(NASC) = "& day(date()) &" AND MONTH(NASC) = " & month(date())
SET ANIVERSARIANTES = SERVER.CreateObject("ADODB.RECORDSET")
    ANIVERSARIANTES.OPEN SQL, CX
	IF ANIVERSARIANTES.EOF THEN 'se não encontrou registro
	   ELSE
		DO WHILE NOT ANIVERSARIANTES.EOF 'faça enquanto existir registros
			 data_banco_dia = right((left((ANIVERSARIANTES("NASC")),2)),2)
			 data_banco_mes = right((left((ANIVERSARIANTES("NASC")),5)),2)	 
			 data_atual_dia = right((left((date()),2)),2)
			 data_atual_mes = right((left((date()),5)),2)
		  IF data_banco_dia = data_atual_dia AND data_banco_mes = data_atual_mes THEN
			 SET cdoConfig = Server.CreateObject("cdo.configuration")
				 SMTP = "smtp.teste.com.br" 	'informacoes do seu servidor SMTP
				 USER = "teste@teste.com.br" 	'conta de e-mail utilizada para enviar
				 PASS = "teste"  			'senha da conta de e-mail

					cdoConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
					cdoConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
					cdoConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTP
					cdoConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
					cdoConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
					cdoConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = USER
					cdoConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = PASS
					cdoConfig.Fields.Update

				SET cdoMessage1 = Server.CreateObject("cdo.message")
				SET cdoMessage1.Configuration 	 = cdoconfig
					cdoMessage1.BodyPart.Charset = "ISO-8859-1"
					cdoMessage1.From 			 = ANIVERSARIANTES("EMAIL")
					cdoMessage1.To 			 = "teste@teste.com.br"
					cdoMessage1.Subject 		 = ""
					cdoMessage1.HTMLBody 		 = ""
					cdoMessage1.Send
				SET cdoMessage1 				 = NOTHING
				SET cdoConfig   				 = NOTHING
		  END IF
		ANIVERSARIANTES.MoveNext
		LOOP
	END IF

    ANIVERSARIANTES.Close
SET ANIVERSARIANTES = NOTHING
    CX.Close
SET CX = NOTHING