<a href> en paginar

HEmilio · #1 (**permalink**) 02/08/2004, 12:00

Antes que nada un saludo a todos, miren estoy haciendo una página para paginar los resultados de una consulta ya me funciona, me muestra los datos, pero yo quisiera ponerle un <a href> a un recordset para enviar ese dato (Folio) a otra página, pero me manda un error, o no sé como ponerlo; mi recordset es: Response.Write("<TD>"&rs.Fields("Folio")&"</TD>"), pero no ´se como o donde ponerloel <a href> para que no me mande error.
Lo hago de otra forma así: Response.Write("<TD><a href='direccion'>"&rs.Fields("Folio")&"</a></TD>").
Pero no me envía el folio a la otra página, cómo le hago o donde pongo el rs.fields("folio"), para que se envíe a la otra página, ya que lo uso para una consulta.
Muchas gracias.

Myakire · #2 (**permalink**) 02/08/2004, 12:03

<a href='direccion?folio="&rs.Fields("Folio")&">"&rs. Fields("Folio")&"</a>

Saludos

Itankai · #3 (**permalink**) 02/08/2004, 13:00

Podrias postearme la parte en la q haces la paginación??? yo aun no entiendo como y no me funciona... de verdad q no le busco.

HEmilio · #4 (**permalink**) 02/08/2004, 13:10

Gracias Myakire, he resuelto mi duda.

Bueno aquí pongo el código por si alguien le sirve (revisa esto Itankai.)

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Documento sin título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
' Paginas en un recordset
'------------------------
' Carlos de la Orden Dijs
' [email protected]
'------------------------

Dim Cnnu, RSU
Dim oConn, rs, SQL
Dim PaginaActual ' en qué pagina estamos
Dim PaginasTotales ' cuántas páginas tenemos
Dim TamPagina ' cuantos registros por pagina
Dim CuantosRegistros ' para imprimir solo el nº de registro por pagina que queramos
Dim Usuarios, User
Usuarios=Session("Usuario")
'MODIFICAR AQUI PARA CAMBIAR EL Nº DE REGISTRO POR PAGINA
TamPagina=10

'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if

set oConn=Server.CreateObject("ADODB.Connection")
Set Cnnu=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
Set RSU=Server.CreateObject("ADODB.Recordset")

' Conexión por OLEDB
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("./Acciones_Correctivas.mdb")
Cnnu.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("./Usuarios.mdb")

SQL="select A.Folio, A.Fecha_Inicio, A.Id_Auditor, A.Id_Origen, A.Usuario, A.Area, A.Estatus, B.Nombre_Auditor, C.Origen from AccionesCorrectivas A, Auditor B, Origen_de_no_Conformidad C Where A.Id_Auditor=B.Id_Auditor and A.Id_Origen=C.Id_Origen "

' Defino el tamaño de las páginas
rs.PageSize=TamPagina
rs.CacheSize=TamPagina

' Abro el recordset
rs.Open SQL, oConn, 1, 2

'Cuento las páginas
PaginasTotales=rs.PageCount

'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if

'Por si la consulta no devuelve registros!
if PaginasTotales=0 then

Response.Write("No se encontraron resultados.")

else

'Vamos a paginar
rs.AbsolutePage=PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
Response.Write(" ")
Response.Write("<TABLE BORDER=""1"" ALIGN=""center"" STYLE=""font-size:75%"">")
Response.Write("<TR><TD>Folio</TD>")
Response.Write("<TD>Fecha</TD>")
Response.Write("<TD>Auditor</TD>")
Response.Write("<TD>Origen</TD>")
Response.Write("<TD>Responsable</TD>")
Response.Write("<TD>Área</TD>")
Response.Write("<TD>Estatus</TD>")
Response.Write("<TD>Ver</TD>")
Response.Write("<TD>Documentar</TD></TR>")
CuantosRegistros=0
do while not rs.EOF and CuantosRegistros < TamPagina
Usuario=Cstr(rs("Usuario"))
sqlu="select Nombre from utvmusuarios where Usuario='"&Usuario&"'"
RSU.Open sqlu, Cnnu
'Pinto una línea de la tabla por cada registro
Response.Write("<TR>"&VbCrLf)
Response.Write("<TD>"&rs.Fields("Folio")&"</TD>")
Response.Write("<TD>"&rs.Fields("Fecha_Inicio")&"</TD>")
Response.Write("<TD>"&rs.Fields("Nombre_Auditor")& "</TD>")
Response.Write("<TD>"&rs.Fields("Origen")&"</TD>")
Response.Write("<TD>"&RSU.Fields("Nombre")&"</TD>")
Response.Write("<TD>"&rs.Fields("Area")&"</TD>")
Response.Write("<TD>"&rs.Fields("Estatus")&"</TD>")
Response.Write("<TD><a href='VerSolicitud2.asp?Folio="&rs.Fields("Folio") &">'>"&"Doc</a></TD>") '&rs.Fields("Folio")
Response.Write("<TD>"&rs.Fields("Folio")&"</TD>")
'Response.Write("<TD>"&rs.Fields("")&"</TD>")
Response.Write("</TR>")
CuantosRegistros=CuantosRegistros+1
RSU.Close
rs.MoveNext
loop
Response.Write("</TABLE>")

end if
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing

'Muestro los enlaces
Response.Write("<hr>")
if PaginaActual > 1 then
Response.Write("<A HREF=Paginar.asp?pagina="& PaginaActual-1& ">10 Anteriores</A>   ")
end if
if PaginaActual < PaginasTotales then
Response.Write("<A HREF=Paginar.asp?pagina=" & PaginaActual+1 &">10 Siguientes</A>")
end if

%>
<a href="Menu.htm"> <img src="atras1.gif" width="76" height="29" border="0"></a>

</body>
</html>

Espero que sirva como ejemplo. gracias a todos. Todos necesitamos de todos.

Myakire · #5 (**permalink**) 02/08/2004, 14:13

Cita:

Iniciado por Itankai

... de verdad q no le busco.