oks, me funciono perfectamente y ahora lo estoy usando para un contador de mi web. Aqui muestro una parte de las estadisticas de las visitas. Me gustaria q se ordenara por el "cantidade" pero si pongo order by cantidade me da error. como puedo hacerlo?
Muestro el codigo por si lo quereis ver mejor:
<%
Dim oConne, rse, SQLe
Dim PaginaActuale ' en qué pagina estamos
Dim PaginasTotalese ' cuántas páginas tenemos
Dim TamPaginae ' cuantos registros por pagina
Dim CuantosRegistrose ' la cuenta que os he mencionado
'MODIFICAR AQUI PARA CAMBIAR EL Nº DE REGISTRO POR PAGINA
TamPaginae=10
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("paginae")="" then
PaginaActuale=1
else
PaginaActuale=CInt(Request.Querystring("paginae"))
end if
set oConne=Server.CreateObject("ADODB.Connection")
set rse=Server.CreateObject("ADODB.Recordset")
' Conexión por OLEDB
oConne.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source="&Server.MapPath("estadisticas.mdb")&";"
SQLe="SELECT url, Count(hora) AS Cantidade FROM estadisticas Group By url order by url"
' Defino el tamaño de las páginas
rse.PageSize=TamPaginae
rse.CacheSize=TamPaginae
' Abro el recordset
rse.Open SQLe, oConne, 1, 2
'Cuento las páginas
PaginasTotalese=rse.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActuale < 1 then
PaginaActuale = 1
end if
if PaginaActuale > PaginasTotalese then
PaginaActuale = PaginasTotalese
end if
'Por si la consulta no devuelve registros!
if PaginasTotalese=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
rse.AbsolutePage=PaginaActuale
Response.Write("<font size=2 face=arial>Página " & PaginaActuale & " de " & PaginasTotalese)
Response.Write("<br><br><table width=200><tr bgcolor=""eeeeee""><td><font size=2 face=arial><b><center>DIA</td>")
Response.Write("<td><font size=2 face=arial><b><center>VISITAS</td><td><font size=2 face=arial><b><center>BARRAS<td></tr>")
CuantosRegistrose=0
do while not rse.EOF and CuantosRegistrose < TamPaginae
'Pinto una línea de la tabla por cada registro
Response.Write("<tr>"&VbCrLf)
Response.Write("<td><font size=2 face=arial> <font size=1 face=arial><a href="&rse.Fields("url")&" target=_blank>"& left(RSe.Fields("url"),20)&"...</a><br>")
Response.Write("</td><td><font size=2 face=arial> "&rse.Fields("cantidade")&"<br>")
Response.Write("</td><td><img src=barraestats.gif height=15 width="&rse.Fields("cantidade")&"></td> ")
CuantosRegistrose=CuantosRegistrose+1
rse.MoveNext
loop
Response.Write("</tr></table>")
end if
rse.Close
oConne.Close
set rse=nothing
set oConne=nothing
'Muestro los enlaces
Response.Write("<br><br>")
if PaginaActuale > 1 then
Response.Write("<A HREF=?paginae="& PaginaActuale-1& _
">siguientes</A> ")
end if
if PaginaActuale < PaginasTotalese then
Response.Write("<A HREF=?paginae=" & PaginaActuale+1 & _
">anteriores</A>")
end if
%>