<%@ Language=VBScript %> <% session("txtUser") = Request.Form("txtUser") if not isempty(Request.Form("txtUser")) and not isempty(Request.Form("txtPwd")) then usern= trim( Request.Form("txtUser")) passw = trim( Request.Form("txtPwd")) set conx = server.CreateObject ("ADODB.Connection") conx.ConnectionTimeout = 30 conx.ConnectionString = "Driver=SQL Server;SERVER=INTRATEC;UID=sa;PWD=teco3.bd;DATABASE=TecBD" conx.Open () set comd = server.CreateObject ("ADODB.Command") comd.ActiveConnection = conx comd.CommandTimeout = 20 comd.CommandText = "logadmin" comd.CommandType = adcmdStoredProc comd.Parameters.append comd.CreateParameter ("@id_user", adChar, adParamInput ,8, usern) comd.Parameters.append comd.CreateParameter ("@id_password", adChar, adParamInput ,8, passw) set rec = server.CreateObject ("ADODB.Recordset") rec.Open comd, , 1 ,3 dis = "disabled" var= rec("conect") user=rec("usuario") nombre=rec("nombre") session("nombre")=rec("nombre") session("clave")=rec("usuario") session("conect")=rec("conect") session("dis") = dis session("active") = 1 conx.Close () End if if isempty(Request.Form("txtUser") ) and (session("conect") = 1 or session("conect") = 2) then session.Abandon Response.Redirect ("http://www.itnuevolaredo.edu.mx/admin/") end if %>

ITNL- 2006

Instituto Tecnológico
de
Nuevo Laredo

Validación de usuarios

Para el Egresado !

Utilize el Usuario:
egresado
La Contraseña:
egresado
Sólo tendrá acceso a la Búsqueda

Cómo se utiliza este módulo

Lo primero que usted debera hacer es autentificarse con su nombre usuario y contraseña provista por el administrador. Una vez autentificado podra ver distintos tipos de búsquedas asi como la facilidad de dar de alta nuevos egresados.