Application
Hvorfor virker dette ikke:Application(\"request(\"id\")\") = id(\"id\")
Når dette virker:
Session(\"validlogin\") = id(\"id\")
Hele koden ser sådan ud:
<%
Session(\"brugernavn\") = Request.Form(\"user\")
Session(\"password\") = Request.Form(\"password\")
brugernavn = Session(\"brugernavn\")
password = Session(\"password\")
IF Session(\"brugernavn\") = \"\" or Session(\"password\") = \"\" THEN
Response.Redirect(\"fejl.asp?fejl=nothing\")
END IF
If Len(Session(\"brugernavn\")) > 0 And Len(Session(\"password\")) > 0 THEN
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"login.mdb\")
set id = myConn.Execute(\"SELECT id,brugernavn,password FROM info WHERE brugernavn = \'\"& brugernavn &\"\' AND password = \'\"& password &\"\'\")
If Not (id.BOF Or id.EOF) Then
Session(\"validlogin\") = id(\"id\")
Application(\"request(\"id\")\") = id(\"id\")
response.redirect(Request.form(\"backto\"))
Else
Response.Redirect(\"fejl.asp?fejl=forbudt\")
myConn.Close
Set myConn = Nothing
END IF
end if
%>
