Oficina da Net » Programação » ASP

Aniversáriantes do Mês

Novo aqui no site? Talvez gostaria de assinar o
RSS feed do site?

Publicado em: 10/05/2007
Área: ASP
Visualizações: 3.986
Comentário(s): 0

imprimir envie por e-mail compartilhe
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

Clique aqui para comentar comentários
Preencha o formulário para comentar:
Nome:*

E-mail:* (não será exibido)

Site: (http://)

Comentário:*

Deseja receber os comentários no e-mail?

Anti-spam: (nova imagem)





Seja o primeiro a comentar!

Autor da matéria
Alexandre de Luccia
» site do autor
Alexandre de Luccia
Analista e Desenvolvedor de Sistemas desde 2005, atualmente desenvolvendo sistemas na Telefônica Brasil, no Centro de Operações Comerciais - COC.

Todas as matérias de Alexandre de Luccia

Publicidade
Seguir o Oficina da Net
RSS

RSS

RSS
Top matérias do mês
Matérias relacionadas
Destaque
Tags

© 2005 - 2009 - Oficina da Net - v 4.0 - É proibida a reprodução parcial ou completa do conteúdo deste site sem autorização por escrito. Resolução adequada: 1024x768px.

Parceiros: Bahia em Foco  |  Blog do Vicente  |  BuscaKi  |  Chongas  |  ClicRN  |  Código Fonte  |  Coletânea de ícones  |  Comunicação Digital  |  Concurso Público  |  Concursos  |  Criação de sites  |  CriarWeb  |  Downloads  |  Fontes Grátis  |  GMasters  |  Hospedagem  |  Hospedagem de sites  |  Ícones  |  Infonet News  |  iParaiba  |  JLAMIM  |  MX masters  |  Notebook  |  Portal Super  |  Profissionais de Web  |  Qualidade Brasil  |  Renan Lima  |  SEO Master  |  Sonhos  |  tutoriais.org  |  WebLivre  |  Zoom Digital