Lopar och If - Else

Först vill jag tacka Vide för hjälpen med ett tidigare problem.
Nu har jag fastnat på ett problem med satserna "Do - Loop" och "If - Else - EndIf" och vore tacksam för ett gott råd.
Vad som händer är att antingen visas "VBScript fel '800a040e' Loop utan Do" eller också kan programmet fråga efter
ett kommando vid "End If". Alla mina försök att komma runt problemet har misslyckats.
<hr><Font Size="2" Colo="red">
&#60&#38 Do Until RecSet.EOF<br>
tmp = RecSet("Namn")<br>
If (tmp = nam) Then<br>
Exit Do &#38&#62<br>
&#60&#38 RecSet.MoveNext<br>
Loop &#38&#62<br>
&#60&#38 RecSet.Close
Connect.Close &#38&#62<br>
Här kommer en tabell med flera Text-fält och en Submitknapp.<br>
&#60&#38 Else &#38&#62<br>
Här kommer en annan liknande tabell.<br>
&#60&#38 End If &#38&#62<br>
<hr></font>