problem med optælling

Nedenståend program kode virker ikke helt efter hensigten.
Det skal tælle en placering op, således at hvis to brugere har samme antal point har de samme placering.
1
2
2
4


%
strnr = 3
set DB = Server.CreateObject(\"ADODB.Connection\")
    DB.open \"Driver={Microsoft Access Driver (*.mdb)};\"&_
    \"DBQ=\"&server.mappath(\"db/tips.mdb\")&\";\"&_
    \"DefaultDir=\"&server.mappath(\"./\")&\";FIL=MS Access;\"

SqlStr = \"SELECT * FROM Point ORDER BY samlet\"&strnr&\" DESC\"
set RS = DB.execute(SqlStr)
i=1

while not RS.eof
response.Write \"nummer: \"&i&\" er \"&RS(\"ID\")&\"<br>\"

\'sqlStr1 = \"Update Point Set  placering2 = \"&i&\" Where ID = \'\"&RS(\"ID\")&\"\'\"
\'DB.execute(sqlStr1)
    IF RS(\"samlet\"&strnr&\"\") = tmp THEN
        i = i+1
END IF
tmp = RS(\"samlet\"&strnr&\"\")
RS.MoveNext
IF NOT RS.EOF THEN
    IF NOT RS(\"samlet\"&strnr&\"\") = tmp THEN
        i = i+1
    END IF
END IF

WEND


%>


Hvad er der galt, den kan ikke finde ud af hvis de tre første er nummer 1.