PDA

Visualizza la versione completa : Ciclo IF ...ELSE IF


 
nicolal
02-09-2005, 09:04
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
02-09-2005, 09:06
la if...elseif si costruisce cosi'


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

:ciauz:

nicolal
02-09-2005, 09:44
:confused:

Ciao optime

...ma io non ho proprio fatto cos?

optime
02-09-2005, 09:47
annamo bbene... :D l'hai scritto tu... puoi ben vedere che non e' proprio corretto

nicolal
02-09-2005, 09:51
<%
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
02-09-2005, 09:59
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
02-09-2005, 10:06
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
02-09-2005, 10:09
ah, ma allora sei recidivo!

elseif senza spazi
un solo end if alla fine

sta' attento

nicolal
02-09-2005, 10:15
: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
02-09-2005, 10:23
:biifu:

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

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

Loading