Session. Timeout (não Funfa?)

[ratocuiara]

porque não está funfando?

A session expira em 3 minutos ao invez de 20 minutos. vejam o código.

<!--#INCLUDE file="1login_config.asp"-->
<%
strUserName = request.form("UserName")
strPassword = request.form("Password")
attemptedPage = request.form("attemptedPage")

Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM tabusuario WHERE usuario ='" & strUserName & "'"
conn.Open dsn
rs.open sql, conn
If NOT rs.EOF Then


If strPassword = rs("senha") Then
    Session.Timeout=20
    Session("UserName") = strUserName
        Session("UserLevel") = CInt(rs("lvl"))
        Session("status") = CInt(rs("status"))        
    Session("eml") = rs("EMail")
    
    if attemptedPage="none" then
    if session("status") = 2 then
    response.redirect("inativo.asp?usuario="&session("username")&"")    
    end if    
    if session("status") = 3 then
    response.redirect("bloqueado.asp?usuario="&session("username")&"")    
    end if    
    
      if Session("UserLevel") = 3 then response.redirect (""& adminpage &"")
      Response.Redirect (""& membersonly &"")
    else
      Response.Redirect (""& attemptedPage &"")
    end if
        
End If

Else
Session("UserName") = "[Not Logged In]"
Session("UserLevel") = 0
Response.Redirect "login.asp?stat=badname&attemptedPage="&attemptedPage
End If
    
Session("UserName") = strUserName
Session("UserLevel") = 0
response.redirect "login.asp?stat=re-enter&attemptedPage="&attemptedPage
%>

[Marcio-Free-lance]

oi como vai, espero que estja bem.

tenta usar isto.....global.asa

<script RUNAT=server LANGUAGE="VBScript">

Sub Application_OnStart

' coloquei a Application caso você for usar

Application.Lock

Application("NOME_CAMPO") = 0

Application.UnLock

End Sub

sub Session_OnStart

Session.timeout = 60

Application.Lock

' coloquei a Application caso você for usar

Application("NOME_da aplicação") = Application("NOME_da aplicação") + 1

Application.UnLock

end sub

sub Session_OnEnd

Session.timeout = 60

Application.Lock

Application("NOME_da aplicação") = Application("NOME_da aplicação") - 1

Application.UnLock

end sub

</SCRIPT>

[ratocuiara]

Não é isso que eu quero.

O que eu quero é saber oque está errado no código que eu postei acima. porque não está dando certo o session.timeout=20.

Mas valeu.