ASP - ninguno

 
Vista:

ninguno

Publicado por Jaime (3 intervenciones) el 21/08/2004 01:26:42
Haber si alguin me dpuede ayudar con este problema, tengo un asp que valida el usuario y password, pero necesito que dependiendo el nivel del usuario (admin, cliente, usuario) se vaya a su respectivo menu

la tabla tien los siguientes campos: nombre, idusuario, passusuario y nivelusuario

este es el codigo:

<%
' miro a ver si la autentificacione es correcta
'creo una sentencia SQL con los datos recibidos
ssql = "select * from USUARIOS where id_usu='" & request.form("usuario") & "' and pass_usu='" & request.form("contrasena") & "'"
'conecto y extraigo de la base de datos
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Mibase"
set RS = Conn.Execute(sSQL)

if (not RS.eof) then
if RS("niv_usu")=admin then <=========== esto trate de hacer pero no me funciona ========>
'if(niv_usu== ADMIN) then
session("autentificado") = "si"
response.redirect "Menu Principal Clientes.html"
end if
'redirecciono a la página de la aplicación
'response.redirect "Principal.htm"
'end if
else
response.redirect "index.asp?errorusuario=si"
end if

'cierro la conexion con base de datos
Conn.Close
%>
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ninguno

Publicado por Luis godoy (107 intervenciones) el 23/08/2004 23:14:16
'si es que el nivel de usuario lo tuvieras en forma de texto
'si no NOP
<%
' miro a ver si la autentificacione es correcta
'creo una sentencia SQL con los datos recibidos
ssql = "select * from USUARIOS where id_usu='" & request.form("usuario") & "' and pass_usu='" & request.form("contrasena") & "'"
'conecto y extraigo de la base de datos
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Mibase"
set RS = Conn.Execute(sSQL)

if (not RS.eof) then
if ucase(RS("niv_usu"))="ADMIN" then
session("autentificado") = "si"
response.redirect "Menu Principal Clientes.html"
else
response.redirect "index.asp?errorusuario=si"
end if
end if
Conn.Close
%>
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar