Ayudaa..Como Paginar??

[salmos]

En la página listado.asp

lo primero recoger el contador, en el primer caso es 1

<% scont=request.querystring("cont")

Ahora creamos la sentencia sql

scad="Select * from lo que sea" (Aqui tu sentencia)

Incializamos el objeto

Set rslistado=Server.CreateObject("ADODB.RecordSe t")

Abrimos la bd.

rslistado.open scad

Y ahora lo importante, para páginar hace falta saber el número de registros de la consulta.

para ello tenemos el objeto recordset.

Como tu quieres paginarlo de 10 en 10 te recomiendo hacer esto, sirve para conocer el número de páginas resultantes y poder moverte a la anterior o posterior.

<%IF scont>10 Then%>
<a href="<%="listado.asp?cont="+cst r(scont-10)%>"><%="<<"%>& lt;/a>
<%End IF%>
<%=" "+cstr((scont\10)+1)+"/" +cstr(((rslistado.RecordCount-1)\10)+1)+" "%>
<%IF (rslistado.RecordCount-scont)>=10 Then%>
<a href="<%="listado.asp?cont="+cst r(scont+10)%>"><%=">>&quo t;%></a>
<%End IF%>

Hasta aqui lo verdaderamente importante, ahora mostrar los registros

Primero inicializamos un contador auxiliar a 0 llamemosle icont, este auxiliar lo uso para que si se muestras mas de 10 registros se salga del bucle.

<%icont=0
If not rslistado.EOF or not rslistado.BOF then
rslistado.MoveFirst
rslistado.Move scont-1
do while not rslistado.EOF and iCont<10
'Muestras lo registros como quieras........
rslistado.MoveNext
scont = scont + 1
icont=icont+1
Loop
End if%>

Perdón. El correcto es asi, el sContTipos no sirve :P