Do while movenext loop

Jeg har mistet tråden fuldstændig, nogen der kan finde en løsning på dette?
Vil gerne have udskrevet en liste over de 10 nyeste bruger og et online ikon ud for hver, men listen tilter total både online og offline bruger vises flere gange, håber på ekspert hjælp.

200 point.

<%
     
    Sub WriteOnLineUsers()
    Dim arrUsers
    Dim n
    ' --- lav et array med online brugere ---
    arrUsers = Split(Application("Onlineusers"), ",")
    ' --- udskriv liste ---
    For n = 1 To UBound(arrUsers) -1


    users = arrUsers(n)

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnStr

Set rs = Conn.Execute("SELECT * FROM members ORDER BY ID DESC LIMIT 10")
       
                     
              do while not rs.eof
             
   
if rs("brugernavn") = "" & users & "" AND " & vist & " <> " & users & " then
response.write("<img border=""0"" src=""image/lol.gif"" width=""16"" height=""16"">&nbsp;")
vist = rs("brugernavn")
end if
             
             
if rs("brugernavn") <> "" & users & "" AND " & vist & " <> " & users & " then
response.write("<img border=""0"" src=""image/lol2.gif"" width=""16"" height=""16"">&nbsp;")
rs("brugernavn") = vist
end if
   
response.write("<a href=""show.asp?bruger=" & rs("brugernavn") & """ target=""mainframe""><font face=""Verdana"" color=""#800080"" size=""1"">")
response.write("" & rs("brugernavn") & "")
response.write("</a>")
             

rs.movenext
loop


    rs.Close
    Conn.Close
    Set Conn = Nothing
    Set rs = Nothing
   

Next
End Sub

Call WriteOnlineUsers()

   
%>