---

Hej

Jeg har en hjemmeside kørende med et login script, hvilket også virker - men har man været inaktiv i nogle minutter skal man logge på igen. Jeg vil gerne forlænge tiden inden den logger automatisk af, men kan ikke se mig ud af dette problem.
Jeg håber der sidder en der ude som har tid til at se lidt på min koder.......

///////////////////////////////////////////////////
default.asp - (siden hvor login oplysninger skrives af brugeren)

<td style="width: 464px" valign="top">
<form name="Login" method="post" action="bruger.asp">
Login form<br>
</span>Write username and password<br>
<br>
<fieldset style="width: 252px; height: 191px">
<table width="129%" id="table1" class="style1" style="height: 80px">
<tr>
<td style="width: 81px" valign="top">
<label for="t1">&nbsp; Username:&nbsp;&nbsp; </label></td>
<input type="text" id="t1" name="txtUserName" size="29" style="height: 20px" /></td>
<td style="width: 81px" valign="top">
<label for="t2">&nbsp; Password:&nbsp;&nbsp; </label></td>
<input type="password" id="t2" name="txtUserPass" size="30" style="height: 20px" /></td>
</table>
</fieldset>

///////////////////////////////////////////////////////////////
bruger.asp (bruger login kontrolleres)

<%
Dim adoCon
Dim strCon
Dim rsCheckUser
Dim strAccessDB
Dim strSQL
Dim strUserName

strUserName = Request.Form("txtUserName")

strAccessDB = "XXXXXX.mdb"

Set adoCon = Server.CreateObject("ADODB.Connection")

strCon = "DRIVER={Microsoft Access Driver (*.mdb)};uid=;pwd=letmein; DBQ=" & Server.MapPath(strAccessDB)

adoCon.Open strCon

Set rsCheckUser = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT * FROM tblUsers WHERE tblUsers.UserID ='" & replace(strUserName, "'", "''") & "'"

rsCheckUser.Open strSQL, strCon

If NOT rsCheckUser.EOF Then

If (Request.Form("txtUserPass")) = rsCheckUser("Password") Then

Session("blnIsUserGood") = True

if rsCheckUser("STATUS") = 0 then session("login")="0"
if rsCheckUser("STATUS") = 1 then session("login")="1"
if rsCheckUser("STATUS") = 2 then session("login")="2"
if rsCheckUser("STATUS") = 3 then session("login")="3"
if rsCheckUser("STATUS") = 5 then session("login")="5"

Set adoCon = Nothing
Set strCon = Nothing
Set rsCheckUser = Nothing

Response.Redirect"index.asp?name=" & strUserName
End If
End If

Set adoCon = Nothing
Set strCon = Nothing
Set rsCheckUser = Nothing

Session("blnIsUserGood") = False

Response.Redirect"fejl.asp"
%>

///////////////////////////////////////////////////////////////////////////
index.asp (følgende kode er på alle sider der er beskyttet af password)

<%
If Session("blnIsUserGood") = False or IsNull(Session("blnIsUserGood")) = True then
Response.Redirect"fejl.asp"
End If
%>

<%
Response.Buffer=False
Response.ExpiresAbsolute = #1980-01-01#
Response.AddHeader "pragma", "no-cache"
Response.AddHeader "cache-control", "no-cache"
Response.AddHeader "cache-control", "no-store"
Response.CacheControl = "Private"
%>




hvor ligger "timer" indstillingen henne?????


Med venlig hilsen
Maddog

---

i bruger.asp kan du sætte
Session.Timeout = 10

ind i en linie for sig selv - 10 er antal minutter en session kan vare. Standard er 20 minutter på de fleste servere, men på hoteller kommer det an på hvad udbyderen har sat det til.

---

Hov var lidt for hurtig til at sende....

Response.ExpiresAbsolute = #1980-01-01#
mit gæt er at det er denne linje - men hvad skal den ændres til, hvis der evt. skal gå 3 timer inden man bliver logget af?

/Maddog

---

OK Smorch

du var lige lidt hurtigere end jeg , jeg prøver lige dit forslag med det samme

---

Tak for svaret smorch. det var lige det jeg skulle bruge

/Maddog

---

Fedt - og kom så ud i solen

Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.