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 vern, 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 pgina. ¿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 ' cuntas pginas 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 pgina 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")

' Conexin 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 tamao de las pginas
rs.PageSize=TamPagina
rs.CacheSize=TamPagina

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

'Cuento las pginas
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 lnea de la tabla por cada registro
Response.Write "<b>&nbsp;<font face=Verdana size=1><a href=diario.asp?id=" &rs.Fields("id") & ">"&rs.Fields("fecha")& " "&rs.Fields("titulo")& " &nbsp;</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 ms 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>")