Hola a todos, soy una principiante y estoy intentando hacer una base de datos en asp. Tengo problemas con la paginación.
El problema q tengo es q cuando hago una consulta, me sale bien, pero cuando quiero q me salga toda la tabla dejando los datos vacios, no pasa de la primera hoja.
Si alguien me puede ayudar....
el código es el siguiente:
<html>
<title>BD_Ver</title>
<body>
<!--#INCLUDE File="ADOVBS.inc">
<% IF (Request.Form<>"") THEN
IF (Request.Form("Pagina")= "Pagina siguiente") THEN
Session("Pagina")=Session("Pagina")+1
ELSE IF (Request.Form("Pagina")= "Pagina anterior") THEN
Session("Pagina")=Session("Pagina")-1
ELSE Session("Pagina")=1
END IF
END IF
Set Ob_Conn=Server.CreateObject("ADODB.Connection")
Set Ob_RS=Server.CreateObject("ADODB.Recordset")
ob_RS.CursorLocation =adUseClient
ob_conn.Open "Provider=sqloledb;" & _
"Data Source=sena;" & _
"Initial Catalog=patentes_i_producto;" & _
"User Id=patentes;" & _
"Password=patentes"
Ob_RS.Open "tb_patentes", Ob_Conn, adOpenStatic, adCmdTable
Poner_AND=False
Filtro=""
FOR EACH Parametro IN Request.Form
IF (Request.Form(Parametro)<>"") AND (Parametro <>"Pagina") THEN
IF Poner_AND THEN
Filtro= Filtro & " AND " & Parametro & "='"
Filtro= Filtro & Request.Form(Parametro) &"'"
ELSE
Filtro= Filtro & Parametro & "='"
Filtro= Filtro & Request.Form(Parametro) &"'"
Poner_AND=True
END IF
END IF
NEXT
Filtro=LCase(Filtro)
Ob_RS.Filter= Filtro
IF NOT Ob_RS.Eof THEN%>
<CENTER>
<% Ob_RS.PageSize=9
Ob_RS.AbsolutePage=Session("Pagina")%>
<H3> PAGINA <%=Session("Pagina")%> DE <%=Ob_RS.PageCount%>
</H3>
<TABLE BORDER=1>
<TR>
<%Num_Campos= Ob_RS.Fields.count
FOR Campo=0 TO Num_Campos-1%>
<TH><%=Ob_RS(Campo).Name%></TH>
<%NEXT
Registro=0
DO WHILE Registro<9 AND NOT Ob_RS.Eof%>
<TR>
<% FOR Campo=0 TO Num_Campos-1%>
<TD><%=Ob_RS(Campo)%></TD>
<%NEXT
Registro=Registro+1
Ob_RS.MoveNext
LOOP%>
</TABLE>
<BR>
<FORM METHOD="Post" ACTION="BD_Ver.asp">
<%FOR EACH Parametro IN Request.Form
IF Request.Form(Parametro)<>"" AND Parametro<>"Pagina" THEN%>
<INPUT TYPE="Hidden" NAME=<%=Parametro%>
VALUE=<%=Request.Form("Parametro")%>>
<%END IF
NEXT
IF Session("Pagina")>1 THEN %>
<INPUT TYPE="Submit" VALUE="Pagina Anterior" NAME="Pagina">
<%END IF
IF Session("Pagina")<Ob_RS.PageCount THEN%>
<INPUT TYPE="Submit" VALUE="Pagina Siguiente" NAME="Pagina">
<%END IF%>
</FORM>
<%ELSE Response.Write "<H3> NO SE HA ENCONTRADO NINGUN REGISTRO APROPIADO</H3><BR>"
END IF%>
<A HREF="default.asp"> Menu principal </A>**
<A HREF="BD_Ver.asp"> Otra busqueda </A>
<%Ob_RS.Close
Ob_Conn.Close
ELSE%>
<H3> ESCRIBE EL DATO O LOS DATOS POR LOS CUALES SE QUIERA QUE SE BUSQUEN </H3><BR>
SI QUIERE VER TODA LA TABLA DEJE TODOS LOS CAMPOS VACIOS
<FORM METHOD="Post" ACTION="BD_Ver.asp">
DNI:<INPUT NAME="DNI" SIZE=10><BR><BR>
NOMBRE:<INPUT NAME="NOMBRE" SIZE=20><BR><BR>
APELLIDOS:<INPUT NAME="APELLIDOS" SIZE=30><BR><BR>
DIRECCION:<INPUT NAME="DIRECCION" SIZE=30><BR><BR>
TELEFONO:<INPUT NAME="TELEFONO" SIZE=10><BR><BR>
<INPUT TYPE="Submit" VALUE="Enviar">
</FORM>
<%END IF%>
</body>
</html>
gracias
