Usuario Password Y Perfil

[bechaker]

Hola:

Necesito su ayuda, quiero que al ingresar a una página por usuario y password, la pagina valide el Perfil que registra la Base de datos, por ejemplo, si el usuario " Pepe" tiene perfil: 01, pueda entrar sin problemas a una pagina "x", pero si su perfil es :02, no pueda entrar.-

Espero que alguien me pueda ayudar.

Gracias.-

[Saruman]

con un simple IF puedes hacerlo o un select case

haces el select del usuario:
select * from usuarios where login='" & login & "' and password='" & password & "'"
ejectuas el sql y haces la validacion que exista o no:

if RS.bof=false and RS.eof=false then
select case RS("tipo_usuario")
case 1
tipo_usuario = "Administrador"
case 2
tipo_usuario = "Colaborador"
case 2
tipo_usuario = "Usuario_Normal"
end select
end if

te lo puse bien resumido solo enfocandome en lo que pides... si tienes problemas o no entiendes algo me avisas

[bechaker]

Cuando probe tu codigo, me arrojo error, me dice que RS no esta definido y no se como definirlo, ¿Me podrias decir como?

[Aibarra.net]

Buenas,

para empezar con lo más básico de ASP puedes pasar por www.aspfacil.com y repasar los artículos sobre acceso a bases de datos.

[Saruman]

aqui esta el codigo:

Código:

<%
	DBPath = "usuarios.mdb"
	Set Master = Server.CreateObject("ADODB.Connection")
	Master.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(DBPath))
	
	sw = request("sw")
	usuario = request.Form("txtusuario")
	password = request.Form("txtpassword")
	existe = true
	
	if sw = 1 then
		sSQL = "select * from usuarios where us='" & usuario & "' and psw='" & password & "'"
		set RSUsuarios = Master.Execute(sSQL)
		
		if RSUsuarios.bof=false and RSUsuarios.eof=false then
			select case RSUsuarios("perfil")
				case "us_unificado"
					session("perfil") = "us_unificado"
					response.Redirect("pagina_de_unificado.asp")
				case "us_admin"
					session("perfil") = "us_admin"
					response.Redirect("pagina_de_admin.asp")
				case "us_pyme"
					session("perfil") = "us_pyme"
					response.Redirect("pagina_de_pyme.asp")
			end select
		else
			existe = false
		end if
	end if

	if existe = true then
%>

<form name="form1" method="post" action="login.asp?sw=1">
  <table width="500" border="0" align="center" cellpadding="2" cellspacing="2">
    <tr>
      <td width="127">Usuario:</td>
      <td width="359"><input type="text" name="txtusuario"></td>
    </tr>
    <tr>
      <td>Password:</td>
      <td><input type="text" name="txtpassword"></td>
    </tr>
    <tr>
      <td height="44" colspan="2" align="center"><input type="submit" name="Submit" value="Entrar"></td>
    </tr>
  </table>
</form>

<%
	else
%>

<table width="500" align="center" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td align="center">La combinación de Usuario y Passowrd es incorrecta.  Por favor, intentelo nuevamente</td>
  </tr>
</table>

<%
	end if
%>

espero te sirva

[bechaker]

No te preocupes, Saruman me ayuda con esto. De todas formas Gracias por no ayudarme en nada.-