By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
424,680 Members | 1,486 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 424,680 IT Pros & Developers. It's quick & easy.

problem with ADODB.Recordset (0x800A0BB9)

P: 1
I have two asp files. Login.asp and changePass.asp. what i want to do is to make the user change his password after his first login. so what happens is login.asp is the first to be used then it is passed to changePass.asp but after creating the code. I am getting this error

ADODB.Recordset (0x800A0BB9) Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

The codes are here

Login.asp

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<Title>
Login
</Title>
</HEAD>
<BODY>
<p align="center"><font color="#0000FF" size="5">Insurance System</font></p>
<hr>
<p>
<!-- #include file="adovbs.inc" -->
<%
Response.Buffer = True
If Request.Form ("Submit") <> "Login" then
Response.Cookies("username") = ""
%>
</p>
<FORM ACTION="login.asp" METHOD="post" id=form1 name=form1>
<center><TABLE BORDER=0>
<TR>
<TD ALIGN="right">Username:</TD>
<TD><INPUT NAME="user"></INPUT></TD>
</TR>
<TR>
<TD ALIGN="right">Password:</TD>
<TD><INPUT TYPE="password" NAME="password"></INPUT></TD>
</TR>
<TR>
<TD ALIGN="right"></TD>
<TD><INPUT TYPE="submit" VALUE="Login" name=Submit></INPUT>
<INPUT TYPE="reset" VALUE="Reset" id=reset1 name=reset1></INPUT>
</TD>
</TR>
</TABLE>
</FORM>
<%
Else

Dim DB_CONNECTIONSTRING, objCleanUpRS, iRecordCount, LoginSuccessful
LoginSuccessful = False

DB_CONNECTIONSTRING = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Insurance"

strSQL = "SELECT * FROM Login Where Username = '" & Request.Form("user") & "' and Password = '" & Request.Form("password") & "';"

Dim USE
Dim PAS
USE = cStr(Request.Form("user"))

Set objCleanUpRS = Server.CreateObject("ADODB.Recordset")
objCleanUpRS.Open strSQL, DB_CONNECTIONSTRING, adOpenKeyset, adLockPessimistic, adCmdText

If Not objCleanUpRS.EOF Then
LoginSuccessful=True

if objCleanUpRS.Fields("Times") <> 0 then

If LoginSuccessful then
%>
<center>
<%
Response.Write("login successful")
Response.Cookies("username") = USE
%>
<br><center><a href="#">Go to main page</a>
<%

objCleanUpRS.Close
Set objCleanUpRS = Nothing

End If

else

objCleanUpRS.Close
Set objCleanUpRS = Nothing
%>

<FORM ACTION="changePass.asp" METHOD="post" id=form1 name=form1>
<center><TABLE BORDER=0>
<TR>
Please input a new password to change your temporary password
</TR>
<TR>
<TD ALIGN="right">Password:</TD>
<TD><INPUT TYPE="password" NAME="password"></INPUT></TD>
</TR>
<TR>
<TD ALIGN="right"></TD>
<TD><INPUT TYPE="submit" VALUE="OK" name=Submit></INPUT>
<INPUT TYPE="reset" VALUE="Reset" id=reset1 name=reset1></INPUT>
</TD>
</TR>
</TABLE>
</FORM>
<%
End if

else
%>
<center>
<%
Response.Write("login unsuccessful")
%>
<FORM ACTION="login.asp" METHOD="post" id=form1 name=form1>
<center><TABLE BORDER=0>
<TR>
<TD ALIGN="right">Username:</TD>
<TD><INPUT NAME="user"></INPUT></TD>
</TR>
<TR>
<TD ALIGN="right">Password:</TD>
<TD><INPUT TYPE="password" NAME="password"></INPUT></TD>
</TR>
<TR>
<TD ALIGN="right"></TD>
<TD><INPUT TYPE="submit" VALUE="Login" name=Submit></INPUT>
<INPUT TYPE="reset" VALUE="Reset" id=reset1 name=reset1></INPUT>
</TD>
</TR>
</TABLE>
</FORM>
<%
Response.End
End If

End if
%>
</BODY>
</HTML>


and

changePass.asp

<%
Dim DB_CONNECTIONSTRING, objCleanUpRS

DB_CONNECTIONSTRING = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Insurance"

strSQL = "SELECT * FROM Login WHERE 0 = 1;"

if isNull(Request.Form("password")) <> true then

Set objCleanUpRS = Server.CreateObject("ADODB.Recordset")

objCleanUpRS.Open strSQL, DB_CONNECTIONSTRING, adOpenKeyset, adLockPessimistic, adCmdText

objCleanUpRS.Fields("Password") = Request.Form("password")

objCleanUpRS.Fields("Times") = CStr("1")

objCleanUpRS.Update

objCleanUpRS.Close
Set objCleanUpRS = Nothing

else
%>

<FORM ACTION="changePass.asp" METHOD="post" id=form1 name=form1>
<center><TABLE BORDER=0>
<TR>
Please input a new password to change your temporary password
</TR>
<TR>
<TD ALIGN="right">Password:</TD>
<TD><INPUT TYPE="password" NAME="password"></INPUT></TD>
</TR>
<TR>
<TD ALIGN="right"></TD>
<TD><INPUT TYPE="submit" VALUE="OK" name=Submit></INPUT>
<INPUT TYPE="reset" VALUE="Reset" id=reset1 name=reset1></INPUT>
</TD>
</TR>
</TABLE>
</FORM>

<%

End If
%>


please help me solve this. Thanks:)
Nov 5 '06 #1
Share this question for a faster answer!
Share on Google+

Post your reply

Sign in to post your reply or Sign up for a free account.