pagina inicio.asp parte 2
'se guarda el ID DE ESTE USUARIO EN LA VARIABLE DE SESION
Session("ID_CLI")=Cstr(rs.Fields("p k_usu_login"))
if ((rs.fields("usu_tipo"))="Administr ador") then
rs.close
set rs=nothing
desconecta(conn)
%>
<script language="VBScript">
<!--
location.href="ppal_admin.asp" 'aqui si es administrador
-->
</script>
<%elseif ((rs.fields("usu_tipo"))="Cliente Interno") then
rs.close
set rs=nothing
desconecta(conn)
%>
<script language="VBScript">
<!--
location.href="ppal_cliente_int.asp" ' o aqui si es cliente interno
-->
</script>
<%elseif ((rs.fields("usu_tipo"))="Cliente Externo") then
rs.close
set rs=nothing
desconecta(conn)
%>
<script language="VBScript">
<!--
location.href="ppal_cliente_ext.asp" ' o aqui si es cliente externo
-->
</script>
<%
end if
end if
end if
end if%>
<script language="VBScript">
<!--
Sub Ingresar_onclick
if form1.login_text.value="" then
r=msgbox("Debe ingresar nombre de usuario",VbInformation,"SAPI")
form1.login_text.focus()
else
if form1.clave_text.value="" then
r=msgbox("Debe ingresar su clave de acceso",VBInformation,"SAPI")
form1.clave_text.focus()
else
form1.submit()
end if
end if
end sub
-->
</script>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<img src="http://pukem.face.ubiobio.cl/sapi/gta2.jpg">
"And Remember...Respect is everything.