<% response.buffer = true ID = request.querystring("ID") Session("edificio") = request.querystring("ID") 'Antes de nada hay que instanciar el objeto Connection Set Conn = Server.CreateObject("ADODB.Connection") 'Una vez instanciado Connection lo podemos abrir y le asignamos la base de datos donde vamos a efectuar las operaciones Conn.Open "edificios" 'Ahora creamos la sentencia SQL que nos servira para hablar a la BD tID = ID sSQL="SELECT * FROM [Edificios] WHERE [ID_no]=" & tID 'Ejecutamos la orden set RS = Conn.Execute(sSQL) 'Mostramos los registros%> Planos <% Do While Not RS.Eof %> <% RS.MoveNext Loop %>
<% 'Cerramos el sistema de conexion Conn.Close %> <% set rs=createobject("ADODB.Recordset") sqltxt="SELECT * FROM Usuarios WHERE usuario = '" & Session("Usuario") & "'" rs.open sqltxt,"DSN=edificios" %> <%Do While Not RS.Eof%>
 
Usuario:   <% =rs("nombre") %>
" width="120" height="50">
<% RS.MoveNext Loop 'Cerramos el sistema de conexion rs.Close %>