View Single Post
  #1 (permalink)  
Old November 16th, 2004, 12:40 AM
HaverkPJ HaverkPJ is offline
Registered User
 
Join Date: Nov 2004
Location: Hudsonville, MI, USA.
Posts: 2
Thanks: 0
Thanked 0 Times in 0 Posts
Default 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!


Reply With Quote