En este grupo En todos

Foro de Programación web



Paginacion en asp

Marco
Santiago, Chile
Escrito por Marco Zurita
el 15/07/2008

Hola como estas!

Tengo un problema y no lo e podido resolver, es el siguiente!

Tengo una pagina con un buscador por nombre de empresa la cual  la voy a paginar para que me muetre dos clientes por pantalla de la misma empresa, esto esta en aso con sql server que es el gestor de mi base de datos!

Ahora bien la ingresar el nombre de la empresa  me encuantra dias clientes y como es una paginacion mme los va a mostrar de 2 en 2 es decir 5 pantallas paginare!

Cuando me muestra la primera pantalla me salen los 2 clientes pero cuando pincho siguiente  no me sales los otros dos, sino  que no me sale ningun datos, a que se debera!

Este es el codigo de mi formulario es pero lo entiendas y en la ultima parte esta  el codigo de la paginacion, gracias por tu

PD: trata de copiar el codigo en dreamweaber para que veas la interfax y poder ayudarme en lo que  te pregunto desde ya agradecido Marcos

 *****************Codigo Buscador*******************

 <%
  if request("oculto")="" then
 %>
                                Fecha Solicitada<font color="#000000" size="2">
                                <input type="rut" name="text" size="10" onBlur="valFecha(this)">
                                </font> <font color="#000000">
                                <% 
  else
   response. Write "<input type="text" name="rut" value=" &  strRut & ">"
  end if
 %>
                                </font><font color="#0099FF"><font color="#000000" size="2">
                                <font color="#000000" size="2"> </font> <font color="#000000">
                                </font></font></font><font color="#000000"> <font size="2"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
                                </font><font color="#000000"><font size="2"><font color="#0099FF"><font color="#000000" size="2"><font color="#0099FF"><font color="#000000" size="1" face="Verdana"><font color="#000000"><font size="2"><font color="#000000"><font size="2"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
                                </font><font color="#0099FF"><font color="#000000" size="2"><font color="#000000"><font size="2"><b><font color="#000000"><font size="2"><font color="#0099FF"><font color="#000000" size="2"><font color="#0099FF"><font color="#000000" size="1" face="Verdana"><font color="#000000"><font size="2"><font color="#000000"><font size="2"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
                                <input type="submit" name="Submit" value="Mostrar">
                                </font></b></font></font></font></font></font></font></font></font></font></font></b></font></font></font></font><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
                                </font></b></font></font></font></font></font></font></font></font></font></font><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
                                <% strRut =request. Form("text")%>
                                  </font></b></font></font><font size="2"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
                                </font></b></font></font></font><font color="#FFFFFF" size="2">&nbsp;</font><font size="2"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">

*****Fin  Buscador*************

****Cogigo ASp*********

 <%
Set conexion=Server. Createobject("Adodb. Connection")
    conexion. Open "PROVIDER=SQLOLEDB;SERVER=MARCO;DATABASE=Credito", "sa","marco"
"Creamos el RecordSet para la paginacion de registros
set rst=server. CreateObject("adodb. Recordset")
"Creamos nuestra sentencia SQL
"sqlStr = "Select * form tabla"
strSQL = "pa_s_BuscarFacturaFechaSolicitada "" & Session("ss_rutempresa") & "","" & strRut & """
"Definimos la cantidadd de registros que mostrara por pagina

Rst. Pagesize = 1
rst. CursorLocation=3
rst. CursorType=3
"Abrimos la coneccion al RecordSet
rst. Open strSQL, conexion
"Tomamos el valor de la pagina en la que nos encontramos
Pagina = Request. QueryString("pagina")
if pagina < "1" or pagina = "" then
      pagina = "1"
end if
if not rst. Eof then
      "Indicamos que pagina debe de mostrar
      rst. AbsolutePage = pagina
