Restringir acceso a usuarios que no són administradores

[Prefontaine]

Tengo este codigo el problema es que acceden todos los usuarios a la seccion.

<%else
Username=replace(request.form("Username"),"'","")
password=replace(request.form("password"),"'","")
%>
<!-- #INCLUDE FILE="../conexiones/conexion2.asp" -->
<%
set rs = CreateObject("ADODB.Recordset")
sqltxt="Select * from tblAuthor where Username='"&Username&"' and password= '"&password&"'"
rs.Open sqltxt, conn2
if not rs.eof then

if rs("Username")=Username and rs("password")=password then

session("autorizacion")=1
response.redirect "crear_equipo.asp"
end if
else
session("autorizacion")=-1

end if
rs.close
set rs=nothing
conn2.close
set conn2=nothing
if session("autorizacion")=-1 or session("autorizacion")="" then
response.redirect "login.asp?msg=Usuario%20o%20password%20incorrecto s"
end if

end if%>

Y este es el codigo que recoge los datos en otra pagina
<% language="vbscript"%>
<% if session("autorizacion")<>1 then
response.redirect "../../admin/login.asp"
end if%>

[ludovico2000]

Puedes poner otro campo en la base de datos del tipo administrador SI/NO y hacer una condición más recuperando ese valor, una vez que es correcto usuario y password.

[Potro]

lo que yo hago es poner un campo mas del nivel_usuario.

lo que podrias hacer es esto.

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

if rs("usuario")=usuario and rs("clave")=clave then

session("nivel")=rs("nivel_usuario")
response.redirect "intro.asp"
end if
else
session("nivel")=-1

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

response.redirect "default.asp?msg=usuario%20o%20clave%20incorre cta"
end if

end if%>

[Potro]

y en tus paginas pones:

<% If session("nivel")<"2" then
response.write ("Usted no tiene autorizción para estar en esta sección.")
else
%>

si el usuario es nivel 1 no podra entrar a esta pagina o bien si quieres que entre le pones que <% If session("nivel")="1" then

Saludos...