Response.Cookies("fett_god_kaka").Expires="July 29, 2005"
Den kakan håller ett år i alla fall...
MSDN rockar...
Frågan#1
På mina sidor använder jag detta för att styra tiden innan cookies dör ut: Session.TimeOut=60
Men på tex web wiz forum lyckas dom ha cookies som överlever alla tids gränser. Jag skulle villa ha så på min inloggning också men vet inte hur jag ska lösa det..
Vill att har man loggat in 1 ggr ska man vara inloggade jämt.
Hur gör jag? Min kod ser ut så här.
<%
Function secure(txt)
txt = Replace(txt, "'", "''")
secure = txt
End Function
Session.TimeOut=120
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\webb\sat\db\admin.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset")
anvNamn = secure(Request.Form("anvnamn"))
losenord = secure(Request.Form("losenord"))
SQL = "SELECT niva FROM admin WHERE anvnamn='" & anvnamn & "' AND losenord='" & losenord &"'"
RecSet.Open SQL, Connect, 3, 3
If not RecSet.EOF Then
Session("niva") = RecSet("niva")
If RecSet("niva")="3" Then
strPage="joker.asp"
elseIf RecSet("niva")="4" Then
strPage="joker.asp"
End If
' Här loggas IP när rätt lösenord och password angetts
SQL = "INSERT INTO iplogg([username],[ip],[loginstatus],[tid]) values ('"& anvnamn &"','"& Request.Servervariables("REMOTE_ADDR") &"','OK',#"& now() &"#)"
Connect.execute(SQL)
Response.Redirect strPage
else
' Här loggas IP när fel lösenrod och password angetts
query="INSERT INTO iplogg([username],[ip],[loginstatus],[tid]) values ('"& anvnamn &"','"& Request.Servervariables("REMOTE_ADDR") &"','Fail',#"& now() &"#)"
Connect.Execute(query)
end if
RecSet.Close : set recset = nothing
Connect.Close : set connect = nothing
Session("session") = "fel användarnamn eller lösenord"
Response.Redirect "index.asp"
%>