Hello Everyone.. I've been working on this for weeks. Well here it goes. I've created a .asp logon page with finally loaded properly on our website (www.CREtool.com). When clicking on client list (on the home page) then Progressive Insurace the log on page opens. Now the problem is that it's supposed to look at the .mdb file and check to see if the user and password are correct then direct them to the correct page. Well it's not working. It says that the error is in my logon.inc page...???? Here is the code that is in my logon.inc page. I'm new at all this and I don't understand I've tried everything... Please help!!! :(.

P.S this is the error message (Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x6cd4 Thread 0x4b7c DBC 0xaed43b4 Jet'.

/logon/_private/logon.inc, line 32

AND THIS IS THE CODE.....


<%
  ' Do not cache this page.
  Response.CacheControl = "no-cache"

  ' Define the name of the users table.
  Const USERS_TABLE = "tblUsers"
  ' Define the path to the logon page.
  Const LOGON_PAGE = "/logon/logon.asp"
  ' Define the path to the logon database.
  Const MDB_URL = "/logon/_private/logon.mdb"

  ' Check to see whether you have a current user name.
  If Len(Session("UID")) = 0 Then
    ' Are you currently on the logon page?
    If LCase(LOGON_PAGE) <> LCase(Request.ServerVariables("URL")) Then
      ' If not, set a session variable for the page that made the request...
      Session("REFERRER") = Request.ServerVariables("URL")
      ' ...and redirect to the logon page.
      Response.Redirect LOGON_PAGE
    End If
  End If

  ' This function checks for a username/password combination.
  Function ComparePassword(UID,PWD)
    ' Define your variables.
    Dim strSQL, objCN, objRS
    ' Set up your SQL string.
    strSQL = "SELECT * FROM " & USERS_TABLE & " WHERE (UID='" & UID & "' AND PWD='" & PWD & "');"
    ' Create a database connection object.
    Set objCN = Server.CreateObject("ADODB.Connection")
    ' Open the database connection object.
    objCN.Open "driver={Microsoft Access Driver (*.mdb)}; dbq=" & Server.MapPath(MDB_URL) & "; uid=admin; pwd="
    ' Run the database query.
    Set objRS = objCN.Execute(strSQL)
    ' Set the status to true/false for the database lookup.
    ComparePassword = Not(objRS.EOF)
    ' Close your database objects.
    Set objRS = Nothing
    Set objCN = Nothing
  End Function
%>

A couple of things:

1. you may want to do a Google search on the error you're getting. It seems that there may be a permission problem on the directory/.mdb file or this can happen if the .mdb being referenced is open in design view in MSAccess.

2. although i can't see the other code of your app or how you're using variables and functions, you may want to simplify your logic to do the pwd/uid check.

you may want to try an alternate way of connecting to your DB (e.g. not using the MapPath() function:

dbPath = "D:\Webserver\Database\yourDB.mdb"
strConnect = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath

good luck . .