'Temporary (volatile) Jet DSN for process 0xd40

[NicktheNewbie]

'Temporary (volatile) Jet DSN for process 0xd40 Thread 0xb20 DBC 0x23c7024 Jet'.

I get the following error:

The page cannot be displayed
There is a problem with the page you are trying to reach and it cannot be displayed.

--------------------------------------------------------------------------------

Please try the following:

Click the Refresh button, or try again later.

Open the

http://www.smartech-csi.com

home page, and then look for links to the information you want.
HTTP 500.100 - Internal Server Error - ASP error
Internet Information Services

--------------------------------------------------------------------------------

Technical Information (for support personnel)

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0xd40 Thread 0xb20 DBC 0x23c7024 Jet'.
/logger.asp, line 7


Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

Page:
POST 26 bytes to /logger.asp

POST Data:
uname=employeelogon&pword=

Time:
Monday, May 10, 2004, 1:56:18 PM

More information:
Microsoft Support





Here is my code:
<%
Dim objConn, objRS
Dim strConn, strSQL
Set objConn = Server.CreateObject("ADODB.Connection")
strConn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Inetpub\

http://wwwroot\smartech.mdb"

'strConn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Inetpub\

http://wwwroot\smartech.mdb"

objConn.Open(strConn)
strSQL = "SELECT * FROM Employees WHERE uname = '" & Request("uname") &_
"' AND pword = '" & Request("pword") & "'"
Set objRS = objConn.Execute(strSQL)
If objRS.EOF = TRUE AND objRS.BOF = TRUE Then
Response.Redirect("login.asp?x=y")
Else
Response.Redirect("logged.htm")
End If
'Response.Write Request("uname")
'Response.Write Request("pword")
'Response.End

%>



This used to work fine, but all of a sudden, quit on me.
Any suggestions?

 

[CassidyHunt]

INstead of using ODBC try this..

<%
dim cn
dim rs

set cn = Server.Createobject("ADODB.connection")
set rs = Server.Createobject("ADODB.recordset")

with cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Connectionstring = "C:\Inetpub\

http://wwwroot\smartech.mdb"

.open
end with

strSQL = "SELECT * FROM Employees WHERE uname = '" & Request("uname") &_
"' AND pword = '" & Request("pword") & "'"

rs.open strSQL,cn,1,3

'Add the rest of the code later
%>

Just make sure you allow appropriate permissions to the database. If you have to use ODBC you can change the connection string to utilize ODBC. If you need that code let me know.

cassidy