ADODB.Field (0x800A0BCD)
El valor de BOF o EOF es True, o el actual registro se eliminó; la operación solicitada requiere un registro actual.
hola amigo ese problema me esta matando...
aqui coloco el codigo..
<%@ Language="VBScript" %>
<% Option Explicit %>
<%
Dim user,pass
user = LCASE(Request.Form("username"))
pass = Request.Form("password")
%>
<!--#include file="dbconn.asp"-->
<%
IF user = "" Then
error("emptyuname")
ELSEIF pass = "" Then
error("emptypass")
ELSE
IF user = "admin" Then
Dim sql,rsUser,lpass
sql = "SELECT pass FROM Users WHERE username = 'admin'"
Set rsUser = Server.CreateObject("ADODB.Recordset")
rsuser.Open sql, dbconn, 3, 3
lpass = rsUser("pass")
rsUser.close
set rsUser = nothing
IF pass = lpass Then
Session("username") = "admin"
Response.Redirect("index.asp")
ELSE
error("wrongp")
END IF
ELSE
error("wrongu")
END IF
END IF
%>
<%FUNCTION error(calltype)%>
<!--#include file="head.asp"-->
<br><br><br>
<table Align="center" vAlign="center" width="500">
<tr>
<td Align="center">
<h3>LOGIN ERROR</h3>
</td>
</tr>
<tr>
<td Align="center">
<%IF calltype = "emptyuname" Then%>
<font size="2">You can`t enter any username in username field.</font>
<%ELSEIF calltype = "emptypass" Then%>
<font size="2">You can`t enter any password in password field.</font>
<%ELSEIF calltype = "wrongp" Then%>
<font size="2">Your password is wrong.</font>
<%ELSEIF calltype = "wrongu" Then%>
<font size="2">This section is only for Admin.</font>
<%END IF%>
</td>
</tr>
</table>
<br><center><a href="javascript
:history.back()"> Please click here to go back and make changes</a> </center>
<!--#include file="footer.asp"-->
<%END FUNCTION%>
no se como arreglar esto.... pueden mirar el codigo y decirme que pasa ..