Aniversariantes do dia

[Legionáriors]

Boa tarde,

No script abaixo mesmo que tenha um registro no banco para aquela data ele imprime na tela que não há aniversariantes naquele determinado dia. O script não dá erro simplesmente não mostra o que eu preciso que mostre...

PRECISO DE AJUDA!!!!

<script language="JavaScript">
function abrir(URL) {
  var width = 400;
  var height = 300;

  var left = 99;
  var top = 99;
  window.open(URL,'janela', 'width='+width+', height='+height+', top='+top+', left='+left+', scrollbars=yes, status=no, toolbar=no, location=no, directories=no, menubar=no, resizable=no, fullscreen=no');
}
</script>

<%
Session.LCID = 1046

'Tratando mês e dia da semana
Function ExibeData(data)   
  dia = day(data)   
  Select Case dia   
  Case 1 : dia = "1"  
  Case 2 : dia = "2"  
  Case 3 : dia = "3"  
  Case 4 : dia = "4"  
  Case 5 : dia = "5"  
  Case 6 : dia = "6"  
  Case 7 : dia = "7"  
  Case 8 : dia = "8"  
  Case 9 : dia = "9"  
  Case 10 : dia = "10"  
  Case 11 : dia = "11"  
  Case 12 : dia = "12"  
  Case 13 : dia = "13"  
  Case 14 : dia = "14"  
  Case 15 : dia = "15"  
  Case 16 : dia = "16"  
  Case 17 : dia = "17"  
  Case 18 : dia = "18"  
  Case 19 : dia = "19"  
  Case 20 : dia = "20"  
  Case 21 : dia = "21"  
  Case 22 : dia = "22"  
  Case 23 : dia = "23"  
  Case 24 : dia = "24"  
  Case 25 : dia = "25"  
  Case 26 : dia = "26"  
  Case 27 : dia = "27"  
  Case 28 : dia = "28"  
  Case 29 : dia = "29"  
  Case 30 : dia = "30"  
  Case 31 : dia = "31"  
  End Select  
  ExibeData = dia   
End Function  

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

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

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

objRS.Open strSQL, strCon
%>
    <font face="Comic Sans MS" color="red"><b>Aniversariantes do dia <%Response.Write(ExibeData(now()))%> </b></font><br>
<%
If not objRS.EOF then 
objRS.MoveFirst
While Not objRS.EOF
%>
  <tr>
<% ' tratando valores para exibição das datas %>
    <td>
    <font face="Comic Sans MS" color=black><b><a style="text-decoration:none" href="java script:abrir('aniver.asp?id=<%=objRS("id")%>');" title="Ver Mensagem da Escola"><%=Left(objRS("nome"),27)%> - <%=Replace(Left(objRS("data_nasc"),4),"/", ".")%></a><br>
    </b></font></td>
  </tr>
  <%
objRS.MoveNext
Wend 
Else
%>
<font face="Comic Sans MS" color="red">No dia <b><%Response.Write(ExibeData(now()))%></b> não há aniversariantes!</font><br>
<%
End If
%>
</table>
<%objRS.close%>

[bareta]

não seria:

strSQL = "Select  *  from aniversarios WHERE day(data_nasc) = " & dia & " order by ID DESC"

[Legionáriors]

Boa tarde,

Erro!!!

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'day(data_nasc) = 4/'.

/aniversarios_capa.asp, line 67

[bareta]

sua descrição do erro mostra o q ta bixado 4/

use day(now) ou day(data) em vez de partes da string

logo

strSQL = "Select  *  from aniversarios WHERE day(data_nasc) = " & day(now) & " order by ID DESC"

[Legionáriors]

Boa noite Bareta,

Problema resolvido você sem duvidas é fera cara, valeu mesmo pela ajuda me salvou a vida. Só mais uma ajudinha se não for muito abuso. Agor aquando eu faço o cadastro por exemplo 01/05/2010 quando clico em cadastrar a data vem invertida desta forma 05/01/2010 sabe me dizer o que pode ser agora?

Valeu irmão!!!

[bareta]

você pode :

usar o apdrão americano mm/dd/aaaa

session.leicd=1033

usar um campo para dia outro no mes e outro no ano...

ou crie um função que inverta dia com o mes...

no intervalo

(access)

dia de 1 a 12 = mm/dd/aaaa

mes de 1 a 4 = mm/dd/aaaa
5 a 12 = dd/mm/aaaa