Yo tengo creado un topsites y quiero q los 3 primeros registros me muestre el banner de la web
Nose asp, bueno algo voy conociendo pero nose, si alguien me puede decir donde deveria incluir el codigo para q los 3 primeros registros sea diferente q el resto.
Muchas gracias por todo, un saludo
Código PHP:
<table cellSpacing=1 cellPadding=3 bgcolor="#000000" width=130><tr><td background=ml03.gif><font size=1 face=verdana color=white><b>Top webs - Visitas</b></td></tr><tr><td bgcolor=eeeeee>
<%
Dim oConn4, rs4, SQL4
Dim PaginaActual4 ' en qué pagina estamos
Dim PaginasTotales4 ' cuántas páginas tenemos
Dim TamPagina4 ' cuantos registros por pagina
Dim CuantosRegistros4 ' la cuenta que os he mencionado
'MODIFICAR AQUI PARA CAMBIAR EL Nº DE REGISTRO POR PAGINA
TamPagina4=10
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina4")="" then
PaginaActual4=1
else
PaginaActual4=CInt(Request.Querystring("pagina4"))
end if
set oConn4=Server.CreateObject("ADODB.Connection")
set rs4=Server.CreateObject("ADODB.Recordset")
' Conexión por OLEDB
oConn4.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source="&Server.MapPath("webs.mdb")&";"
SQL4="SELECT * FROM webs ORDER BY clicksin DESC"
' Defino el tamaño de las páginas
rs4.PageSize=TamPagina4
rs4.CacheSize=TamPagina4
' Abro el recordset
rs4.Open SQL4, oConn4, 1, 2
'Cuento las páginas
PaginasTotales4=rs4.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual4 < 1 then
PaginaActual4 = 1
end if
if PaginaActual4 > PaginasTotales4 then
PaginaActual4 = PaginasTotales4
end if
'Por si la consulta no devuelve registros!
if PaginasTotales4=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
rs4.AbsolutePage=PaginaActual4
Response.Write("<table border=0 width=100>")
CuantosRegistros4=0
do while not rs4.EOF and CuantosRegistros4 < TamPagina4
'Pinto una línea de la tabla por cada registro
Response.Write("<tr><td>"&VbCrLf)
Response.Write("<b><a href=out.asp?url="&rs4.Fields("url")&" target=blank><font size=1 face=verdana color=black>"&rs4.Fields("web")&"</a></b></td><td>")
Response.Write("<font size=1 face=verdana>"&rs4.Fields("clicks")&"</td></tr>")
CuantosRegistros4=CuantosRegistros4+1
rs4.MoveNext
loop
Response.Write("</table>")
end if
rs4.Close
oConn4.Close
set rs4=nothing
set oConn4=nothing
Muestro los enlaces
Response.Write("")
if PaginaActual4 > 1 then
Response.Write(" ")
end if
if PaginaActual4 < PaginasTotales4 then
Response.Write("")
end if
%>
<br><font size=1 face=verdana><a href=todos.asp target=_search>Ver más enlaces</a></td></tr></table>