<% 'on error resume next dim rst dim sSQl set rst = Server.CreateObject("ADODB.Recordset") If Request.QueryString("pag")<>"" Then Session("pagina")=Request.QueryString("pag") Else Session("pagina")=1 End If if err.number<>0 then response.write err.description response.end end if sSql= "select idAmbiente, imagen, Nombre, imgAmpliada, idProducto from ambientes where idIdioma="&session("idioma") rst.open sSql, cnn, 1, 2 if err.number<>0 then response.write err.description response.end end if 'resultados por pagina a elegir num_registros = 8 'Dimensionamos las paginas y determinamos la pagina actual if not rst.eof and not rst.bof then rst.PageSize=num_registros rst.AbsolutePage=Session("pagina") end if %> Pandora Artesanía
<% registros_mostrados = 0 dim x dim ampliacion x=1 miClase="minis" Do while not rst.eof and registros_mostrados < num_registros ampliacion=rst("imgAmpliada") ampliacion=Replace(ampliacion,"\","\\") registros_mostrados = registros_mostrados +1 if x<4 then miClase="minis" x=x+1 else miClase="minisFin" x=1 end if %>
">&amb=1"><%=rst("nombre")%>
<%if err.number<>0 then response.write err.description response.end end if rst.movenext%> <%loop%>
Pagina <%dim i i=0 While i <%if cint(i)=cint(session("pagina")) then%><%=i%><%else%><%=i%><%end if%> <% Wend %>
<% rst.close set rst=nothing %>