<% if Session("status") <> "login" then response.redirect "login.asp" %> <% Response.expires = 0 Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.CacheControl = "no-cache" %> <% response.buffer = true 'get key key = request.querystring("key") if key="" or isnull(key) then key=request.form("key") end if if key="" or isnull(key) then response.redirect "Edificioslist.asp" 'get action a=request.form("a") if a="" or isnull(a) then a="I" 'display with input box end if ' Open Connection to the database set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("../db/edificios.mdb") & ";" Select Case a Case "I": ' Get a record to display tkey = key strsql = "SELECT * FROM [Edificios] WHERE [ID_no]=" & tkey set rs = Server.CreateObject("ADODB.Recordset") rs.Open strsql, conn If rs.EOF Then Response.Clear Response.Redirect "Edificioslist.asp" Else rs.MoveFirst End If ' Get the field contents x_ID_no = rs("ID_no") x_Nombre = rs("Nombre") x_Direccion = rs("Direccion") x_Descripcion = rs("Descripcion") x_Superficie = rs("Superficie") x_sup_busqueda = rs("sup_busqueda") x_Imagen = rs("Imagen") x_Plano = rs("Plano") x_Tile = rs("Tile") x_sup_propia = rs("sup_propia") x_sup_util = rs("sup_util") x_sup_servicios = rs("sup_servicios") x_sup_comun = rs("sup_comun") x_ascensores = rs("ascensores") x_desc_ascensores = rs("desc_ascensores") x_aire_ac = rs("aire_ac") x_desc_aire_ac = rs("desc_aire_ac") x_det_incendio = rs("det_incendio") x_desc_det_incendio = rs("desc_det_incendio") x_ext_incendio = rs("ext_incendio") x_desc_ext_incendio = rs("desc_ext_incendio") x_c_accesos = rs("c_accesos") x_desc_c_accesos = rs("desc_c_accesos") x_seguridad = rs("seguridad") x_desc_seguridad = rs("desc_seguridad") x_pisotecnico = rs("pisotecnico") x_pisoducto = rs("pisoducto") x_grupo_elec = rs("grupo_elec") x_cochera = rs("cochera") x_desc_cochera = rs("desc_cochera") rs.Close Set rs = Nothing End Select %>

 Vista de la tabla : Edificios 

<< Volver a la lista

ID no  <% response.write x_ID_no %>  
Nombre  <% response.write x_Nombre %>  
Direccion  <% response.write x_Direccion %>  
Descripcion  <% response.write x_Descripcion %>  
Superficie  <% response.write x_Superficie %>  
Superficie de búsqueda <% response.write x_sup_busqueda %>
Imagen  <% response.write x_Imagen %>  
Plano  <% response.write x_Plano %>  
Tile <% response.write x_Tile %>
Superficie propia  <% response.write x_sup_propia %>  
Superficie util  <% response.write x_sup_util %>  
Superficie servicios <% response.write x_sup_servicios %>
Superficie común <% response.write x_sup_comun %>
Ascensores  <% If x_ascensores = True Then %> <%= "Yes" %> <% Else %> <%= "No" %> <% End If %>  
desc_ascensores  <% response.write x_desc_ascensores %>  
Aire acondicionado  <% If x_aire_ac = True Then %> <%= "Yes" %> <% Else %> <%= "No" %> <% End If %>  
desc_aire acondicionado  <% response.write x_desc_aire_ac %>  
Detección de incendio  <% If x_det_incendio = True Then %> <%= "Yes" %> <% Else %> <%= "No" %> <% End If %>  
desc_det incendio  <% response.write x_desc_det_incendio %>  
Extinción de incendio  <% If x_ext_incendio = True Then %> <%= "Yes" %> <% Else %> <%= "No" %> <% End If %>  
desc_ext incendio  <% response.write x_desc_ext_incendio %>  
Control de accesos  <% If x_c_accesos = True Then %> <%= "Yes" %> <% Else %> <%= "No" %> <% End If %>  
desc_accesos  <% response.write x_desc_c_accesos %>  
Seguridad  <% If x_seguridad = True Then %> <%= "Yes" %> <% Else %> <%= "No" %> <% End If %>  
desc_seguridad  <% response.write x_desc_seguridad %>  
pisotecnico  <% If x_pisotecnico = True Then %> <%= "Yes" %> <% Else %> <%= "No" %> <% End If %>  
pisoducto  <% If x_pisoducto = True Then %> <%= "Yes" %> <% Else %> <%= "No" %> <% End If %>  
grupo electrógeno  <% If x_grupo_elec = True Then %> <%= "Yes" %> <% Else %> <%= "No" %> <% End If %>  
Cochera  <% If x_cochera = True Then %> <%= "Yes" %> <% Else %> <%= "No" %> <% End If %>  
desc_cochera  <% response.write x_desc_cochera %>