<% 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" %> <% displayRecs = 5 recRange = 10 %> <% ' Get table name tablename = "[Edificios]" %> <% ' Get search criteria pSearch = Request.Form("psearch") If pSearch <> "" Then dbwhere = "" pSearch = replace(pSearch,"'","''") pSearch = replace(pSearch,"[","[[]") dbwhere = dbwhere & "[Nombre] like '%" & pSearch & "%' or " dbwhere = dbwhere & "[Direccion] like '%" & pSearch & "%' or " dbwhere = dbwhere & "[Descripcion] like '%" & pSearch & "%' or " dbwhere = dbwhere & "[Superficie] like '%" & pSearch & "%' or " dbwhere = dbwhere & "[sup_busqueda] like '%" & pSearch & "%' or " dbwhere = dbwhere & "[Imagen] like '%" & pSearch & "%' or " dbwhere = dbwhere & "[Plano] like '%" & pSearch & "%' or " dbwhere = dbwhere & "[Tile] like '%" & pSearch & "%' or " dbwhere = dbwhere & "[sup_propia] like '%" & pSearch & "%' or " dbwhere = dbwhere & "[sup_util] like '%" & pSearch & "%' or " dbwhere = dbwhere & "[sup_servicios] like '%" & pSearch & "%' or " dbwhere = dbwhere & "[sup_comun] like '%" & pSearch & "%' or " dbwhere = dbwhere & "[desc_ascensores] like '%" & pSearch & "%' or " dbwhere = dbwhere & "[desc_aire_ac] like '%" & pSearch & "%' or " dbwhere = dbwhere & "[desc_det_incendio] like '%" & pSearch & "%' or " dbwhere = dbwhere & "[desc_ext_incendio] like '%" & pSearch & "%' or " dbwhere = dbwhere & "[desc_c_accesos] like '%" & pSearch & "%' or " dbwhere = dbwhere & "[desc_seguridad] like '%" & pSearch & "%' or " dbwhere = dbwhere & "[desc_cochera] like '%" & pSearch & "%' or " dbwhere = mid(dbwhere,1,len(dbwhere)-3) Session("tablename") = tablename Session("dbwhere") = dbwhere 'reset start record counter startRec = 1 Session("startRec") = startRec Else If tablename = Session("tablename") Then dbwhere = Session("dbwhere") Else 'reset search criteria dbwhere = "" Session("dbwhere") = dbwhere End If End If 'Get clear search cmd If Request.QueryString("cmd").Count > 0 then cmd=Request.QueryString("cmd") If ucase(cmd) = "RESET" Then 'reset search criteria dbwhere = "" Session("dbwhere") = dbwhere End If End If %> <% 'Get key & command If Request.QueryString("id").Count > 0 Then id=Request.QueryString("id") Session("id") = id Else id = Session("id") End If ' Load Default Order DefaultOrder = "" DefaultOrderType = "" ' Check for an Order parameter OrderBy = "" If Request.QueryString("order").Count > 0 Then OrderBy = Request.QueryString("order") ' Check if an ASC/DESC toggle is required If Session("OrderBy") = OrderBy Then If Session("OrderType") = "ASC" Then Session("OrderType") = "DESC" Else Session("OrderType") = "ASC" End if Else Session("OrderType") = "ASC" End If Session("tablename") = tablename Session("OrderBy") = OrderBy Session("startRec") = 1 Else If tablename = Session("tablename") Then OrderBy = Session("OrderBy") Else OrderBy = DefaultOrder Session("OrderBy") = OrderBy Session("OrderType") = DefaultOrderType End If End If ' Check for a START parameter If Request.QueryString("start").Count > 0 Then startRec = Request.QueryString("start") Session("tablename") = tablename Session("startRec") = startRec Else If tablename = Session("tablename") Then startRec = Session("startRec") Else 'reset start record counter startRec = 1 Session("startRec") = startRec End If End If 'Set the last record to display stopRec = startRec + displayRecs - 1 ' 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") & ";" ' Build Query strsql = "select * from [Edificios]" If dbwhere <> "" Then strsql = strsql & " WHERE " & dbwhere End If if OrderBy <> "" then strsql = strsql & " ORDER BY [" & OrderBy & "] " & Session("OrderType") end if 'response.write strsql set rs = Server.CreateObject("ADODB.Recordset") rs.Open strsql, conn, 1, 2 ' Display message when error found If Err.Number <> 0 Then Response.write("SQL: " & strsql & "
") Response.write("Error Code: " & Err.Number & "
") Response.write("Error Description: " & Err.Description & "
") Response.write("Error Source: " & Err.Source & "
") Response.write("Error Line: " & Err.Line & "
") response.end End If totalRecs = rs.RecordCount %>

  TABLA : Edificios 

buscar (*)  
        restablecer

Agregar

<% recCount = 0 recActual = 0 Do While (NOT rs.EOF) AND (recCount < stopRec) recCount = recCount + 1 If Clng(recCount) >= Clng(startRec) Then recActual = recActual + 1 %> <% ' Display alternate color for rows If recCount mod 2 = 0 Then bgcolor="#FFFFFF" Else bgcolor="#F5F5F5" End If 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") %> <% end if rs.MoveNext Loop %>
">ID no  ">Nombre (*) ">Direccion (*) ">Descripcion (*) ">Superficie (*) ">Superficie de búsqueda (*) ">Imagen (*) ">Plano (*) ">Tile (*) ">superficie propia (*) ">superficie util (*)

">superficie servicios (*)

">superficie común (*) ">ascensores  ">descripción ascensores (*) ">aire acondicionado  ">descripción aire ac (*) ">detección de incendio  ">descripción det incendio (*) ">extinción de incendio 

">descripción ext ">incendio (*)

">control ">de accesos 

">descripción de c accesos (*) ">seguridad  ">descripción de seguridad (*) ">pisotecnico  ">pisoducto  ">grupo electrógeno  ">cochera  ">descripción cochera (*)      
<% response.write x_ID_no %>   <% response.write x_Nombre %>   <% response.write x_Direccion %>   <% response.write x_Descripcion %>   <% response.write x_Superficie %>   <% response.write x_sup_busqueda %> <% response.write x_Imagen %>   <% response.write x_Plano %>   <% response.write x_Tile %>   <% response.write x_sup_propia %>   <% response.write x_sup_util %>   <% response.write x_sup_servicios %>   <% response.write x_sup_comun %>   <% If x_ascensores = True Then %> <%= "Yes" %> <% Else %> <%= "No" %> <% End If %>   <% response.write x_desc_ascensores %>   <% If x_aire_ac = True Then %> <%= "Yes" %> <% Else %> <%= "No" %> <% End If %>   <% response.write x_desc_aire_ac %>   <% If x_det_incendio = True Then %> <%= "Yes" %> <% Else %> <%= "No" %> <% End If %>   <% response.write x_desc_det_incendio %>   <% If x_ext_incendio = True Then %> <%= "Yes" %> <% Else %> <%= "No" %> <% End If %>   <% response.write x_desc_ext_incendio %>   <% If x_c_accesos = True Then %> <%= "Yes" %> <% Else %> <%= "No" %> <% End If %>   <% response.write x_desc_c_accesos %>   <% If x_seguridad = True Then %> <%= "Yes" %> <% Else %> <%= "No" %> <% End If %>   <% response.write x_desc_seguridad %>   <% If x_pisotecnico = True Then %> <%= "Yes" %> <% Else %> <%= "No" %> <% End If %>   <% If x_pisoducto = True Then %> <%= "Yes" %> <% Else %> <%= "No" %> <% End If %>   <% If x_grupo_elec = True Then %> <%= "Yes" %> <% Else %> <%= "No" %> <% End If %>   <% If x_cochera = True Then %> <%= "Yes" %> <% Else %> <%= "No" %> <% End If %>   <% response.write x_desc_cochera %>   ">Ver ">Editar ">Borrar
<% if totalRecs > 0 then ' Find out if there should be Backward or Forward Buttons on the table. If startRec = 1 Then isPrev = False Else isPrev = True PrevStart = startRec - displayRecs If PrevStart < 1 Then PrevStart = 1 %>

[<< Prev] <% End If ' Display Page numbers If (isPrev OR (NOT rs.EOF)) Then If (NOT isPrev) Then Response.Write "
" x = 1 y = 1 dx1 = ((startRec-1)\(displayRecs*recRange))*displayRecs*recRange+1 dy1 = ((startRec-1)\(displayRecs*recRange))*recRange+1 If (dx1+displayRecs*recRange-1) > intTotalRecs then dx2 = (totalRecs\displayRecs)*displayRecs+1 dy2 = (totalRecs\displayRecs)+1 Else dx2 = dx1+displayRecs*recRange-1 dy2 = dy2+recRange-1 End If While x < totalrecs If x >= dx1 and x <= dx2 Then If Clng(startRec) = Clng(x) Then %> <%=y%> <% Else %> <%=y%> <% End If x = x + displayRecs y = y + 1 elseif x >= (dx1-displayRecs*recRange) and x <= (dx2+displayRecs*recRange) then if x+recRange*displayRecs < totalRecs then %> <%=y%>-<%=y+recRange-1%> <% else ny=(totalRecs-1)\displayRecs+1 if ny = y then %> <%=y%> <% else %> <%=y%>-<%=ny%> <% end if end if x=x+recRange*displayRecs y=y+recRange else x=x+recRange*displayRecs y=y+recRange End If Wend End If ' Next link If NOT rs.EOF Then NextStart = startRec + displayRecs isMore = True %> [Next >>] <% Else isMore = False End If %>
<% If stopRec > recCount Then stopRec = recCount %> Registro<%= startRec %> al <%= stopRec %> de <%= totalRecs %> <% Else %>

No se han encontrado registros

<% End If %> <% ' Close recordset and connection rs.Close Set rs = Nothing conn.Close Set conn = Nothing %>