<% cPaginaActual=valorParametro("paginaActual") cSQL="select * from portfolio where indMostrar='S' order by fechaProyecto desc,nombreProyecto" nPaginar=5 nTotalRegistros=contarRS(cnn,cSQL) if nPaginar<=0 then nPaginar=nTotalRegistros if nPaginar>0 then nPaginasTotales=(nTotalRegistros\nPaginar) if (nTotalRegistros mod nPaginar)<>0 then nPaginasTotales=nPaginasTotales+1 else nPaginasTotales=1 end if if len(cPaginaActual)>0 then on error resume next nPaginaActual=clng(cPaginaActual) if err.number<>0 then nPaginaActual=1 on error goto 0 end if if nPaginaActual<=0 then nPaginaActual=1 if nPaginaActual>nPaginasTotales then nPaginaActual=nPaginasTotales response.write " " response.write "[<<] [<] Página " & nPaginaActual & " de " & nPaginasTotales & " [nPaginasTotales,nPaginasTotales,nPaginaActual+1)) & """>>] [>>]" response.write " " set rsPortfolio=abrirRS(cnn,cSQL) if not rsPortfolio.eof and nPaginaActual>1 then rsPortfolio.move (nPaginaActual-1)*nPaginar do while not rsPortfolio.eof and nRegistroActual " alt="<%=escaparHTML(rsPortfolio("nombreProyecto"))%>" width="215" height="125" border="1"> " height="1" border="0">">" target="_blank"> <%else%> --> <%end if%> <%=escaparHTML(rsPortfolio("nombreProyecto"))%>. <%=esHTML(rsPortfolio("descripcion"))%> Fecha: <%=acMeses(month(rsPortfolio("fechaProyecto"))-1) & " del " & year(rsPortfolio("fechaProyecto"))%>. Tecnologías: <%=rsPortfolio("tecnologia")%> <%if not estaVacio(rsPortfolio("idDesarrolladoPara")) then%> Cliente: " target="_blank"><%=buscarBdD(cnn,"select * from desarrolladoPara where idDesarrolladoPara=" & rsPortfolio("idDesarrolladoPara"),"desarrolladoPara")%>. <%end if%> <% if nRegistroActual mod 5<>0 then response.write " " rsPortfolio.movenext loop cerrarRS(rsPortfolio) response.write " " response.write "[<<] [<] Página " & nPaginaActual & " de " & nPaginasTotales & " [nPaginasTotales,nPaginasTotales,nPaginaActual+1)) & """>>] [>>]" response.write " " %>