Select top 100 distinct

det nemmeste ville nok være at ændre databasen så den har 2 rækker, referer og antal, så kan du opdatere i selve databasen hver gang der kommer en ind fra den pågældene referer fx:

SQL = "Select * from referer where referer = '" & Request.ServerVariables("HTTP_REFERER") & "'"
Set RS = objConn.Execute(SQL)


if rs.EOF Then

' så skal der oprettes en i databasen
strSQL = "Insert into referer (referer, antal) values('" & Request.ServerVariables("HTTP_REFERER") & "','1')"
objConn.Execute(strSQL)

else

' så skal den opdateres
strAntal = rs("antal") + 1
strSQL = "UPDATE referer SET antal = '" & strAntal & "' Where referer = '" & Request.ServerVariables("HTTP_REFERER") & "'"
objconn.execute(strSQL)

end if


så kan man nemt lave en top 100:

<%
strSQL = "SELECT COUNT(*) AS Antal FROM referer"
Set RS = objConn.Execute(strSQL)

strAntal = rs("Antal")

if strAntal >= Then
strAntal = 100
end if

SQL = "Select * from referer order by antal"
Set RS = objConn.Execute(SQL)

dim t

t = 0
do until t = strAntal
%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="500" id="AutoNumber1">
  <tr>
    <td width="50%"><% = rs("referer") %></td>
    <td width="50%"><% = rs("antal")%></td>
  </tr>
</table>
<%
rs.MoveNext
Loop
%>

<%
strSQL = "SELECT COUNT(*) AS Antal FROM referer"
Set RS = objConn.Execute(strSQL)

strAntal = rs("Antal")

if strAntal >= 100 Then
strAntal = 100
end if

SQL = "Select * from referer order by antal"
Set RS = objConn.Execute(SQL)

dim t

t = 0
do until t = strAntal
%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="500" id="AutoNumber1">
  <tr>
    <td width="50%"><% = rs("referer") %></td>
    <td width="50%"><% = rs("antal")%></td>
  </tr>
</table>
<%
rs.MoveNext
Loop
%>

så er den nederste rigtig... kl er jo også mange

> Mentoz

Jeg har valgt at konstruere databasen således at jeg kan bruge dit første eksempel.
Og det virker :-)

Du får selvfølgelig point, men jeg har lige et tillægs spørgsmål?

Når jeg nu henter en top100, så vil jeg gerne have sorteret alle dem fra hvor mit eget domæne indgår.

f.eks. er der en masse referer der bare hedder www.domæne.dk/enellerandenside.asp

men jeg kan vidst ikke bruge "not like" med access

Jeg fik løst problemet..

SQL = "Select top 100 * from referer where refer not like '%" & Domain & "%' order by antal DESC"