ASP.NET›  

Aniversáriantes do Mês

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

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

 

Compartilhe com seus amigos:
Mais de ASP.NET
  • Criando URLs amigáveis com ASP.NET
    Criando URLs amigáveis com ASP.NET
  • Incluir imagem no Report Viewer com caminho gravado no Banco
    Incluir imagem no Report Viewer com caminho gravado no Banco
  • Como usar Radio Button em uma GridView Asp.NET
    Como usar Radio Button em uma GridView Asp.NET
  • Fazendo Inner Join e Left Join com Linq no ASP.NET
    Fazendo Inner Join e Left Join com Linq no ASP.NET
  • Asp .Net - Autenticação com JQuery/JSON
    Asp .Net - Autenticação com JQuery/JSON
Compartilhe com seus amigos:
últimos reviews
  • 8,4
    Review Samsung Galaxy K Zoom
    Nessas 2 últimas semanas passou por nossas mãos o potente Galaxy K Zoom, veja o que achamos dele.
  • 8,6
    Review Moto X - Segunda geração
    O aparelho da Motorola é a prova “viva” que o que está ótimo pode melhorar ainda mais.
  • 8,1
    Review Zenfone 5
    Tela de 5 polegadas, câmera de foto e vídeo superiores aos concorrentes, boa usabilidade e preço baixo. A Asus acertou n...

TOPO