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

[amendoza]

Hola betamaxtelecom,

Verifica por medio de response.write las variable que estas comparando que esten en el mismo formato, te recomiendo tambien que trabajes con formatos Fecha, usa la funcion CDate(tuVariable)

Saludos

[betamaxtelecom]

Iniciado por amendoza

Hola betamaxtelecom,

Verifica por medio de response.write las variable que estas comparando que esten en el mismo formato, te recomiendo tambien que trabajes con formatos Fecha, usa la funcion CDate(tuVariable)

Saludos

Cordial saludo gracias a todos les dejo el script para el sistema de cumpleaños basado en asp clasico

'creamos el objeto base de datos
set conn =Server.CreateObject ("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
'abrimos la base de datos
conn.Open (Server.MapPath("/empleados/db/eventos.mdb"))
'creamos el objeto tabla
set rs =Server.CreateObject("ADODB.recordset")
'response.write ("conexion Exitosa")

datFecha=Date()
if Day(datFecha) < 10 then
strDia = "0" & CStr(Day(datFecha))
else
strDia = CStr(Day(datFecha))
end if
if month(datfecha) < 10 then
strMes="0" & CStr(month(datFecha))
else
strMes = CStr(Month(datFecha))
end if
strAnyo= CStr(year(datFecha))
strFecha = strDia & "/" & strMes & "/" & strAnyo

'response.write (strfecha)

rs.Open "SELECT ced, nombre, cargo, foto, estado, Direccion, Extension, cumpleanos FROM usuarios where MONTH(cumpleanos)=MONTH(date())and DAY(cumpleanos)=day(date())and estado= 'Vigente' ", conn


Gracias