Cómo paginar ASP solicitando ID

Lo escribí yo mismo para tu referencia

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%

str = "del"

id="IternID"

table="Itern"

palabras="IternID"

names=" itern_guanli .asp"

llamar al(cadena,id,tabla,palabras,nombres)

%>

idth="100%" border="0" cellpadding="0" cellpacing="0" bgcolor="#0099CC">

<%

tenue rs ,sql

set rs = server.CreateObject("adodb.recordset")

if Trim(request("key"))="Ingrese la palabra clave" o Trim( request ("key"))="" luego

sql="SELECT * FROM Itern ORDER BY IternID DESC"

else

sql = "SELECT * DESDE Itern DONDE IternContent como '%"& Trim(solicitud("key")) &"%' ORDEN POR IternID DESC"

end if

rs.open sql,conn, 1,1

si rs.eof entonces

Record_Count = 0

Page_Size = 5

Page_Count=1

si Página = "" o Página < 1 entonces Página = 1

si Página > Page_Count entonces Página = Page_Count

%>

<%

else

Dim Page_Size,Page_Count,Page,Record_Count

Record_Count = rs.RecordCount

Page_Size = 5

rs.Pagesize = Page_Size

Page_Count = rs.PageCount

Página = Cint(Solicitud("página"))

si Página = "" o Página < 1 entonces Página = 1

si Página > Page_Count entonces Página = Page_Count

rs.absolutepage = Página

para i = 1 a Page_Size

si rs.Eof entonces

salir para

else

%>

< td width="30%">'"

<%

rs.movext

finalizar si

siguiente

finalizar si

rs.close

establecer rs = nada

%>