Sicuramente sbaglio qualcosa perchè l'errore è:
Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A03FB)
Previsto 'Loop'
scroll.asp, line 25
è un ciclo if ...else if, lo posto
<%
Do while not Scroll.EOF
sito = scroll("link")
pag = scroll("IDPagina")
%>
<%if sito = ("http://") and pag = ("0") then%>
<%=Scroll("Scroll")%>
<%end if%>
<%else if sito <> ("http://") and pag = ("0") then%>
"><%=Scroll("Scroll")%>
<%end if%>
<%else if sito = ("http://") and pag <> ("0") then%>
"><%=Scroll("Scroll")%>
<%end if%>
<%end if%>
<%end if%>
<%end if%>
<%
Scroll.movenext
loop
%>