paginar dezplegando los registros en horizontal

[sqa212]

Tengo esta pagina que me seleciona unos registros y los muestra de forma horizontal.
En el Mod le indico cuando debe empezar la siguiente linea (En este caso a partir del
sexto registro ), la cosa es que quiero poder paginar los resultados pero no se como
hacerlo para conservar esta forma de dezplegar los registros.
¿Se os ocurre algo?
P.D: ¿Sabreis porque no me muestra la descripcion del primer registro?

<%@ LANGUAGE = "VBScript" %>
<!-- #include file="db.asp" -->
<%set rsprod=db.Execute("select * from fotografias order by idfoto")
articulo=rsprod("articulo")
descripcion=rsprod("descripcion")%>
<%while not rsprod.eof%>
<table>
<tr>
<%counter="0"
do while not rsprod.eof%>
<td>
<%=rsprod("articulo")%>
<br>
<%=rsprod("descripcion")%>
</td>
<%
counter=counter+1
if counter Mod 6 =0 Then Response.Write"</tr><tr>"
rsprod.MoveNext
Loop
Wend
%>
</table>
</body>
</html>
<%
db.close
set db=nothing
%>

[jorel]

creo que ahi sobra un while wend, o no se para que lo pusiste... intenta poniendolo asi:

Código PHP:

  <%@ LANGUAGE = "VBScript" %> 
<!-- #include file="db.asp" --> 
<%set rsprod=db.Execute("select * from fotografias order by idfoto") 
articulo=rsprod("articulo") 
descripcion=rsprod("descripcion") 
counter=0 
%> 
<table> 
<tr>  
<% 
do while not rsprod.eof%> 
<td> 
<%=rsprod("articulo")%> 
<br> 
<%=rsprod("descripcion")%> 
</td> 
<% 
counter=counter+1 
if counter Mod 6 =0 Then Response.Write"</tr><tr>" 
rsprod.MoveNext 
Loop 
%> 
</table> 
</body> 
</html> 
<% 
db.close 
set db=nothing 
%>  
   

y si puedes paginar esto utilizando el siguiente ejemplo

http://www.soloasp.com.ar/vereje.asp?eje=30

[sqa212]

Jorel he probado tu solucion:
Pero obtengo el mismo resultado que con el mio, es decir sigue sin solucionarse lo de la primera descripcion.
En cuanto a pagianar los resultados se hacerlo con el ejemplo que pones, pero la cosa es que no se como mezclar mi codigo que dezplaza en horizontal y puedo determinar el numero que aparecera en cada linea con lo de la paginacion.
Gracias por tu ayuda

[jorel]

creo que asi, si no me equivoco asi debe de jalar checalo implementandolo en ese liga de paginacion que te di lo demas queda igual...

Código PHP:

  registro_mostrado = 0 
Response.Write vbTab & "<TR>" & vbCrLf 
Do While registro_mostrado < mostrar And Not rsprod.EOF 
Response.Write "<td>" 
Response.write rsprod("articulo") & "<br>" 
Response.Write rsprod("descripcion") & "</td>" 
 
counter=counter+1 
if counter Mod 6 =0 Then Response.Write"</tr><tr>" 
registro_mostrado = registro_mostrado + 1 
rsprod.MoveNext 
Loop  
   

[sqa212]

Gracias Jorel