<% 'g:\redcanina\bases\redcanina.mdb Set conexion=Server.CreateObject("ADODB.Connection") Set tabla=Server.CreateObject("ADODB.RecordSet") conexion.Open("DSN=w00333738_redcanina;uid=Redcanina;pwd=narobeso") tabla.open "SELECT * FROM buscador WHERE categoria='Clubes' ORDER BY subcategoria,pais", conexion,3 if (Request.QueryString("cont")="") then i=0 while not tabla.eof i=i+1 tabla.movenext() wend nregistros=i pagactual=0 tabla.movefirst() else nregistros=CInt(Request.QueryString("r")) pagactual=Request.QueryString("cont") end if paginas=nregistros\10 resto=(nregistros mod 10) if (resto>0) then paginas=paginas+1 end if %>
<% 'for k=1 to (pagactual*10) for k=1 to (pagactual*10) tabla.movenext() next if (not tabla.eof) then subcategoria=tabla("subcategoria") tsubcategoria=subcategoria pais=tabla("pais") end if k=0 if ((pagactual+1)=paginas) then if (resto=0) then limite=9 else limite=resto end if else limite=9 end if while (k>limite) %> <% wend%>
<%=pagactual*10+1%> - <% if ((pagactual+1)=paginas) then if (resto=0) then response.write((pagactual)*10+10) else response.write((pagactual)*10+resto) end if else response.write((pagactual)*10+10) end if %> de <%=nregistros%> entradas <%'for j=1 to paginas for j=1 to paginas if (j=(pagactual+1)) then%> <%=j%>  <% else %> <%=j%>  <% end if next %>
 • <% response.write(subcategoria)%> <%if (not tabla.eof) then if (tabla("estandar")<>"") then%> ">estandar <%else%>   <% end if end if%>
<%while ((not tabla.eof) and (k>limite) and (subcategoria=tsubcategoria))%> <% if (not tabla.eof) then tabla.movenext() else subcategoria="nada" end if if (not tabla.eof) then tsubcategoria=tabla("subcategoria") end if k=k+1 wend if (not tabla.eof) then if (subcategoria<>tabla("subcategoria")) then subcategoria=tabla("subcategoria") end if else k=11 end if %>
 • "> <%response.write(tabla("nombre"))%>
   url:"><%response.write(tabla("url"))%>
   e-mail:<%response.write(tabla("email"))%>
<%=pagactual*10+1%> - <% if ((pagactual+1)=paginas) then if (resto=0) then response.write((pagactual)*10+10) else response.write((pagactual)*10+resto) end if else response.write((pagactual)*10+10) end if %> de <%=nregistros%> entradas <% for j=1 to paginas if (j=(pagactual+1)) then%> <%=j%>  <% else %> <%=j%>  <% end if next %>
Página Principal • Anuncios • Enlaces • Foro • Estándars • Galería • Nombres • Pregunta Semana
RedCanina.com es propiedad de Ignacio Garcia & Román Sanz
<% conexion.Close Set conexion = nothing %>