Contract

<%validpwd = true If request.form("submit") <> "" Then ' setup variables userid = Request.Form("userid") passwd = Request.Form("passwd") Session("Usuario")= userid Set conn = Server.CreateObject("ADODB.Connection") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("db/edificios.mdb") & ";" Set rs = conn.Execute( "Select * from [Usuarios] where [Usuario] = '" & UCASE(userid) & "'") If not rs.eof then If ucase(rs("Password")) = ucase(passwd) Then validpwd = true Else validpwd = false End If Else validpwd = false end if rs.Close Set rs=Nothing conn.Close Set conn=Nothing If validpwd Then Session("status") = "login" response.redirect "busqueda_main1.asp" End If End If %> Contract

intrenet

Si Ud. es un usuario registrado, ingrese su nombre de usuario y contraseña para acceder a toda la documentación disponible en la Biblioteca.

A través de esta herramienta ponemos a su disposición los planos de los edificios de oficinas más relevantes de la Ciudad de Buenos Aires.

Si aún no está registrado, póngase en contacto con el administrador.

<% If not validpwd Then %> Usuario o Contraseña incorrectos, vuelva a intentarlo. <% End If %>

log-in