Top liste - Automatisk nummer givning

Jeg normalt bare en tæller eks:

plads = 1
do while not rs.EOF
  Response.Write plads & ". " & rs("hold") & "<br>"
  plads = plads + 1
  rs.Movenext
loop

Okay - det lyder meget logisk men kan du hjælpe mig med at bygge det ind i det her?

<%
Conn_crew = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("res.mdb") & ""
Set RS_vis = Server.CreateObject("ADODB.RecordSet")
RS_vis.open "Select * From [stats] ORDER by Review DESC" , Conn_crew, 1, 3

do until RS_vis.eof

strTitel = RS_vis("writer")
strFormat = RS_vis("review")



response.Write("<tr><td>" & strTitel & " </td><td>" & strFormat & "</td></tr>")

RS_vis.MoveNext
loop
RS_vis.Close
%>

Ja sådan her, plads er lagt ind i den  første kolonne sammen med strTitel:


<%
Conn_crew = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("res.mdb") & ""
Set RS_vis = Server.CreateObject("ADODB.RecordSet")
RS_vis.open "Select * From [stats] ORDER by Review DESC" , Conn_crew, 1, 3

plads = 1
do until RS_vis.eof

strTitel = RS_vis("writer")
strFormat = RS_vis("review")


response.Write("<tr><td>" & plads & ". " & strTitel & " </td><td>" & strFormat & "</td></tr>")

plads = plads + 1

RS_vis.MoveNext
loop
RS_vis.Close
%>

Lækkert 1000 tak!