CADASTRE-SE

Aniversáriantes do Mês

1 0 2 0 Alexandre de Luccia
Assunto: ASP.NET |

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

Leia a seguir: Use os validadores do ASP.NET


Comentários

TOPO