Problem med min SUB

Jeg skal have vist følgende RS\'ere (3 seneste) FirstName, LastName, og CountryCode - Hvordan skal denne se ud?

\' henter nyeste medlemmer i vores community
sub nyestemed(medlem)

    Dim FirstName
    OpenDB sConnUsers
   
    Select case medlem
    case \"folk\"
        sql = \"SELECT TOP 1 * FROM Users ORDER BY BrugerID DESC\"
        \'RS.Open \"SELECT * FROM Users\", Conn

    end select
   
    if( LEN(sql) > 0) then
        Set RS = Conn.Execute( sql )
        While NOT RS.EOF
           
            FirstName=LEFT(RS(\"FirstName\"),38)
            FirstName=LEFT(FirstName,INSTRREV(FirstName,\"\")) &\"...\"
            Response.write \"<a href=community/member_directory/showuser.asp?BrugerID=\" & RS(BrugerID) <b>\"
            Response.write  RS(FirstName)
            Response.write  RS(LastName)
            Response.write  RS(CountryCode)
            Response.write \"</a><br>\"
            RS.MoveNext
        Wend
    RS.Close
    conn.Close
    End if
    sql = \"\"
end sub