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 :fagiano:

<%
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")%> (<%=(sito)%>)
<%end if%>

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

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

:ciauz:

[nicolal]

:confused:

Ciao optime

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

[optime]

annamo bbene... :D 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")%> (<%=(sito)%>)
<%end if%>

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

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


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

[optime]

piu' che di esperienza mi pare questione di oculistica! :D

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 :ciauz:

[nicolal]

Vero Optime non me ne ero accorto :fagiano:

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")%> (<%=(sito)%>)

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

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


ma ora ... :bhò:

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]

:bhò: non mi sgridare :bhò:

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")%> (<%=(sito)%>)


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

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

ma.... :bhò: nada

[kalosjo]

:biifu:

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

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