Loop fel

Jag får det här felmedelandet.

Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A040E)
'loop' utan 'do'
/black/_admin_/p_authDelete.asp, line 71
Loop

I det här scriptet, fattar inget

<%Set MyConn1 = Server.CreateObject("ADODB.Connection")%>
<%'Set MyConn2 = Server.CreateObject("ADODB.Connection")%>

<%Set RS1 = Server.CreateObject("ADODB.RecordSet")%>
<%'Set RS2 = Server.CreateObject("ADODB.RecordSet")%>

<%MdbFilePath1 = Server.MapPath("../dbase/miller.mdb")%>
<%'MdbFilePath2 = Server.MapPath("../dbase/engmiller.mdb")%>

<%MyConn1.OPEN "driver={Microsoft Access Driver (*.mdb)};;DBQ=" & MdbFilePath1 & ";"%>
<%'MyConn2.OPEN "driver={Microsoft Access Driver (*.mdb)};;DBQ=" & MdbFilePath2 & ";"%>

<%RS1.Open "Select * From tblAuthors", MyConn1%>
<%'RS2.Open "Select * From tblAuthors", MyConn2%>

<%Do While Not RS1.eof%>
<form action="p_authDelete_send.asp" method="Post">
    <tr align="left" valign="middle">
	<td width="50"><div align="left"><INPUT Type=CheckBox Name="toDelete" Value=
	<% if (RS1("autID").value) = (RS1("autName").value) then %>
	<%= RS1("autName")%>
	<% else %>
	<%="Posts are missplaced." %>
	></div></td>
	<td width="200"><div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>
	<% if (RS1("autName").value) = (RS1("autName").value) then %>
	<%= RS1("autName")%>
	<% else %>
	<%="Posts are missplaced."%>
	<% end if %>
	</b></font></div></td>
	<td width="300"><div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><% = RS1("autEmail")%></font></div></td>
   </tr>
<%RS1.movenext%>
<%Loop%>
   
<tr><td>
<%RS1.close%>
<%'RS2.close%>
<%MyConn1.close%>
<%'MyConn2.close%>

Som ni ser är den hel del strängar avstängda, men kanske var nått sånt fel så jag klistrade in dem också.