Aniversariante do mes

[lifenetwork 0]

Boa noite

 

Tenho uma tabela chamada moradores e dentro dela um campo chamado datamorador no formado DATA/HORA quero que quando eu clicar no botão ele pegue todos os aniversariantes do mês atual.

 

 

Obrigado

[Mário Monteiro 179]

utilize a função MONTH para comparar a data do DB com a data atual do sistema

[xanburzum 169]

usa assim:

<%
varDiaAtual = day(date())
varMesAtual = month(date())

strSql = "Select * from aniversariantes where DAY(nascimento)="& varDiaAtual &" and MONTH(nascimento)="& varMesAtual
...
%>

ou mais completo:

<%


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>