Código:
Como podria solucionarlo o donde podria ver un ejemplo de paginacion pero incluyendo un WHERE en la SELECT <%xx=request.form("direccion")
if xx = "Atras" then
session("pagina")=session("pagina")-1
if session("pagina")< 1 then
session("pagina")=1 'evitamos el error por reload
end if
else
if xx="Adelante" then
session("pagina")=session("pagina")+1
else
session("pagina")=1 'primera pasada
end if
end if
f=Request.Form("Familia")
SQLtxt = "SELECT * FROM productos WHERE familia ="&f&""%>
<%set rs = CreateObject("ADODB.Recordset")
rs.CursorType = adOpenstatic %>
<%rs.Open SQLtxt, "DSN=bromur"
if rs.EOF then
%>
<script language="Javascript">
var pagina="escogerfami.asp";
location.href=pagina;
alert ("No hay ningun producto de esta familia!!")
</script>
<%ELSE
rs.pagesize=5
if session("pagina")>rs.pagecount then
session("pagina")=rs.pagecount 'evitamos el error de reload
end if%>
<%rs.absolutepage=session("pagina")
inicio=1+(session("pagina")-1)*rs.pagesize
fin=inicio+9
if fin > rs.recordcount then
fin =rs.recordcount
end if
%>
<table border="0" width="100%" bgcolor="#C0C0C0">
<tr>
<td width="50%" align="center">Registros <font color="#FF0000"><%=inicio%> </font>
al <font color="#FF0000"><%=fin%></font> de un total de
<font color="#FF0000"><%=rs.recordcount%></font></td>
<td width="50%" align="center">Página <font color="#FF0000"><%=session("pagina")%>
</font> de <font color="#FF0000"><%=rs.pagecount%></font></td>
</tr>
</table>
<table border=0 bordercolor="#ff00ff" cellpading=0 cellspacing=0 width="100%" height="100%">
<tr align="center">
<td width="20" height="20" align="center">
<%
Response.Buffer = True
' Connection String
'Dim connStr
'connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
'Server.MapPath("bromur.mdb")
' Recordset Object
'Dim rs
'Set rs = Server.CreateObject("ADODB.Recordset")
' opening connection
'rs.Open "select [id_product],[familia],[codigo],[foto],[nombre_fichero],[tamano_fichero],[tipo_fichero],[descripcion],[altura]," & _
'"[diametro],[bombillas],[tipo],[potencia] from productos order by [id_product] asc", connStr, 3, 4
If Not rs.EOF Then
'Response.Write "No. de registros : " & rs.RecordCount &", Tabla : Productos<br>"
Response.Write "<tr><td><u><b>Id</b></u>"
Response.Write "<td><u><b>Familia</b></u>"
Response.Write "<td><u><b>Codigo</b></u>"
Response.Write "<td><u><b>Foto</b></u>"
'Response.Write "<td><u><b>Nombre Archivo</b></u>"
'Response.Write "<td><u><b>Tamano Archivo</u>"
'Response.Write "<td><u><b>Tipo_Archivo</b></u>"
Response.Write "<td><u><b>Descripcion</b></u>"
Response.Write "<td><u><b>Altura</b></u>"
Response.Write "<td><u><b>Diametro</b></u>"
Response.Write "<td><u><b>NºBombillas</b></u>"
Response.Write "<td><u><b>Tipo</b></u>"
Response.Write "<td><u><b>Potencia</b></u>"
Response.Write "</td></tr>"
contador=0
Do While contador < rs.pagesize and NOT rs.EOF
Response.Write "<tr><td>"
Response.Write rs("id_product") & "</td><td>"
Response.Write rs("familia") & "</td><td>"
Response.Write rs("codigo") & "</td><td>"
Response.Write "<img src=""mostrarfoto.asp?ID=" & rs("id_product") & """>"& "</td><td>"
'Response.Write rs("nombre_fichero") & "</td><td>"
'Response.Write rs("tamano_fichero") & "</td><td>"
'Response.Write rs("tipo_fichero") & "</td><td>"
Response.Write rs("descripcion") & "</td><td>"
Response.Write rs("altura") & "</td><td>"
Response.Write rs("diametro") & "</td><td>"
Response.Write rs("bombillas") & "</td><td>"
Response.Write rs("tipo") & "</td><td>"
Response.Write rs("potencia")
Response.Write "</td></tr>"
rs.MoveNext
contador=contador+1
Loop
Else
Response.Write "No se encontraron archivos"
End If
%>
</td>
</tr>
<tr><td colspan="10"><div align="center">
<center>
<!-- mostramos los botones de adelante y atras segun proceda -->
<table align="center" border="0" width="38%" height="5">
<tr><%if session("pagina")<> 1 then %>
<td width="50%" height="1" align="center">
<form method="POST" action="verproducts.asp">
<p><input type="submit" value="Atras" name="direccion"></p>
</form>
</td><%end if%>
<%if session("pagina")< rs.pagecount then%>
<td width="50%" height="1" align="center">
<form method="POST" name="verproducts.asp">
<p><input type="submit" value="Adelante" name="direccion"></p>
</form>
</td><%end if%>
</tr>
</table>
Gracias
