ODBC Drivers error '80004005'
I am receiving this error messege after uploading my asp page on my hosted web server.
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] The Microsoft Jet database engine cannot open the file '(unknown)'. It is already opened exclusively by another user, or you need permission to view its data.
/cgi-bin/usersubmit.asp, line 21
Somebody help me to get rid of this problem since I am on strict deadline to complete this assignment. I am also sending the asp code herewith:
#####################code starts ere#################################
<% @LANGUAGE=VBScript %>
<%
Dim returnValue
Dim conn
Dim comand
Dim rsCheckUser
Dim sqltxt
set conn = server.CreateObject("ADODB.Connection")
Conn.Mode = 3
set rsCheckUser = server.CreateObject("ADODB.Recordset")
'conn.Close
'set conn=nothing
conn.Open "db1"
If LCase(Request("userid")) = "cifyinfosoft" AND Request("userpass") = "administrator" Then
Session("loginfailure") = False
Response.Redirect("http://www.cifyinfosoft.com/login/adminindex.asp")
End If
rsCheckUser.CursorLocation = 3
sqltxt="SELECT * FROM registered WHERE User_Name='" & LCase(Request("userid")) & "' AND Password='" & Request("userpass") & "'"
'returnValue = rsCheckUser.Open sqltxt,conn,1,4
rsCheckUser.Open sqltxt,conn,1,4
if rsCheckUser.State=adStateOpen then
Session("loginfailure") = False
blnValidRequest = True
else
Session("loginfailure") = True
blnValidRequest = False
end if
'If returnValue = 1 Then
' Session("loginfailure") = False
' blnValidRequest = True
'Else
' Session("loginfailure") = True
' blnValidRequest = False
'End If
rsCheckUser.Close
set rsCheckUser =nothing
conn.Close
set conn=nothing
If blnValidRequest Then
Response.Redirect("http://www.cifyinfosoft.com/login/bcaindex.asp")
Else
Response.Redirect("http://www.cifyinfosoft.com/login/login.htm")
End If
%>
#####################code ends ere#################################
|