Viser kun en post.

Jeg får ingen fejl, men den viser kun én post, nemlig den nyeste:

------------------------KODEN----------------------
Conn_crew = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("admin/rater.mdb") & ""
                Set RS_vis = Server.CreateObject("ADODB.RecordSet")
                Set RS_vis2 = Server.CreateObject("ADODB.RecordSet")
                RS_vis.open "Select * From [tbl_comment] WHERE tilkny_id=" & Request.QueryString("id") & " ORDER BY id DESC" , Conn_crew, 1, 3
               
                StrBruger = RS_vis("Bruger")
               
                RS_vis2.open "Select * From [tbl_user] WHERE id=" & StrBruger , Conn_crew, 1, 3               
               
                strPoster = RS_vis2("Brugernavn")
                strDato = RS_vis("dato")
                strAntal = RS_vis2("posts")
                strTekst = RS_vis("tekst")
                strTag = RS_vis2("tagline")
               
                Do until RS_vis.eof or RS_vis2.eof
               
                response.Write("<tr><td>" & strPoster & " <b>Posts: </b>" & strAntal & " - " & strDato & "</td></tr>")
                response.Write("<tr><td><br>" & strTekst & "<br><br><center> - <i>" & strTag & "</i> - </center></td></tr>")
               
                RS_vis2.Movenext
                RS_vis.Movenext
                Loop
................................................
Den skulle gerne vise alle :(