Sistema de cumpleaños Intranet

[betamaxtelecom]

Saludos

Soy Darren tengo problemas para extraer los registros de las personas que cumplean años el dia de hoy y los del mes, les colocare el codigo, la base de datos que uso es access la base se llama eventos.mdb este es el codigo

<%
'Primero tomamos el instante y lo guardamos en la variable tiempo.
Dim tiempo
tiempo = Time()
Response.Write ("Esta es la hora que tiene mi servidor: " & tiempo)
fecha = Date()
Response.Write ("<BR> Hoy es el dia " & Day(fecha) & " del mes " & Month(fecha) & " del año " & Year(fecha))
%>
<%
dim Conex, registros, sql
set Conex = Server.CreateObject("ADODB.Connection")
Conex.open = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/sancarlos/db/eventos.mdb")
Response.Write("Conexión con la base de datos conseguida.<br>")


sql="SELECT ced, nombre, dia, mes, foto FROM usuarios Where dia='"&day(fecha)&"' and mes='"&Month(fecha)&"' order by dia"

Set registros = Server.CreateObject("ADODB.RecordSet")
registros.Open sql, conex, 1

Do While not registros.EOF
por favor si alguien me puede ayudar le agradeceria.

Feliz Dia