I tried to add the password that the users setup into the database. Basically, they entered their Alias, now
they have an opportunity to setup their password. This is the code that I have... But somehow it gives me
the following error message when I run it:
Error = "Operation must use an updateable query"
Here are my codes:
<%
Option Explicit
Dim strConnect
%>
<!-- METADATA TYPE = "typelib" FILE = "C:\Program Files\Common Files\System\ado\msado15.dll" -->
<html>
<head>
<title> Add User's Password Info </title>
</head>
<body>
<%
Dim objRS, objConn,
strConnect = "Driver={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & Server.MapPath("Login.mdb"
&";" & _
"Persist Security Info = False"
Set objConn = Server.CreateObject("ADODB.Connection"
Set objRS = Server.CreateObject("ADODB.Recordset"
objConn.open strConnect
objRS.Open "tblLoginInfo", objConn, adOpenForwardOnly, adLockOptimistic, adCmdTable
objRS.Filter = "Alias = '" & Session("Alias"
& "'"
objRS("Password"
= Request.QueryString("PWord"
objRS.Update
objRS.Close
objConn.Close
Set objRS = Nothing
Set objConn = Nothing
Response.Redirect "menu.asp"
%>
</body>
</html>
I don't know what I am doing wrong, please help!!!
-d1004
they have an opportunity to setup their password. This is the code that I have... But somehow it gives me
the following error message when I run it:
Error = "Operation must use an updateable query"
Here are my codes:
<%
Option Explicit
Dim strConnect
%>
<!-- METADATA TYPE = "typelib" FILE = "C:\Program Files\Common Files\System\ado\msado15.dll" -->
<html>
<head>
<title> Add User's Password Info </title>
</head>
<body>
<%
Dim objRS, objConn,
strConnect = "Driver={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & Server.MapPath("Login.mdb"
"Persist Security Info = False"
Set objConn = Server.CreateObject("ADODB.Connection"
Set objRS = Server.CreateObject("ADODB.Recordset"
objConn.open strConnect
objRS.Open "tblLoginInfo", objConn, adOpenForwardOnly, adLockOptimistic, adCmdTable
objRS.Filter = "Alias = '" & Session("Alias"
objRS("Password"
objRS.Update
objRS.Close
objConn.Close
Set objRS = Nothing
Set objConn = Nothing
Response.Redirect "menu.asp"
%>
</body>
</html>
I don't know what I am doing wrong, please help!!!
-d1004