Ayuda con paginación Hola gente! Les envio este post porque necesito ayuda, tengo el siguiente codigo que me devuelve lo que tiene la tabla en varios links pero mal, paso a explicar:
Por ejemplo supongamos que me devuelve fotos si tengo 4 fotos de resultado en total y pongo que me devuelva 2 por pagina la primer pagina me muestra 2 la segunda me muestra 4 y tengo una tercera que me muestra otras 2, ni idea porque esta haciendome esto les dejo el codigo a ver si me pueden ayudar con este o con algun otro ejemplo.
Una aclaracion esto me lo hace si pongo el nombre de la tabla a mano pero si me traigo del buscador por una lista combo el nombre de la tabla y le hago un request, ( Request("tabla") ),en el from me muestra la primera pagina y en las demas me da error en la clausula FROM.
-----------------
<%@ Language="VBScript" %>
<html>
<head>
<title>Buscar datos</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
<!-- Esta linea nos dira los resultados obtenidos con la palabra clave <body bgcolor="#FFFFCC">-->
<p><font face="Tahoma" size="2">Resultados obtenidos con <strong><%=Request("Palabra") %></strong></font></p>
<table width="44%" border="1" align="center">
<tr>
<td width="51%" height="20" bgcolor="#6C0036"><strong><font color="#F7F7F7" size="2" face="Tahoma">RESULTADOS DE LA BUSQUEDA</font></strong></td>
</tr>
</table>
<div align="center">
<%
'actualizamos numero de pagina
If Request.QueryString("pag")<>"" then
Session("pagina")=Request.QueryString("pag")
Else
Session("pagina")=3
End If
'constantes ADO VBScript
Const adCmdText = &H0001
Const adOpenStatic = 3
'realizamos la conexión de la Base de Datos
Dim Conexion,Tabla1
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla1=Server.CreateObject("adodb.recordset")
Conexion.Open("Provider=Microsoft.Jet.OLEDB.4.0;Da ta Source=" & Server.MapPath("base1.mdb"))
'definimos las variables de busqueda
Dim Temp,Rango
variable=Request("tabla")
Temp= "SELECT * FROM tabla_cv Where UCase(desc_corta) like '%" & UCase(Request("palabra")) & "%' "
Tabla1.Open Temp, Conexion,adopenstatic,adcmdtext
'resultados por pagina a elegir arbitrariamente
num_registros = 2
'Dimensionamos las paginas y determinamos la pagina actual
Tabla1.PageSize=num_registros
Tabla1.AbsolutePage=Session("pagina")
If Tabla1.BOF And Tabla1.EOF Then
%>
<!-- si no encuentra nada nos da este mensaje -->
<!--<p><font face="Tahoma" size="2">No se ha encontrado nada con <strong><%=Request("Palabra")%></strong> en la Base de Datos</font></p> -->
<!-- aquí comienza el Script que nos muestra los resultados, si los encuentra, en una tabla -->
<%
Else
%>
<% 'Paginacion
i=0
While i<Tabla1.PageCount
i=i+1
%>
<b><a href="buscar.asp?&pag=<%=i%>"><%=i%></a></b>
<%
Wend
%>
</div>
<div align="center">
<center>
<table width="44%" border="1">
<tr>
<td width="51%" valign="top"><table border="0" cellpadding="0" cellspacing="0" width="99%" height="150" bordercolor="#C0C0C0">
<% While Not Tabla1.EOF%>
<tr>
<td width="28%" height="131" valign="top" bgcolor="#FFFFFF"><div align="left"><img src="images/<%=Tabla1.Fields("NombreFichero1")%>" height=100 width=120 border=0 alt="Imagen 1" align=top><br>
<font color="#FFFFFF"><strong>.</strong></font><br>
</div>
<td width="66%" height="131" valign="top" bgcolor="#FFFFFF"><form method="post" action="detalle.asp">
<div align="left">
<p><font face="Tahoma" size="2"><%=Tabla1.Fields("Id")%></font>
<input name="ID" type="Hidden" value="<%=Tabla1.Fields("Id")%>">
Tabla:<%=Tabla1.Fields("Tabla")%>
<input type="hidden" name="tabla" value="<%=Tabla1.Fields("Tabla")%>">
<br>
<font face="Tahoma" size="2"><%=Tabla1.Fields("id_proveedor")%></font>
<input name="Desc_corta" type="Hidden" id="Desc_corta" value="<%=Tabla1.Fields("id_proveedor")%>">
<br>
<font face="Tahoma" size="2"><%=Tabla1.Fields("Desc_larga")%></font>
<br>
<%= Tabla1.Fields("Desc_corta")%>
<input name="Desc_corta" type="Hidden" value="<%=Tabla1.Fields("Desc_corta")%>">
</p>
<p>
<input type="submit" value="+Detalles" name="submit">
</p>
</div>
</form>
</tr>
<tr>
<td height="19" colspan="3" valign="top" bgcolor="#FFFFFF"><div align="right">
<hr size="1" color="#E1E1E1">
</div> </tr>
<%
'si encuentra mas de un resultado nos hace una celda mas en la tabla
Tabla1.MoveNext
Wend
''Tabla1.Close
''Conexion.Close
End If
%>
<hr size="1" color="#E1E1E1">
</table></td>
</td><%Response.Write variable%>
</tr>
</table>
<%
i=0
While i<Tabla1.PageCount
i=i+1
%>
<b><a href="buscar.asp?pag=<%=i%>"><%=i%></a></b>
<%
Wend
%>
<%
Tabla1.Close
Conexion.Close
%>
</div>
</body>
</html>
----------------------------------------------------------------------------------
Saludos y gracias de antemano.
