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 :x

<%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å.

------------------
.:' Jolt ':.

[Redigerat av Sensei den 28 mar 2001]

Saknas ett end if i första if satsen:

<% if (RS1("autID").value) = (RS1("autName").value) then %>
<%= RS1("autName")%>
<% else %>
<%="Posts are missplaced." %>
[b]<% end if %>[/b]

------------------
Ordning är till för idioter.
Genier behärskar även kaos.

hahaha.. slut på jolt.. =]

------------------
.:' Jolt ':.

Du borde förslagsvis lägga ner lite tid för att reducera antalet <% %> -taggar... Din kod är väldigt rörig och det vet jag att du också kommer att tycka om sådär två tre veckor, kanske fortare! :-)

Sen är det nog vettigare att inte ha en databas per språk utan att de delar på posterna och att man vet vilket språk som åsyftas utifrån andra kreterier...

Men det kanske är överkurs!? Kommer tid kommer råd!

------------------
"Never underestimate your opponents." - Name the movie.

True true

------------------
.:' Jolt ':.