if...if...else if...multi conditional statements problem

[Patrice]

Hi,
I need to do multi-conditional statements like below, but this error is
displayed :
Expected 'End'
/myFilepath, line x
else response.write( arrCorpo(sparam ,sdiv)) end if

I don't understand why this 'Expected 'End'' error is called!
Here is my code:
<%

sdiv=request("d iv")

sparam=request( "param")

snat=request("n at")

%>

<%

Function loopDatas(array Name)

nRowCount = ubound(arrayNam e, 2)

For n=0 to nRowCount

response.write( arrayName(1,n)& "<BR>")

Next

End Function

%>
<%

if(sdiv=3) then

if snat="" then response.write( corpclientsmain text)

else if (snat=1 or snat=2) then

response.write( "<table
width='200'><tr ><td>"&corpclie ntsgov&"<br>"&c orpclientsfi&"< br>"&corpclient s
lcorp&"<br>"&co rpclientslfirms &"<br>"&corpcli entsafirms&"<br ></td><td>")

call loopDatas(arrCo rpoType)

response.write( "</td></tr></table>")

end if

else response.write( arrCorpo(sparam ,sdiv))

end if

%>

Can someone help me?

Thanks in advance

Patrice

[Ray at]

You have:

if(sdiv=3) then

if snat="" then response.write( corpclientsmain text)

else if (snat=1 or snat=2) then

> end if
else response.write( arrCorpo(sparam ,sdiv))

end if

If condition Then
If condition Then '''do something
Else
If condition Then
''something
End If
Else <--- ???
End If

Tab your code nicely. Don't mixup ElseIf with Else and If as two separate
words.

Ray at work


"Patrice" <ma*****@videot ron.ca> wrote in message
news:le******** *************@w agner.videotron .net... Hi,
I need to do multi-conditional statements like below, but this error is
displayed :
Expected 'End'
/myFilepath, line x
else response.write( arrCorpo(sparam ,sdiv)) end if

I don't understand why this 'Expected 'End'' error is called!
Here is my code:
<%

sdiv=request("d iv")

sparam=request( "param")

snat=request("n at")

%>

<%

Function loopDatas(array Name)

nRowCount = ubound(arrayNam e, 2)

For n=0 to nRowCount

response.write( arrayName(1,n)& "<BR>")

Next

End Function

%>
<%

if(sdiv=3) then

if snat="" then response.write( corpclientsmain text)

else if (snat=1 or snat=2) then

response.write( "<table
width='200'><tr ><td>"&corpclie ntsgov&"<br>"&c orpclientsfi&"< br>"&corpclient s lcorp&"<br>"&co rpclientslfirms &"<br>"&corpcli entsafirms&"<br ></td><td>")

call loopDatas(arrCo rpoType)

response.write( "</td></tr></table>")

end if

else response.write( arrCorpo(sparam ,sdiv))

end if

%>

Can someone help me?

Thanks in advance

Patrice

[Phill. W]

Patrice,

With a bit of cleaning up, I /think/ this is what you wanted

if ( sdiv = 3 ) then
if snat="" then
response.write( corpclientsmain text)
else
if ( snat = 1 or snat = 2 ) then
response.write( . . .
call loopDatas(arrCo rpoType)
response.write( "</td></tr></table>")
end if
end if
else
response.write( arrCorpo(sparam ,sdiv))
end if

You've been caught out by VB[Script]'s one-line form of "If" :

If condition Then action

Written this way, there's no "End If" and you /can't/ [easily] use an
"Else" with it, either. My Advice: avoid it.

HTH,
Phill W.

"Patrice" <ma*****@videot ron.ca> wrote in message
news:le******** *************@w agner.videotron .net...

Hi,
I need to do multi-conditional statements like below, but this error is
displayed :
Expected 'End'
/myFilepath, line x
else response.write( arrCorpo(sparam ,sdiv)) end if

I don't understand why this 'Expected 'End'' error is called!
Here is my code:

[Evertjan.]

Patrice wrote on 23 mrt 2004 in microsoft.publi c.inetserver.as p.general:

if(sdiv=3) then

if snat="" then response.write( corpclientsmain text)

else if (snat=1 or snat=2) then

response.write( "<table
width='200'><tr ><td>"&corpclie ntsgov&"<br>"&c orpclientsfi&"< br>"&corpcl
ients
lcorp&"<br>"&co rpclientslfirms &"<br>"&corpcli entsafirms&"<br ></td><td>"
)

call loopDatas(arrCo rpoType)

response.write( "</td></tr></table>")

end if

else response.write( arrCorpo(sparam ,sdiv))

end if

You are doing this:

=============== =============
if condition then
if condition then statement
else if condition then
statements
end if
else statement
end if
=============== =============

This is not legal vbs code

there are two forms of if:

1 the single row:

if boolean then statement else statement

2 the multirow:

if boolean then
statement
elseif boolean then 'elsif without space
statement
else
statement
end if

in a "multi row if"
nothing can follow "then" or "else" on the same line !!!

I suppose what you want to do is:

=============== =============
if boolean then
if boolean then statement
else
if boolean then
statements
end if
else
statement
end if
=============== =============

but that is NOT legal either,
because now you still have an orfaned second else.

So this is legal code:

=============== =============
if boolean then
if boolean then statement
elseif boolean then
statements
else
statement
end if
=============== =============

btw:
booleans and the respons.write parameter do not need () in vbs:

if a=3 then

respons.write "my Text"

--
Evertjan.
The Netherlands.
(Please change the x'es to dots in my emailaddress)