Variable sessión

[Korku]

ACCESO.ASP


<%if request.form("usuario")="" then%>

'................................................. ........
USUARIO
CONTRASEÑA
'................................................. .........

<%else

usuario=replace(request.form("usuario"),"'","")
password=replace(request.form("password"),"'","")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("usuarios.mdb"))
set rs = CreateObject("ADODB.Recordset")
sqltxt="Select * from usuarios where usuario='"&usuario&"' and password= '"&password&"'"
'response.write sqltxt
rs.Open sqltxt, conn
if not rs.eof then

if rs("usuario")=usuario and rs("password")=password then
' si el usuario esta en la base de datos y la password coincide
session("usuario")=1

'...............................................
MENU SECCIONES

'...............................................



end if
else

session("usuario")=-1

end if
rs.close
set rs=nothing
conn.close
set conn=nothing
if session("usuario")=-1 or session("usuario")="" then

'Usuario inexistente o contraseña incorrecta

end if

end if%>


Y RESTO DE LAS PAGINAS

<% if session("usuario")<>1 then
response.redirect "acceso.asp"
else
'CONTENIDO DE LA PAGINA
%>

Cuando escogo una seccion y quiero volver al menu ... automaticamente me aparece la pagina para identificar ...