Tengo un problema con mi código.
Estoy haciendo un "Pequeño" sistema, para recuperar Contraseñas en mi Web.
Tengo la Siguiente Conexión:
Cita: <%
dim usuario
usuario=request.form("Usuario")
set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/usuarios.mdb") & "; Password=ElMismo "
SQL="select * FROM usuarios"
set rs=oConn.Execute(SQL)
while (NOT Rs.eof)
if (usuario=Rs("Usuario"))then
dim variable
variable=1
end if
Rs.movenext()
wend
if (variable<>"")then
%>
MUESTRA MI PÁGINA HTML
<%
else
Response.Write "<center><b>Este Nombre de Usuario No Existe en el Sistema</b><p>"
Response.Write "Recuerde que debe escribir su usuario tal y como lo registro.<p>"
Response.Write "Chece las Mayusculas y Minusculas</center>"
end if
%>
Cuando lo Ejecuto... Sí Ingreso un Usuario que no Existe en mi Base de Datos, me manda Directamente hasta el
ELSE mostrandome el Response.Write.
.....Pero... Sí ingrego un Usuario Valido ( que Si existe en mi dase de datos )... me manda el Siguiente Error:
Cita: Tipo de error:
ADODB.Field (0x80020009)
El valor de BOF o EOF es True, o el actual registro se eliminó; la operación solicitada requiere un registro actual.
/web/Admin/RecuPass/recupass.asp
Con todo lo que menciono ... Llego a la Conclusión de que mi código si Conecta a la BD y Checa, o comprueba, que exista o no el usuario....
El Error dice que "El Registro se Elimino".. pero eso no puede ser, ya que si existe en mi BD, y la prueba esta en que el código al ejecutarse comprueba eso..
Me Explico?....
Alguna idea?
Saludos