loop problem!

Hej!
Har en loop som ser ut så här:

<%
Set Conne = Server.CreateObject("ADODB.Connection")
Conne.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\db\databsens namn.mdb"))
SQLStmt = "SELECT * FROM Login WHERE id= " & rs("kompisid") & " ORDER BY Login"
Set RS2 = Conne.Execute(SQLStmt)

%>

<%
Do Until RS2.EOF
%>
<font face="Verdana,Arial" size=1 color="#000080" style='font-size:10px;'>- Online -<br><br></font>
<% if rs2("onlajn") = "1" then %>
</center><font face="Verdana,Arial" size=1 style='font-size:9px;'>
<a href=javascript:popup('info.asp?id=<%= rs("kompisid")%>');>
 <img src="rodpunkt.jpg" border="0" onMouseover="window.status='Ta Bort -Namnn-';return true" onMouseout="window.status='';return true" width="6" height="7">   <% = rs("kompisnamn") %><br>
</a>
<%
RS2.MoveNext
Loop
RS2.Close
Conne.Close
%>

Får detta felmeddelande:

Kompileringsfel i Microsoft VBScript fel '800a040e'

'loop' utan 'do'

/webcom/Index.asp, rad 184

Loop
^

Har en loop direkt efter när jag skrivit ut<%end if%> tar jag bort denna loop här ovanför så funkar det perfekt hoppas nån kan hitta felet har letat och letat men hittar det inte :(

------------------
/Jesper

Grejen är den att du nästlar Do..Loop med If..then..end if. Det kan man inte göra. Du får avsluta if-satsen innan du avslutar loopen med "Loop".

------------------
/ Torbjörn Hansson, webbutvecklare
Endero Sverige

Ska prova det tack för hjälpen :)

------------------
/Jesper