Aniversáriantes do Mês

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

Comente abaixo Alexandre de Luccia
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

%>



<table border="0" cellpadding="0" cellspacing="0">

  <tr>

    <td >Aniversariantes / <%Response.Write(ExibeData(now()))%></td>

  </tr>

  <%

If not objRS.EOF then 

objRS.MoveFirst

While Not objRS.EOF

%>

  <tr>

<% ' tratando valores para exibição das datas %>

    <td><a href="mailto:<%=objRS("email")%>" title="Mande sua mensagem!"><%=Left(objRS("nome"),27)%></a> - <%=Replace(Left(objRS("data_nasc"),4),"/", ".")%></td>

  </tr>

  <%

objRSm.MoveNext

Wend 

Else

%>

<span class="style3">Mês sem aniversariantes.</span>

<%

End If

'**** Fim exibindo datas de aniversários ****

%>

</table>

<%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

ASSUNTOS RELACIONADOS

 
Ranking de Smartphones

Confira os últimos testes de smartphones que nossa equipe realizou.

Destaques

TOPO