Jag får det här felmeddelandet:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Drivrutin för ODBC Microsoft Access]Allmänt fel Det går inte att öppna registernyckeln 'Temporary (volatile) Jet DSN for process 0x230 Thread 0x6d4 DBC 0x11a7634 Jet'.
/test/login_check.asp, line 3
så här ser det ut på rad 3
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("members.mdb")&";pwd=test"
Det brukade funka förut!
Sår här der det ut på hela:
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("members.mdb")&";pwd=test"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From members"
RecSet.Open Addera, Connect, 3, 3
Do Until RecSet.EOF
If RecSet("status") = "online" AND DateDiff("n", RecSet("senast"), Now) > 45 Then
RecSet("status") = "offline"
RecSet.Update
End If
RecSet.MoveNext
Loop
RecSet.Close
RecSet.Open Addera, Connect, 3, 3
Do Until RecSet.EOF
If RecSet("username") = Request.Form("username") AND RecSet("losen") = Request.Form("losen") Then
RecSet("datum") = Now
RecSet("status") = "online"
RecSet.Update
Session("namn") = RecSet("fnamn") & " " & RecSet("enamn")
Session("fnamn") = RecSet("fnamn")
Session("enamn") = RecSet("enamn")
Session("username") = RecSet("username")
Session("login") = "ok"
Session("id") = RecSet("id")
Session("status") = "online"
Session("epost") = RecSet("epost")
Session.TimeOut = 40 '<-- Kontrollera
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
Response.Redirect "huvudsida.asp"
End If
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
Session("meddelande") = "Tyvärr! Fel användarnamn eller lösenord. Försök igen!"
Response.Redirect "default.asp"
%>