end if
%>
                                <Table width=86% border="1" bordercolor="#F3F3F3">
                                  <TR bgcolor="#336699">
                                    <TD width="14%"><div align="center"><font color="#FFFFFF" size="2">Rut<br>
                                        Cliente</font></div></TD>
                                    <TD width="14%"><div align="center"><font color="#FFFFFF" size="2">Nombre<br>
                                        Empresa</font></div></TD>
                                    <TD width="14%"><div align="center"><font color="#FFFFFF" size="2">N&uacute;mero<br>
                                        Factura </font></div></TD>
                                    <TD width="14%"><div align="center"><font color="#FFFFFF" size="2">Monto
                                        <br>
                                        Factura </font></div></TD>
                                    <TD width="14%"><div align="center"><font color="#FFFFFF" size="2">Fecha<br>
                                        Emisi&oacute;n </font></div></TD>
                                    <TD width="14%"><div align="center"><font color="#FFFFFF" size="2">Fecha
                                        <br>
                                        Vencimineto</font></div></TD>
                                  </TR>
 <%
                        
For i = 1 to 1
 "do while not rst. Eof and paginas < maxregistros
    if not rst. Eof then %>
                                  <tr>
                                    <td height="23" align="center"><font color="#000000" size="2"><%=rst("Rut_Cliente")%>-
                                      &nbsp;<%=rst("digito")%>&nbsp;</font></td>
                                    <td align="center"><font color="#000000" size="2"><%=rst("Empresa_Cliente")%></font></td>
                                    <td align="center"><font color="#000000" size="2"><%=rst("Codigo_Factura")%>&nbsp;</font></td>
                                    <td align="center"><font color="#000000" size="2"><%=rst("Moneda_Pais")%>&nbsp;<%=rst("Monto_Factura")%></font></td>
                                    <td align="center"><font color="#000000" size="2"><%=rst("Fecha_Factura")%></font></td>
                                    <td align="center"><font color="#000000" size="2"><%=rst("Fecha_Vencim_Factura")%></font></td>
                                  </tr>
          <%
           rst. Movenext
      end if
next
%>
                                </Table></table>
                        </form>

***Fin Codigo*****

****Codigo paginación***********

<Table  Width="566" border="0" align="left">
                          <TR>
                            <! -- navegacion hacia paginas anteriores -->
                            <%if pagina = "1" then%>
                            <%else%>
                            <TD width="25%" align= "center"><div align="left"><font color="#336699"><font size="2"><a href="buscar_facturas_fecha_solicitud. Asp? Pagina=0">Volver</a></font></font></div></TD>
                            <TD width="25%" align= "center"><div align="left"><font color="#336699"><font size="2"><a href="buscar_facturas_fecha_solicitud. Asp? Pagina=<%=pagina-1%>">Volver</a></font></font></div></TD>
                            <%end if%>
                            <! --navegacion hacia paginas posteriores-->
                            <%if int(pagina) => rst. PageCount then%>
                            <TD width="25%" align="center"><div align="left"><font color="#336699"><font size="2">
                                Siguiente </font></font></div></TD>
                            <TD width="25%" align="center"><div align="left"><font color="#336699"><font size="2">
                                Siguiente</font></font></div></TD>
                            <%else%>
                            <TD width="25%" align= "center"> <div align="right"><font color="#336699"><font size="2"><a href="buscar_facturas_fecha_solicitud. Asp? Pagina=<%=pagina+1%>"></a></font><font color="#336699"><font size="2"><a href="buscar_facturas_fecha_solicitud. Asp? Pagina=<%=pagina+0%>">Siguiente</a></font></font></font></div></TD>
                            <TD width="25%" align= "center"> <div align="right"><font color="#336699"><font color="#336699"><font size="2"><a href="emitidas. Asp? Pagina=<%=rst. PageCount%>">Siguiente</a></font></font><font size="2"></font></font></div></TD>
                            <%end if%>
                          </TR>
                        </Table>

***Fin Codigo paginacion*****************

Marco Zurita
Santiago, Chile
Escrito por Marco Zurita
el 28/07/2008

Hola como estas!

Tengo un problema y no lo e podido resolver, es el siguiente!

Tengo una pagina con un buscador por nombre de empresa la cual  la voy a paginar para que me muetre dos clientes por pantalla de la misma empresa, esto esta en aso con sql server que es el gestor de mi base de datos!

Ahora bien la ingresar el nombre de la empresa  me encuantra dias clientes y como es una paginacion mme los va a mostrar de 2 en 2 es decir 5 pantallas paginare!

Cuando me muestra la primera pantalla me salen los 2 clientes pero cuando pincho siguiente  no me sales los otros dos, sino  que no me sale ningun datos, a que se debera!

