Problema En Código -Comparando Datos-

[Owen-Bonilla]

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:

<%
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:

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

[u_goldman]

Y en qué linea y cual es el segmento de código que te envía el error exactamente?
Debe ser en una parte que asuma que el usuario si existe dentro de la base de datos a ver si nos puedes poner ese código para revisarlo...

Salu2,

[Owen-Bonilla]

De hecho, ese es todo el error que me marca, no me indica linea ni nada !!!.

y Este es todo el código ( ASP ) de la página, lo demas es puro HTML ....

[Owen-Bonilla]

ya lo Solucione amigo.. muchas gracias !!!

utilize otro código... un código de tipo Acceso a Sistema ( usuario y Contraseña )... pero sin el campo de contraseña claro =D .....

Gracias amigo !

[u_goldman]

Bueno, déjame modificar un poco tu código y veamos el error:

<%
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= Server.CreateObject("ADODB.Recordset")
rs.Open SQL, oConn, 3, 3
%>

Si ahí no te marca error vamos bien, lo que puede ser es que la tabla usuarios esté vacía?

Ok, entonces ya está solucionado