Contract

<% if Session("status") <> "login" then response.redirect "../frameset.asp?main=biblioteca/biblioteca_main1.asp" %> <% usuario=Session("Usuario") mydate=date mytime=time set conntemp=server.createobject("adodb.connection") cnpath="DBQ=" & server.mappath("db/edificios.mdb") conntemp.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath sqlString = "INSERT INTO Log " & _ " (usuario,fecha,hora,ip) " & _ " VALUES ('" & usuario & "','" & mydate & "','" & mytime & "','" & _ Request.ServerVariables("REMOTE_HOST") & "')" Set logRS= conntemp.execute(sqlString) Set logRS=nothing %> Contract <% set rs=createobject("ADODB.Recordset") sqltxt="SELECT * FROM Usuarios WHERE usuario = '" & Session("Usuario") & "'" rs.open sqltxt,"DSN=edificios" %> <%Do While Not RS.Eof%>

intrenet

Bienvenido, <% =rs("nombre") %>

A través de esta nueva herramienta ponemos a su disposición los planos de los principales edificios de oficinas.

Ingrese alguno de los datos requeridos en el formulario de búsqueda para localizar el plano del edificio.

Recuerde que necesitará tener instalada una copia de Autocad Viewer Express para poder visualizar e imprimir los documentos.


	búsqueda

		por nombre

		por dirección

		por superficie

<% RS.MoveNext Loop 'Cerramos el sistema de conexion rs.Close %>