[mypay]

tror du får göra det med flera sql-frågor...

först gå igenom varje olika pID,, köra en count på det för Entry och se om det är högre än föregående count...

jag skulle göra det så här..

sql = "select distinct pID from TABLE order by pID asc"
set rs = conn.execute(sql)

antal = 0
do while not rs.eof
sql = "select count(*) as antal from TABLE where pID = " & rs("pID")
set rs2 = conn.execute(sql)
if rs2("antal") > antal then Rank1_pID = rs("pID")
rs.movenext
loop

response.write "Den som har fungerat som ingångssida flest gånger är " & Rank1_pID & vbCrLf