Gracias David
Hice lo que me dijiste pero no me funciona, no se que este colocando mal en el código pero me aparece el siguiente error
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][Controlador ODBC Microsoft Access] Pocos parámetros. Se esperaba 2.
El código que coloqué fué el siguiente:
<%
Set Ob_Conn=Server.CreateObject("ADODB.Connection ")
set Ob_RS=server.createobject("ADODB.recordset&qu ot;)
Ob_Conn.Open "Basedatos"
strSQL = "SELECT nombre,dia FROM usuarios WHERE Mes = " & month(Date) & " ORDER By dia"
Set Ob_RS = Ob_Conn.execute (StrSQL)
Do While Not Ob_RS.EOF%>
Nombre: <%=Ob_RS("nombre")%>
Cumpleaños: <%=Ob_RS("dia")%>
<%Ob_RS.Movenext%>
<%LOOP%>
y me sale el error que te dije anteriormente
luego modifiqué el código por este:
<%
Set Ob_Conn=Server.CreateObject("ADODB.Connection ")
set Ob_RS=server.createobject("ADODB.recordset&qu ot;)
Ob_Conn.Open "Basedatos"
sql="SELECT nombre, dia FROM usuarios WHERE Mes = " & month(Date) & " ORDER By dia"
Ob_RS.open sql,Ob_Conn
Do While Not Ob_RS.EOF%>
Nombre: <%=Ob_RS("nombre")%>
Cumpleaños: <%=Ob_RS("dia")%>
<%Ob_RS.Movenext%>
<%LOOP%>
y me sale el mismo error
que estaré haciendo mal??