Vero Optime non me ne ero accorto

Per cui ho fatto:
<%
Do while not Scroll.EOF
sito = scroll("link")
pag = scroll("IDPagina")
%>

<%if sito = ("http://") and pag = ("0") then%>
<%=Scroll("Scroll")%>


<%else if sito <> ("http://") and pag = ("0") then%>
"><%=Scroll("Scroll")%>

<%else if sito = ("http://") and pag <> ("0") then%>
"><%=Scroll("Scroll")%>

<%end if%>
<%end if%>
<%end if%>
<%
Scroll.movenext
loop
%>


ma ora ...

Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A040E)
'Loop' senza 'Do'