Problemer!!!
Hvis der lige er en der har tid og lyst itl at kigge på denne kode - den gider nemlig ikke som jeg vil!!<html>
<body>
<% ' Databaseforbindelse oprettes
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db1.mdb")
Conn.Open DSN
Response.Buffer = True
mode = Request("mode")
if mode = "" then
strSQL = select * from users where user = Request.Cookies("AsdevUser")("navn") and pass Request.Cookies("AsdevUser")("pass")
If rs.EOF or rs.BOF Then
' Hvis korrekt sættes session til JA
Session("user") = "JA"
Session.Timeout = 60
Else %>
<form method="post" action="default.asp?mode=login">
<table border="1">
<tr><td>Login:</td><td><input type="text" name="login"></td></tr>
<tr><td>Password:</td><td><input type="text" name="password"></td></tr>
<tr><td>Gem login <input type="checkbox" name="save"></td><td align="right"><input type="submit" value="Login"></td></tr>
</form>
<% end if
elseif mode = "login" and Request.ServerVariables("REQUEST_METHOD") = "POST" then
strSQL = select * from users where username = Request.Form("navn") and where pass = Request.Form("pass")
If rs.EOF or rs.BOF Then
' Hvis korrekt sættes session til JA
Session("user") = "JA"
Session.Timeout = 60
end if
If Request.Form("save") = "yes" and Session("user") = "JA" then
Request.Cookies("AsdevUser")("user") = ('" & Request.Form("user") & "')
Request.Cookies("AsdevUser")("pass") = ('" & Request.Form("pass") & "')
Response.Cookies("AsdevUser").Expires = Date+365
end if
elseif mode = "loggedin" then
If Session("user") <> "JA" Then
Response.redirect "testlogin.asp"
End If %>
Du er nu logget ind!!
<% end if
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
