Ayuda con sintaxis
Caros
08 de Enero del 2004
Aunque pueda sonar a excusa, juro es verdad, que solo necesito que me ayuden con este problema para poner en linea el sitio. El problema es el siguiente, al final del script, como verán, se crean dos links para avanzar o retroceder la paginacion. Lo que sucede es que, necesito que los mismos se abran en el marco _self o _parent y no he podido dar con la sintaxis correcta para que la cosa funcione con este response.write y el base target lo tengo ocupado para los otros links que estan en la página. ¿Me podrian ayudar? (Se trata de los links: 4 siguientes, 4 anteriores ubicados al final del script)
Creanme que me solucionarian algo que está por acabar con mi paciencia.
Muchas Gracias de Antemano.
Script:
<%
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 ' la cuenta que os he mencionado
'MODIFICAR AQUI PARA CAMBIAR EL Nº DE REGISTRO POR PAGINA
TamPagina=4
'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 rs=Server.CreateObject("ADODB.Recordset")
' Conexión por OLEDB
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source="&Server.MapPath("db/noticias.mdb")&";"
SQL="SELECT id, titulo, copete, fecha, imagen FROM noticias WHERE tipo = 'diario';"
' 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("<br><br>")
CuantosRegistros=0
do while not rs.EOF and CuantosRegistros < TamPagina
'Pinto una línea de la tabla por cada registro
Response.Write "<b> <font face=Verdana size=1><a href=diario.asp?id=" &rs.Fields("id") & ">"&rs.Fields("fecha")& " "&rs.Fields("titulo")& " </font></p>"
Response.Write("</TR>")
CuantosRegistros=CuantosRegistros+1
rs.MoveNext
loop
Response.Write("</TABLE>")
end if
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing
'Muestro los enlaces
Response.Write("<p>")
if PaginaActual > 1 then
Response.Write("<A HREF=listadodiario.asp?pagina="& PaginaActual-1& _
">4 Anteriores</A>")
end if
if PaginaActual < PaginasTotales then
Response.Write("<A HREF=listadodiario.asp?pagina=" & PaginaActual+1 & _
">4 Siguientes</A>") -----Aquí tengo el problema, porque no he dado con la sintaxis correcta para incorporar el target en el link que frabrica el script--- Claro que he probado agregar target="_ejemplo" antes de A HREF, pero no funciona. Me parece que la cosa es más delicada o precisa.
end if
%>
Creanme que me solucionarian algo que está por acabar con mi paciencia.
Muchas Gracias de Antemano.
Script:
<%
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 ' la cuenta que os he mencionado
'MODIFICAR AQUI PARA CAMBIAR EL Nº DE REGISTRO POR PAGINA
TamPagina=4
'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 rs=Server.CreateObject("ADODB.Recordset")
' Conexión por OLEDB
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source="&Server.MapPath("db/noticias.mdb")&";"
SQL="SELECT id, titulo, copete, fecha, imagen FROM noticias WHERE tipo = 'diario';"
' 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("<br><br>")
CuantosRegistros=0
do while not rs.EOF and CuantosRegistros < TamPagina
'Pinto una línea de la tabla por cada registro
Response.Write "<b> <font face=Verdana size=1><a href=diario.asp?id=" &rs.Fields("id") & ">"&rs.Fields("fecha")& " "&rs.Fields("titulo")& " </font></p>"
Response.Write("</TR>")
CuantosRegistros=CuantosRegistros+1
rs.MoveNext
loop
Response.Write("</TABLE>")
end if
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing
'Muestro los enlaces
Response.Write("<p>")
if PaginaActual > 1 then
Response.Write("<A HREF=listadodiario.asp?pagina="& PaginaActual-1& _
">4 Anteriores</A>")
end if
if PaginaActual < PaginasTotales then
Response.Write("<A HREF=listadodiario.asp?pagina=" & PaginaActual+1 & _
">4 Siguientes</A>") -----Aquí tengo el problema, porque no he dado con la sintaxis correcta para incorporar el target en el link que frabrica el script--- Claro que he probado agregar target="_ejemplo" antes de A HREF, pero no funciona. Me parece que la cosa es más delicada o precisa.
end if
%>
Martin
08 de Enero del 2004
Suerte con el sitio.
Response.Write("<A HREF=""listadodiario.asp?pagina=" & PaginaActual+1 & "" " TARGET=""_parent"">4 Siguientes</A>")
Response.Write("<A HREF=""listadodiario.asp?pagina=" & PaginaActual+1 & "" " TARGET=""_parent"">4 Siguientes</A>")