Este es el codigo de mi formulario es pero lo entiendas y en la ultima parte esta  el codigo de la paginacion, gracias por tu

PD: trata de copiar el codigo en dreamweaber para que veas la interfax y poder ayudarme en lo que  te pregunto desde ya agradecido Marcos

***********html********

  <form name="form1" method="post" action="buscar_movimiento_cte_nombre_empresa. Asp">
                          <table width="99%">
                            <tr>
                              <td height="60" bgcolor="#FFFFFF"> <font color="#0099FF"><font color="#000000" size="2">
                                </font><font color="#0099FF"><font color="#0099FF"><font color="#0099FF"><font color="#000000" size="2">

Ingrese
                                Nombre Empresa </font>
                                <input type="text" name="strRut" size="10">
                                <input type="submit" value="Buscar" name="boton1">
                                <font size="2" face="Tahoma"><br>
                                <br>
                                </font> <font color="#000000" size="2">Resultados
                                obtenidos con </font><font color="#0099FF"><font color="#0099FF"><font color="#0099FF"><font color="#000000" size="2">Nombre
                                Empresa</font></font></font></font><font color="#000000" size="2">&nbsp;&nbsp;&nbsp;</font><font size="2"><font size="2"><font color="#000000"><strong><%=Request("strRut") %></strong></font></font></font><font size="2"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></b></font></font><font size="2"><b></b></font><font size="2"><b><font size="2"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
                                <%
Set conexion=Server. Createobject("Adodb. Connection")
  conexion. Open "PROVIDER=SQLOLEDB;SERVER=MARCO;DATABASE=Credito", "sa","marco"
"Creamos el RecordSet para la paginacion de registros
set rst=server. CreateObject("adodb. Recordset")
"Creamos nuestra sentencia SQL
    strSQL = "SELECT dbo. [vie Lista Facturas X Cliente]. Rut_Cliente, dbo. [vie Lista Facturas X Cliente]. Digito, dbo. [vie Lista Facturas X Cliente]. Empresa_Cliente, " & _ 
             "         dbo. [vie Lista Facturas X Cliente]. FACTURAS, dbo.vieSumaCreditoXCliente.CREDITO, dbo.vieTotalChequesXCliente.CHEQUE, " & _
             "         SUM(dbo. VieSumaProtestoXCliente. [Valor Protesto]) AS PROTESTO, " & _
             "         SUM(dbo. [vie Lista Facturas X Cliente]. FACTURAS - dbo.vieSumaCreditoXCliente.CREDITO - dbo.vieTotalChequesXCliente.Cheque) AS Saldo " & _
            "FROM dbo. [vie Lista Facturas X Cliente] INNER JOIN " & _
            "          dbo. VieSumaCreditoXCliente ON dbo. [vie Lista Facturas X Cliente]. Rut_Cliente = dbo.vieSumaCreditoXCliente.Rut_Cliente INNER JOIN " & _
            "          dbo. VieTotalChequesXCliente ON dbo.vieSumaCreditoXCliente.Rut_Cliente = dbo.vieTotalChequesXCliente.Rut_Cliente LEFT OUTER JOIN " & _
            "          dbo. VieSumaProtestoXCliente ON dbo.vieTotalChequesXCliente.Rut_Cliente = dbo.vieSumaProtestoXCliente.Rut_Cliente " & _
            "GROUP BY dbo. [vie Lista Facturas X Cliente]. Rut_Cliente, dbo. [vie Lista Facturas X Cliente]. Digito, dbo. [vie Lista Facturas X Cliente]. Empresa_Cliente, " & _
            "          dbo. [vie Lista Facturas X Cliente]. FACTURAS, dbo.vieSumaCreditoXCliente.CREDITO, dbo.vieTotalChequesXCliente.Cheque, " & _
            "          dbo. [vie Lista Facturas X Cliente]. Rut_empresa " & _
             "HAVING dbo. [vie Lista Facturas X Cliente]. Rut_empresa = ""  & Session("ss_rutempresa") & "" AND dbo. [vie Lista Facturas X Cliente]. Empresa_Cliente = "" & request("strRut") & """

    "Definimos la cantidadd de registros que mostrara por pagina
