<% if session("ClienteUsuario") = "" then response.redirect "./login.asp" end if Filtro = request("Opt") nlineas = request("nlineas") page = request("page") mostrar = 9 if Filtro = "" then Filtro = "all" if page = "" then pagina_actual = 1 else pagina_actual = CInt(page) end if %> Proyectos
Home
Madrid      (+34) 917 776 275

Valencia    (+34) 961 822 046
Descarga el catálogo de POP TEAM

Nuestros trabajos

<% if Filtro = "all" then%> <% else%> <% end if%> <% sql = " SELECT DISTINCT Tipo " sql = sql & " FROM Portfolio " sql = sql & " ORDER BY Tipo ASC " ' recordset set rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL, oConn, 1, 4 if not rs.BOF and not rs.EOF then numeracion = 1 do while not rs.EOF%> <% if Filtro = rs("Tipo") then%> <% else%> <% end if numeracion = numeracion + 1 rs.movenext loop end if rs.close%>
    <% sql = " SELECT * " sql = sql & " FROM Portfolio " if Filtro <> "all" then sql = sql & " WHERE Tipo = '" & Filtro & "'" end if sql = sql & " ORDER BY Titulo ASC " ' recordset set rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL, oConn, 1, 4 rs.PageSize = mostrar rs.CacheSize = mostrar cant_paginas = rs.PageCount If pagina_actual > cant_paginas Then pagina_actual = cant_paginas If pagina_actual < 1 Then pagina_actual = 1 if not rs.BOF and not rs.EOF then rs.AbsolutePage = pagina_actual Do While registro_mostrado < mostrar And Not rs.EOF%> <% registro_mostrado = registro_mostrado + 1 rs.movenext loop end if%>
<%' Ahora mostramos los enlaces a las otras páginas con el resto de los registros... if pagina_actual > 1 then%> << <% end if ' mostramos la paginacion por numeros de página for i = 1 To cant_paginas If I = pagina_actual then%> <%=I%> <% else%> <%=I%> <% end if next 'I if pagina_actual < cant_paginas then%> >> <% end If%>