<% IF(Request.Form= "") THEN %>

IDENTIFICACION DE USUARIO PRIVADO

Escriba su nombre de usuario y contraseña

Usuario:
Password:

<% ELSE Usuario=Request.Form("Usuario") Comentario=Request.Form("Comentario") SET Ob_Conn= Server.CreateObject("ADODB.Connection") SET Ob_RS= Server.CreateObject("ADODB.RecordSet") Ob_Conn.Open "serviagroobras.com.saobsa" SQL= "SELECT * FROM usuarios WHERE USUARIO='"& Request.Form("Usuario")&"'" Ob_RS.Open SQL, Ob_Conn, adOpenStatic, adCmdTable IF Ob_RS.Eof THEN Response.Write "

NOMBRE DE USUARIO INCORRECTO

" Response.Write "Pruebe de nuevo" ELSE IF Ob_RS("PASSWORD") <> Request.Form ("Password") THEN Response.Write "

CLAVE INCORRECTA

" Response.Write "Pruebe de nuevo" ELSE Response.Write "

BIENVENIDO A LA ZONA PRIVADA

" Response.Write "

Hola "&Usuario Response.Write ", como estas de lo tuyo, "& Ob_RS("Comentario") Response.Write "

Ver Documentos disponibles

" END IF END IF Ob_RS.Close Ob_Conn.Close END IF %>