loop problem

<%                                     
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../db/clubrace.mdb")
Conn.Open DSN

strSQL = "SELECT * FROM Spg Where ID=" & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)
       
page_title = "<a href=forum_default.asp>Forum</a> | " & rs("SpgSubjekt") & ""
%>       
  <!--#include file="includes/design/design_start.asp"-->

    <table border=0 cellspacing=0 cellpadding=2 width=750>
    <tr>
      <td width=120 valign=top bgcolor=#DEDEDE><p><b>Dato:</b><br> <% Response.Write rs("spgdate") %><br>
      <b>Posted af:</b><br> <% Response.Write rs("SpgPoster") %><br><br>
      <a href=forumreply.asp?id=<% Response.Write rs("id") %>&user=<% Response.Write rs("spgposter") %>>Svar til bruger</a></p></td>
      <td width=630 align=center valign=top>
          <table border=0 cellspacing=0 cellpadding=0 width=620>
          <tr> <td><p><b>Emne: <% Response.Write rs("spgsubjekt") %></b><br><% Response.Write rs("spgtext") %></p></td> </tr>
          </table>
      </td>
    </tr>
    </table>
   
    <table border=0 cellspacing=0 cellpadding=2 width=750>
      <tr> <td width=750 height=4><img src=gfx/spacer.gif width=750 height=4></td> </tr>
    </table>   
   
    <% 

   
    strSQL = "SELECT * FROM Reply Where SpgID=" & rs("id")
    Set rs2 = Conn.Execute(strSQL) 
   
    Do
   
    If rs2.EOF Then
      Response.Write "<p>Der er ikke svaret på spørgsmålet</p>"
    Else
    %>
    <table border=0 cellspacing=0 cellpadding=2 width=750>
    <tr>
      <td width=120 valign=top bgcolor=#DEDEDE><p><b>Dato:</b><br> <% Response.Write rs2("ReplyDate") %><br>
      <b>Posted af:</b><br> <% Response.Write rs2("ReplyPoster") %><br>
      <%
      If rs2("ReplyTo") <> 0 Then
        Response.Write "<b>Svar til:</b><br>" & rs2("ReplyTo")
      End if
      %>
      <br><br>
      <a href=forumreply.asp?id=<% Response.Write rs("id") %>&user=<% Response.Write rs2("ReplyPoster") %>>Svar til bruger</a></p></td>
      <td width=630 align=center valign=top>
          <table border=0 cellspacing=0 cellpadding=0 width=620>
          <tr> <td><p><br><% Response.Write rs2("ReplyText") %></p></td> </tr>
          </table>
      </td>
    </tr>
    </table>
   
    <%
    rs2.MoveNext
    Loop While Not rs2.EOF
    End if
    %>


  <!--#include file="includes/design/design_end.asp"--> 
 
<%
Conn.Close
Set Conn = Nothing
%>

med denne kode får jeg følgende fejl:

Error Type:
Microsoft VBScript compilation (0x800A040E)
'loop' without 'do'
/clubrace/forum_showspg.asp, line 64
Loop While Not rs2.EOF

jeg kan bare ikke finde ud af hvordan jeg skal sætte det op... håber der er nogen der kan hjælpe...