Microsoft JET Database Engine (0x80040E14)
Can anyone help with the following error?
HTTP 500.100 - Internal Server Error - ASP error
Internet Information Services
---------------------------------------------------------------------
Technical Information (for support personnel)
Error Type:
Microsoft JET Database Engine (0x80040E14)
Internal OLE Automation error
/depts/pharmacy/risklink/login_post.asp, line 56
The Access 2000 query SQL is as follows:
PARAMETERS [USERNAME] Text ( 255 ), [PWORD] Text ( 255 );
SELECT *
FROM Staff_Members
WHERE (((Staff_Members.UserName)=[USERNAME]) AND ((Staff_Members.Pwd)=[PWORD]) AND ((Staff_Members.Status)<>1));
Code from the page is as follows:
Dim cn
Dim cmd
Dim objParam
Dim objParam_pwd
Dim rsAuthenticated
'Open connection
Set Cn = Server.CreateObject("adodb.connection")
cn.provider = ps & " Data Source=" & Server.MapPath(ds)
cn.Open
'Create command to view the current topics
Set cmd = Server.CreateObject("adodb.command")
Set cmd.ActiveConnection = cn
cmd.CommandText = "qryStaffMember_Authenticate"
cmd.CommandType = adCmdStoredProc
'Create the parameters
Set objParam = cmd.CreateParameter
objParam.name = "USERNAME"
objParam.type = adVarChar
objParam.direction = adParamInput
objParam.size = 10
objParam.value = Cstr(Request.Form("txtUserName"))
'Append the parameter to the command object
cmd.Parameters.append objParam
Set objParam_pwd = cmd.CreateParameter
objParam_pwd.name = "PWORD"
objParam_pwd.type = adVarChar
objParam_pwd.direction = adParamInput
objParam_pwd.size = 10
objParam_pwd.value = CStr(Request.Form("txtPwd"))
'Append the parameter to the command object
cmd.Parameters.append objParam_pwd
'Create the recordset
Set rsAuthenticated= Server.CreateObject("adodb.recordset")
rsAuthenticated.CursorType = adOpenForwardOnly
rsAuthenticated.LockType = adLockReadOnly
Set rsAuthenticated = cmd.Execute() <-- line 56 -
Runs on Windows 2000. Does not run on Win XP SP2.
Any help would be greatly appreciated!
|
