<% if Session("status") <> "login" then response.redirect "../../frameset.asp?main=biblioteca/biblioteca_main1.asp" %> <% response.buffer = true 'get ID ID = 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%> Detalles <% Do While Not RS.Eof %>
     
  FICHA TECNICA  
 
Dirección
   <%=RS("direccion")%>
 
Descripción
   <%=RS("descripcion")%>
 
Superficie Total
<%=RS("superficie")%> m2
 
Superficie Propia
<%=RS("sup_propia")%> m2
 
Superficie Útil
<%=RS("sup_util")%> m2
 
Superficie de Servicios
<%=RS("sup_servicios")%> m2
 
Superficie Común
<%=RS("sup_comun")%> m2
 
Ascensores
 CHECKED<% End If %>> <%=RS("desc_ascensores")%>
 
Aire Acondicionado
 CHECKED<% End If %>> <%=RS("desc_aire_ac")%>
 
Detección de Incendio
 CHECKED<% End If %>> <%=RS("desc_det_incendio")%>
 
Extinción de Incendio
 CHECKED<% End If %>> <%=RS("desc_ext_incendio")%>
 
Control de Accesos
 CHECKED<% End If %>> <%=RS("desc_c_accesos")%>
 
Seguridad
 CHECKED<% End If %>> <%=RS("desc_seguridad")%>
 
Piso Técnico
 CHECKED<% End If %>>  
 
Pisoducto
 CHECKED<% End If %>>  
 
Grupo electrógeno
 CHECKED<% End If %>>  
 
Cocheras
 CHECKED<% End If %>>  
 
 
 
 
<%=RS("nombre")%>
  <%=RS("desc_cochera")%>
" width="291" height="294" border="0" usemap="#m_plano006" alt=""> " target="_blank" alt="haga click sobre la imagen para descargar o imprimir el archivo en formato DWF" >

Haga click sobre la imagen para ver el archivo en formato DWF.

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