Selezionare TOP 10

[ubbicom]

Ciao,

ho visto su alcune pagine web queste classifiche chiamate 'TOP 10' dove si trovano le pagine più visitate di un determinato sito...

al momento dispongo di una specie di 'contaclick' che appunto provvede a conteggiare i click sulle pagine del mio sito, naturalmente registrate in un dbase access e protette da password, come faccio a pubblicare questa classifica?...

[weppos]

Devi interfacciare il database con le pagine asp.
Esegui una query con la sintassi " SELECT TOP 10 " e mostra i risultati.
Qui puoi avere un aiuto http://freeasp.html.it/guide/lezione.asp?id=45

[ubbicom]

Originariamente inviato da weppos
Devi interfacciare il database con le pagine asp.
Esegui una query con la sintassi " SELECT TOP 10 " e mostra i risultati.
Qui puoi avere un aiuto http://freeasp.html.it/guide/lezione.asp?id=45

Grazie, procedo così:

<%
Set ConnDown=Server.CreateObject("ADODB.Connection")
OpenStr = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/mdb-database/contaclik.mdb")
ConnDown.Open openStr

Dim SQLDown, RECDown
SQLDown = "SELECT TOP 10 numero FROM clik order by numero desc"

Set RECDown = ConnDown.Execute(SQLDown)

if NOT RECDown.RecordCount = 0 then
Do While (Not RECDown.EOF)

	Response.Write("n° notizia:"& RECDown("id") &"
")
RECDown.MoveNext
Loop
end if


RECDown.Close
Set RECDown = Nothing

ConnDown.Close
Set ConnDown = Nothing

%>

ma restituisce errore sulla riga 14 del response.write :master:
ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

[weppos]

Con

SELECT TOP 10 numero

richiami solo il campo numero e non puoi quindi stampare il campo id

RECDown("id")

Devi richiamarlo o non usarlo.

[ubbicom]

Originariamente inviato da weppos
Con

SELECT TOP 10 numero

richiami solo il campo numero e non puoi quindi stampare il campo id

RECDown("id")

Devi richiamarlo o non usarlo.

Grazie ho risolto...
ho solo un problema con la formattazione della tbl html che deve contenere i dati...

<%
Set ConnDown=Server.CreateObject("ADODB.Connection")
OpenStr = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/mdb-database/contaclik.mdb")
ConnDown.Open openStr

Dim SQLDown, RECDown

SQLDown = "SELECT TOP 10 * FROM clik order by numero desc"

Set RECDown = ConnDown.Execute(SQLDown)

If Not RECDown.EOF Then
Do While (Not RECDown.EOF)
%>

<td><font face="Verdana" style="font-size: 8pt"><%=RECDown("id")%></font></td>
      <td><font face="Verdana" style="font-size: 8pt"><%=RECDown("numero")%></font></td>
      <td><font face="Verdana" style="font-size: 8pt"><%=RECDown("titolo")%></font></td>
      <td><font face="Verdana" style="font-size: 8pt"><%=RECDown("link")%></font></td>

<%
RECDown.MoveNext
Loop
end if

RECDown.Close
Set RECDown = Nothing

ConnDown.Close
Set ConnDown = Nothing
%>

[Roby_72]

<%
Set ConnDown=Server.CreateObject("ADODB.Connection")
OpenStr = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/mdb-database/contaclik.mdb")
ConnDown.Open openStr

Dim SQLDown, RECDown

SQLDown = "SELECT TOP 10 * FROM clik order by numero desc"

Set RECDown = ConnDown.Execute(SQLDown)

If Not RECDown.EOF Then%>

<table>

<%
Do While (Not RECDown.EOF)
%>
<tr>
<td><font face="Verdana" style="font-size: 8pt"><%=RECDown("id")%></font></td>
      <td><font face="Verdana" style="font-size: 8pt"><%=RECDown("numero")%></font></td>
      <td><font face="Verdana" style="font-size: 8pt"><%=RECDown("titolo")%></font></td>
      <td><font face="Verdana" style="font-size: 8pt"><%=RECDown("link")%></font></td>
</tr>
<%
RECDown.MoveNext
Loop%>

<table>

<%end if

RECDown.Close
Set RECDown = Nothing

ConnDown.Close
Set ConnDown = Nothing
%>

Roby

[ubbicom]

grazie, gentilissimo come sempre !

[Roby_72]

Ehmmm, l'ultimo è </table>...

Roby