Ciclo IF ...ELSE IF

[nicolal]

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

[optime]

la if...elseif si costruisce cosi'


IF condizione1 THEN
'
ELSEIF condizione2 THEN
'
..
ELSEIF condizioneN THEN
'
END IF

[nicolal]

Ciao optime

...ma io non ho proprio fatto così?

[optime]

annamo bbene... l'hai scritto tu... puoi ben vedere che non e' proprio corretto

[nicolal]

<%
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%>
<%
Scroll.movenext
loop
%>


...sono sicuro che qualcosa è sbagliato, ma dalla mia esperienza non riesco a vedere cosa

[optime]

piu' che di esperienza mi pare questione di oculistica!

hai scritto

if ... then
end if

else if ...then
end if

else if ... then
end if
end if
end if


confrontalo col mio esempio e correggi

[nicolal]

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'

[optime]

ah, ma allora sei recidivo!

elseif senza spazi
un solo end if alla fine

sta' attento

[nicolal]

non mi sgridare

okok ho fatto:

<%if Scroll.EOF or Scroll.BOF then%>
Sezione in aggiornamento
<%else%>
<%
Do while not Scroll.EOF
sito = scroll("link")
pag = scroll("IDPagina")
%>

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


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


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

<%end if%>
<%end if%>

ma.... nada

[kalosjo]

Un solo end if alla fine......

La serie di condizione If, elseif...... è una sola, quindi un solo end if