Foros del Web » Programando para Internet » ASP Clásico »

Paginar Asp

Estas en el tema de Paginar Asp en el foro de ASP Clásico en Foros del Web. Hola a todos: Soy nuevo en estos temas y me prepare una pequeña pagina web asp copiando codigo de alla y de aca, el caso ...
  #1 (permalink)  
Antiguo 20/01/2008, 18:00
 
Fecha de Ingreso: enero-2008
Mensajes: 1
Antigüedad: 16 años, 3 meses
Puntos: 0
Paginar Asp

Hola a todos:
Soy nuevo en estos temas y me prepare una pequeña pagina web asp copiando codigo de alla y de aca, el caso es que ahora en mi base de datos de access tengo muchos resultados y me gustaria paginar los resultados y estoy buscando en este foro pero la verdad es que soy un poco cateto y no se como utilizar los codigos que ponen para que funcione en mi pagina. Os pongo mi codigo haber si me podeis ayudar.

gracias de antemano

<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>BUSQUEDA</title>
</head>

<body background="images/fondo.gif">

<div align="center">
<center>

<table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#C0C0C0" width="730" id="AutoNumber1" height="154">
<tr>
<td width="730" bgcolor="#FFFFFF" height="49">
</td>
</tr>
<tr>
<td width="730" bgcolor="#FFFFFF" height="36" background="images/bazul.png">
<p align="center">
<font face="Verdana" style="font-size: 10pt" color="#FFFFFF">BUSCAR
INTERVENCIÓN</font></td>
</tr>
<tr>
<td width="86%" bgcolor="#FBFBFB" height="92">
<font face="Verdana" style="font-size: 8pt">&nbsp;


<%
Dim oConn, RS, sql, varName
'on error resume next
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db/contactos.mdb")
varName= Trim(Request.Form ("T1"))
sql = "SELECT * FROM amigos WHERE NOMBRE & CODIGO & DIRECCION & FECHA like '%" & varName & "%'" & "ORDER BY Fecha DESC"
RS.Open sql, oConn,3,1
%>

</font>

<center><font face="Verdana" style="font-size: 8pt">
<%
if rs.EOF then
Response.Write("No se encuentran resultados con estos criterios.")
end if
%>
</font></center>
<font face="Verdana" style="font-size: 8pt">
<%
do while not rs.EOF
%>

</font>

</font><div align="center">
<table border="1" width="97%" id="table1" cellspacing="1" style="border-width:0; border-collapse: collapse; " bordercolor="#336699" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" height="67">
<tr>
<td bgcolor="#E0DFE3" align="center" width="32%" style="border-left:1px solid #C0C0C0; border-right-style:solid; border-right-width:1px; border-top-style:solid; border-top-width:1px; border-bottom-style:solid; border-bottom-width:1px" bordercolor="#C0C0C0" height="16">
<font face="Verdana" size="1">NOM. RAZÓN SOC</font></td>
<td bgcolor="#E0DFE3" align="center" style="border-style: solid; border-width: 1px" bordercolor="#C0C0C0" width="34%" height="16">
<font face="Verdana" size="1">DIRECCIÓN</font></td>
<td bgcolor="#E0DFE3" align="center" width="12%" style="border-style: solid; border-width: 1px" bordercolor="#C0C0C0" height="16">
<font face="Verdana" size="1">ESTADO</font></td>
<td bgcolor="#E0DFE3" align="center" width="11%" style="border-style: solid; border-width: 1px" bordercolor="#C0C0C0" height="16">
<font face="Verdana" size="1">FECHA</font></td>
<td bgcolor="#E0DFE3" align="center" width="10%" style="border-right:1px solid #C0C0C0; border-left-style:solid; border-left-width:1px; border-top-style:solid; border-top-width:1px; border-bottom-style:solid; border-bottom-width:1px" bordercolor="#C0C0C0" height="16">
<font face="Verdana" size="1">IMPRIMIR</font></td>
</tr>
<tr>
<td width="32%" align="center" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" height="32" style="border-left: 1px solid #C0C0C0; border-right-style: solid; border-right-width: 1px; border-top-style: solid; border-top-width: 1px; border-bottom-style: solid; border-bottom-width: 1px">
<font face="Verdana" style="font-size: 7pt">
<%= rs("NOMBRE") %><br>
</font>
</td>
<td align="center" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" width="34%" height="32" style="border-style: solid; border-width: 1px">
<font face="Verdana" style="font-size: 7pt">
<%= rs("DIRECCION") %></IMG><br>
</td>
<td width="12%" align="center" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" height="32" style="border-style: solid; border-width: 1px">
<font face="Verdana" style="font-size: 7pt" color="#FF0000">&nbsp;<%= rs("ESTADO") %></font></td>
<td width="11%" align="center" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" height="32" style="border-style: solid; border-width: 1px">
<font face="Verdana" style="font-size: 7pt"><%= rs("FECHAFIN") %></font></td>
<td width="10%" align="center" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" height="32" style="border-left-style: solid; border-left-width: 1px; border-right: 1px solid #C0C0C0; border-top-style: solid; border-top-width: 1px; border-bottom-style: solid; border-bottom-width: 1px">
<font face="Verdana" style="font-size: 7pt">
<p align="center"><A HREF="verelmensaje.asp?Id=<%=RS("Id")%>">
<span style="text-decoration: none"><font color="#0033CC"><%=rs("CODIGO_INTERVENCION")%></font></span></a></td>
</tr>
<tr>
<td align="center" style="border-left-style:none; border-left-width:medium; border-right-style:none; border-right-width:medium; border-top-style:solid; border-top-width:1px; border-bottom-style:none; border-bottom-width:medium" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" colspan="5">
<span style="font-size: 1pt">&nbsp;</span></td>
</tr>
</table>
</div><font size="1" face="Verdana" color="black">

<%
RS.MoveNext
Loop
RS.Close
oConn.Close
Set RS = nothing
Set oConn = nothing
%>
</font></td>
</tr>
</table>
</center>
</div>
</TD></TR>
<tr>
<td height="163" bgcolor="#8DA7C0" align="left" width="101" valign="top">
&nbsp;</td>
<td height="163" bgcolor="#FFFFFF" width="591" colspan="2" valign="top" align="center">
<p dir="ltr" align="center">
&nbsp;<p dir="ltr">
&nbsp;<tr>
</body>
</html>
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 15:14.