rst. Pagesize = 2
rst. CursorLocation=3
rst. CursorType=3
"Abrimos la coneccion al RecordSet
rst. Open strSQL, conexion
"Tomamos el valor de la pagina en la que nos encontramos
Pagina = Request. QueryString("pagina")
if pagina < "1" or pagina = "" then
      pagina = "1"
end if
if not rst. Eof then
      "Indicamos que pagina debe de mostrar
      rst. AbsolutePage = pagina
end if
%>
                                </font></b></font><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></b></font></font></font><br>
                                </font><font size="2"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><br>
                                </font></b></font> <table width="83%" bordercolor="#F3F3F3">
                                  <tr bgcolor="#336699">
                                    <td width="14%"><div align="center"><font color="#FFFFFF" size="2">&nbsp;Rut
                                        <br>
                                        Cliente </font></div></td>
                                    <td width="15%"><div align="center"><font color="#FFFFFF" size="2">&nbsp;Suma
                                        <br>
                                        Facturas</font></div></td>
                                    <td width="20%"><div align="center"><font color="#FFFFFF" size="2">Suma
                                        <br>
                                        Creditos </font></div></td>
                                    <td width="16%" height="30"><div align="center"><font color="#FFFFFF" size="2">Suma<br>
                                        Cheque <br>
                                        </font></div></td>
                                    <td width="16%" height="30"><div align="center"><font color="#FFFFFF" size="2">Suma<br>
                                        Protesto <br>
                                        </font></div></td>
                                    <td width="19%" height="30"><div align="center"><font color="#FFFFFF" size="2">Saldo<br>
                                        Contable <br>
                                        </font></div></td>
                                  </tr>
                                  <%
"Hacemos un loop con la cantidad de registros especificados en rs. Pagesize, para que solo muestre esa cantidad
For i = 1 to 2
      "Verificamos cada ves que no sea fin de archivo
      if not rst. Eof then%>
                                  <! --Poblamos la tabla con el resultado de la consulta a la base de datos-->
                                  <tr>
                                    <td height="20"><div align="center"><font color="#000000" size="2"><%=rst("Rut_Cliente")%>-<%=rst("digito")%></font></div></td>
                                    <td height="20"><div align="center"><font color="#000000" size="2"><%=rst("FACTURAS")%></font></div></td>
                                    <td height="20"><div align="center"><font color="#000000" size="2"><%=rst("CREDITO")%></font></div></td>
                                    <td height="20"><div align="center"><font color="#000000" size="2"><%=rst("CHEQUE")%></font></div></td>
                                    <td height="20"><div align="center"><font color="#000000" size="2"><%=rst("PROTESTO")%></font></div></td>
                                    <td height="20"><div align="center"><font color="#000000" size="2"><%=rst("SALDO")%></font></div></td>
                                  </tr>
                                  <%
            "Nos movemos al siguiente registro
            rst. MoveNext
      end if
next
%>
                                </Table>

*****Codigo Paginacion****************

<Table  Width="538" border="0">
                          <TR>
                            <! -- navegacion hacia paginas anteriores -->
                            <%if pagina = "1" then%>
                            <! --<TD width="25%" align="center"> volver </TD>-->
                            <! --<TD width="25%" align="center"> < </TD>-->
                            <%else%>
                            <TD width="25%" align= "center"><div align="left"><font color="#000000" size="2"><a href="buscar_movimiento_cte_nombre_empresa. Asp? Pagina=1">volver</a></font></div></TD>
                            <TD width="25%" align= "center"><font color="#FFFFFF" size="2">volver</font></TD>
                            <%end if%>
                            <! --navegacion hacia paginas posteriores-->
                            <%if int(pagina) => rst. PageCount then%>
                            <! --<TD width="25%" align="center"> > </TD>-->
                            <TD width="45%" align="center"><div align="right"><font color="#FFFFFF" size="2"><a href="buscar_movimiento_cte_nombre_empresa. Asp? Pagina=1">sgte</a>
                                </font></div></TD>
                            <%else%>
                            <TD width="5%" align= "center"><div align="right"><font color="#000000" size="2"><a href="buscar_movimiento_cte_nombre_empresa. Asp? Pagina=<%=pagina+1%>">sgte</a></font></div></TD>
                            <%end if%>
                          </TR>
                        </Table>