Aniversáriantes do Mês

Exemplo básico de como exibir os aniversáriantes do mês como o do orkut.

Por Programação
Vou mostrar um exemplo simples em banco de dados access para consulta de aniversáriantes do mês. Vamos começar:

Criar um banco de dados com o nome: data.mdb;
Criar uma tabela com um nome escolhido por você;

Vamos criar 3 campos:
1º campo: data_nasc , tipo: Data/hora;
2º campo: nome, tipo: texto;
3º campo: email, tipo: texto.

Após isso crie uma página com o seguinte código:

Nome página: default.asp

<%
Session.LCID = 1046

'Tratando mês e dia da semana
Function ExibeData(data)  
  mes = Month(data)  
  Select Case mes  
  Case 1 : mes = "Janeiro"  
  Case 2 : mes = "Fevereiro"  
  Case 3 : mes = "Março"  
  Case 4 : mes = "Abril"  
  Case 5 : mes = "Maio"  
  Case 6 : mes = "Junho"  
  Case 7 : mes = "Julho"  
  Case 8 : mes = "Agosto"  
  Case 9 : mes = "Setembro"  
  Case 10 : mes = "Outubro"  
  Case 11 : mes = "Novembro"  
  Case 12 : mes = "Dezembro"  
  End Select  
  ExibeData = mes  
End Function  

data_hoje  = date()                          ' Aqui pega a data do dia atual   = 07/05/06
mes = right((left((data_hoje),5)),2)         ' Aqui pega os valores do mes =      05

'Pegando valores do seu banco e fazendo a consulta.
strCon = "DBQ=c:caminho_rededata.mdb;Driver={Microsoft Access Driver (*.mdb)};"
Set objRSm = Server.CreateObject("ADODB.Recordset")
objRSm.CursorLocation = 3
objRSm.CursorType = 0
objRSm.LockType = 1

'Consulta no banco de dados
strSQL = "Select  *  from NOME_TABELA WHERE right((left((data_nasc),5)),2) = '" & mes & "' order by data_nasc DESC"

objRSm.Open strSQL, strCon
%>


  
    
  
  <%
If not objRS.EOF then
objRS.MoveFirst
While Not objRS.EOF
%>
  
<% ' tratando valores para exibição das datas %>
    
  
  <%
objRSm.MoveNext
Wend
Else
%>
Mês sem aniversariantes.
<%
End If
'**** Fim exibindo datas de aniversários ****
%>
Aniversariantes / <%Response.Write(ExibeData(now()))%>
" title="Mande sua mensagem!"><%=Left(objRS("nome"),27)%> - <%=Replace(Left(objRS("data_nasc"),4),"/", ".")%>

<%objRSm.close%>


Espero que seja util para vocês, lembrando que esse exemplo pode ser usando em diversas coisas, exemplos:

Prato do mês, Notícias do Mês e etc...
Já que sempre fazem consultas monstrando notícias do dia.

Qualquer dúvida entre em contato comigo deixando um comentário.

Abraços!


Alexandre de Luccia

Você também pode gostar de:

Recomendado
Siga nas redes
Últimas publicações
Assuntos
Siga nas redes
Encontrou algum erro no texto?

Entre em contato com o autor e nos ajude a melhorar a qualidade dos posts cada vez mais!

AVISAR
Comentários
ASSINE NOSSA NEWSLETTER

As melhores publicações no
seu e-mail