Session script - Problem
Nu har jeg snart bøvlet i 4 timer..!Kan nogen se hvad der er galt her??
login.asp:
<%
if request ("mode") = "login" then
' Opretter forbindelse til databasen
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("login/database.mdb")
Conn.Open DSN <--- Linie 12 (se længere nede)
'ændre imput
Login = Trim(Replace(Request.Form("Login"),"'","''" ))
Password = Trim(Replace(Request.Form("Password"),"'","''" ))
'Opbygger Sql-sætningen
rsSQL = "SELECT * FROM admin where Login = '" & Login & "' and Password = '" & Password & "'"
' hvis brugeren var i databasen
set rs = Conn.execute(rsSQL)
If Not (rs.BOF Or rs.Eof) Then
Session("ID") = rs("ID")
session("login") = True
Response.redirect "login/logged.asp"
Else
' Hvis brugeren ikke var i databasen
Response.redirect "login/Login.asp"
End If
' Lukker forbindelse til databasen
Conn.Close
Set Conn = Nothing
End if
%>
Og her er fejlen den kommer med:
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 0x1094 Thread 0x300 DBC 0x42bdd2c Jet'.
/login/logged.asp, line 12
----------------------------------------------
Det kan testes på www.gigahamster.dk brug admin/123
Plz kom med en hjælpende hånd! :)
