I'm having some problems with my script for changing a password in my application. I have attched both the script and error message below, and would be very grateful if you could have a look at my script to se where I am going wrong.
<%
Dim objconn, objRS, strconn, strout, strQ
Dim loginField, passwordField
loginField = Request.Form("login"
passwordField = Request.Form("password"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
Set objconn = Server.CreateObject("ADODB.Connection"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
strconn = "DSN=Worry-not; Database=tdotcom;"
strconn = strconn & "UID=;PWD=;"
objconn.Open strconn
Set objRS = Server.CreateObject("ADODB.Recordset"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
Set objRS.ActiveConnection = objconn
strQ = "SELECT * FROM Password "
strQ = strQ & "WHERE Username = '" &loginField& "' AND Passwd = '" & Request.Form("oldpassword"
& "' "
strQ = strQ & "AND '" & Request.Form("newpassword1"
= Request.Form("newpassword2"
& "' "
objRS.Open strQ <<<***This is Line 19***>>>
If Request.Form("login"
= objRS("Username"
AND Request.Form("oldpassword"
= objRS("Passwd"
AND Request.Form("newpassword1"
= Request.Form("newpassword2"
then
SQL = "UPDATE Password SET Passwd = '" & Request.Form("newpassword2"
& "' WHERE Username = '" & Request.Form("login"
& "'"
objconn.Execute(SQL)
Response.redirect ("updated.asp"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
Else
Response.redirect ("passchange2.asp"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
End if
objRS.Close
objconn.Close
Set objRS = Nothing
Set objconn = Nothing
%>
This is the error that I get:-
Error Type:
ADODB.Recordset (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/Project1_Local/passchange1.asp, line 19
Thank you for your time.
<%
Dim objconn, objRS, strconn, strout, strQ
Dim loginField, passwordField
loginField = Request.Form("login"
passwordField = Request.Form("password"
Set objconn = Server.CreateObject("ADODB.Connection"
strconn = "DSN=Worry-not; Database=tdotcom;"
strconn = strconn & "UID=;PWD=;"
objconn.Open strconn
Set objRS = Server.CreateObject("ADODB.Recordset"
Set objRS.ActiveConnection = objconn
strQ = "SELECT * FROM Password "
strQ = strQ & "WHERE Username = '" &loginField& "' AND Passwd = '" & Request.Form("oldpassword"
strQ = strQ & "AND '" & Request.Form("newpassword1"
objRS.Open strQ <<<***This is Line 19***>>>
If Request.Form("login"
SQL = "UPDATE Password SET Passwd = '" & Request.Form("newpassword2"
objconn.Execute(SQL)
Response.redirect ("updated.asp"
Else
Response.redirect ("passchange2.asp"
End if
objRS.Close
objconn.Close
Set objRS = Nothing
Set objconn = Nothing
%>
This is the error that I get:-
Error Type:
ADODB.Recordset (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/Project1_Local/passchange1.asp, line 19
Thank you for your time.