Cookie problem!
Jeg anvender cookies til at skulle gemme noget login felter, men det gider åbenbart ikke virke ! :(Her er min kode ( kan i se hvad der er galt )
KODE________________________________(logger ind)
<%
Dim fejl, username, password
fejl = false
brugernavn = Trim(Replace(Request.Form("brugernavn"), "'", "''"))
password = Trim(Replace(Request.Form("password"), "'", "''"))
If brugernavn = "" Then
Response.Write "<p><font color='#999999'>Fill in a <b>username!</b></p></font>"
fejl = true
End If
If password = "" Then
Response.Write "<p><font color='#999999'>Fill in a <b>password!</p></b></font>"
fejl = true
End If
If fejl = true Then
Response.Write "<p><a href=java script:history.back()><font size='1' face='Trebuchet MS' color='#999999'>< Back</a>"
End If
If fejl <> true Then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("databaser\users.mdb")
Conn.Open DSN
strSQL = "SELECT * FROM brugere WHERE brugernavn='" & brugernavn & "' and Password = '" & password & "'"
Set rs = Conn.Execute(strSQL)
If Not rs.eof Then
Session("userid") = true
Session("brugernavn") = rs("brugernavn")
Session("userid") = rs("id")
Conn.Execute("UPDATE brugere SET sidste_login='" & Now & "' WHERE id=" & Session("userid"))
If request.form("savelogin") = "checked" then
Response.Cookies("Brugere")("brugernavn") = session("brugernavn")
Response.Cookies("Brugere")("password") = password
Response.Cookies("Brugere").expires = Date+365
Else
Response.Cookies("Brugere").expires = Date-1000
End If
response.redirect("start.asp")
Else
Response.Write "<p><font color='#999999'>You did not login! Wrong <b>username</b> or <b>password!</b></font>"
Response.Write "<p><a href=java script:history.back()><font size='1' face='Trebuchet MS' color='#999999'>< Back</a>"
End If
Conn.Close
Set Conn = Nothing
End If
%>
KODE_________________________(forms brugernavn og password)
value="<%=Request.Cookies("Brugere")("brugernavn")%>"
value="<%=Request.Cookies("Brugere")("password")%>"
