Dette er testet og virker, og koster mindst 21 point.
kan ses på
http://www.morch.dk/point.asp
<% DB_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\web\dinweserver.dk\www\point.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DB_STRING
sql="select * from pointliste order by point desc"
Set rs = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, Conn
if not rs.eof then
response.write " <table><tr><td>Nr.</td><td>Klubnavn</td><td>Point</td> </tr>"
do until rs.eof if point<>rs("point") then x=x+1
response.write "<tr><td>"& x &"</td><td>"&rs("navn")&"</td><td>"&rs("point")&"</td></tr>"
if point=rs("point") then x=x+1
point=rs("point")
rs.movenext
loop
end if
response.write "</table>" %>