akrashdi
10-10-2006, 04:44 PM
I'm trying to increase session time but it logs me out after few minutes. Heres the code :
<%
'-------LOGIN AND SESSION
If Session("user_name") = "" then
user_name = Request("user_name")
password = Request("password")
Set stafflogin = Server.CreateObject("ADODB.Recordset")
stafflogin.ActiveConnection = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\business\caravanhajj.com\private\hajjdb.mdb"
stafflogin.Source = "SELECT * FROM staff WHERE user_name = '" & user_name & "' AND password = '" & password & "'"
stafflogin.Open
If stafflogin.EOF then
Response.redirect("staff_login.asp?cp=10")
else
Session("user_name") = user_name
End if
elseif Session("user_name") <> "" then
Set stafflogin = Server.CreateObject("ADODB.Recordset")
stafflogin.ActiveConnection = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\business\caravanhajj.com\private\hajjdb.mdb"
stafflogin.Source = "SELECT * FROM staff WHERE user_name = '" & Session("user_name") & "'"
stafflogin.Open
user_name = Session("user_name")
End if
Session.Timeout=200
%>
<%
'-------LOGIN AND SESSION
If Session("user_name") = "" then
user_name = Request("user_name")
password = Request("password")
Set stafflogin = Server.CreateObject("ADODB.Recordset")
stafflogin.ActiveConnection = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\business\caravanhajj.com\private\hajjdb.mdb"
stafflogin.Source = "SELECT * FROM staff WHERE user_name = '" & user_name & "' AND password = '" & password & "'"
stafflogin.Open
If stafflogin.EOF then
Response.redirect("staff_login.asp?cp=10")
else
Session("user_name") = user_name
End if
elseif Session("user_name") <> "" then
Set stafflogin = Server.CreateObject("ADODB.Recordset")
stafflogin.ActiveConnection = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\business\caravanhajj.com\private\hajjdb.mdb"
stafflogin.Source = "SELECT * FROM staff WHERE user_name = '" & Session("user_name") & "'"
stafflogin.Open
user_name = Session("user_name")
End if
Session.Timeout=200
%>