Select Case Syntax Error

**Curt_C [MVP]** · Jul 19 '05, 01:54 PM

Re: Select Case Syntax Error

you have Select Case twice

--
Curt Christianson
Owner/Lead Developer, DF-Software
Site: http://www.Darkfalz.com
Blog: http://blog.Darkfalz.com

"Kevin" <thersitz @yahoo com> wrote in message
news:uPHD5lHjEH A.2660@TK2MSFTN GP15.phx.gbl...[color=blue]
> Hi, I am getting a syntax error
> Microsoft VBScript compilation error '800a03ea'
>
> Syntax error
>
> On the code below. The error references the "End Select" line
>
> Can anyone help me with what I am doing wrong?
>
> Thanks
>
> -=============== =============== ==========
>
> <%
> SELECT CASE iChoice
>
> Dim iChoice
>
> iChoice = varVendor
>
> Select Case iChoice
> Case "McGraw Hill"
> Response.Write ""
> Case "Alexander"
> Response.Write ""
> Case "Classical"
> Response.Write ""
> Case "CQPress"
> Response.Write ""
> Case "FactsOnFil e"
> Response.Write ""
> Case "Greenwood"
> Response.Write ""
> Case "Grove"
> Response.Write ""
> Case "Lexis-Nexis"
> Response.Write ""
> Case "Morningsta r"
> Response.Write ""
> Case "Oxford Press"
> Response.Write ""
> Case "Vanderbilt "
> Response.Write ""
> Case "Westlaw"
> Response.Write ""
> Case "Wiley"
> Response.Write ""
> Case Else
> Response.Write "<h3>Please select a vendor. <br> <input type=button
> value=Back onClick='histor y.back(1);'></h3>"
>
> END SELECT
>
> %>
>
>[/color]

**Aaron [SQL Server MVP]** · Jul 19 '05, 01:54 PM

Re: Select Case Syntax Error

> Case "McGraw Hill"[color=blue]
> Response.Write ""[/color]

You can't do this. Look at server.execute or see http://www.aspfaq.com/2042

--

Expired DNS Hosting Services | DNS Made Easy

http://www.aspfaq.com/

Please contact this domain's administrator as their DNS Made Easy services have expired.

(Reverse address to reply.)

**Steven Burn** · Jul 19 '05, 01:54 PM

Re: Select Case Syntax Error

Any reason you've got "Select Case iChoice" in there twice?

--

Regards

Steven Burn
Ur I.T. Mate Group

https://www.it-mate.co.uk

Keeping it FREE!

"Kevin" <thersitz @yahoo com> wrote in message
news:uPHD5lHjEH A.2660@TK2MSFTN GP15.phx.gbl...[color=blue]
> Hi, I am getting a syntax error
> Microsoft VBScript compilation error '800a03ea'
>
> Syntax error
>
> On the code below. The error references the "End Select" line
>
> Can anyone help me with what I am doing wrong?
>
> Thanks
>
> -=============== =============== ==========
>
> <%
> SELECT CASE iChoice
>
> Dim iChoice
>
> iChoice = varVendor
>
> Select Case iChoice
> Case "McGraw Hill"
> Response.Write ""
> Case "Alexander"
> Response.Write ""[color=blue]
> Case "Classical"
> Response.Write ""
> Case "CQPress"
> Response.Write ""
> Case "FactsOnFil e"
> Response.Write ""
> Case "Greenwood"
> Response.Write ""[color=blue]
> Case "Grove"
> Response.Write ""[color=blue]
> Case "Lexis-Nexis"
> Response.Write ""[color=blue]
> Case "Morningsta r"
> Response.Write ""[color=blue]
> Case "Oxford Press"
> Response.Write ""
> Case "Vanderbilt "
> Response.Write ""[color=blue]
> Case "Westlaw"
> Response.Write ""
> Case "Wiley"
> Response.Write ""[color=blue]
> Case Else
> Response.Write "<h3>Please select a vendor. <br> <input type=button
> value=Back onClick='histor y.back(1);'></h3>"
>
> END SELECT
>
> %>
>
>[/color]

**Kevin** · Jul 19 '05, 01:55 PM

Re: Select Case Syntax Error

Thanks Aaron. My original working code was:

<%
If varVendor = "McGraw Hill" Then
%>

<%
ElseIf varVendor = "Classical" Then
%>

<%
ElseIf varVendor = "Lexis-Nexis" Then
%>

<%
ElseIf varVendor = "Oxford Press" Then
%>


and on and on -- etc.

But my string of If Then ElsIf statements is up to 15 and so I was trying to
do the select case to reduce the statements. Guess I am back to the If Then
....ElseIf

I am sure I read that faq way back when and that is how I came to my
original If Then syntax.

Thanks

"Aaron [SQL Server MVP]" <ten.xoc@dnartr eb.noraa> wrote in message
news:OuR3XrHjEH A.556@tk2msftng p13.phx.gbl...[color=blue][color=green]
> > Case "McGraw Hill"
> > Response.Write ""[/color]
>
> You can't do this. Look at server.execute or see[/color]
http://www.aspfaq.com/2042[color=blue]
>
> --
> http://www.aspfaq.com/
> (Reverse address to reply.)
>
>[/color]

**Kevin** · Jul 19 '05, 01:55 PM

Re: Select Case Syntax Error

Thanks Curt. I made the correction and now it executes, but the result is
what Aaron was alluding to. So I guess I am returning to the If ... Then ...
Else code.

"Curt_C [MVP]" <software_AT_da rkfalz.com> wrote in message
news:e1ppBrHjEH A.3972@tk2msftn gp13.phx.gbl...[color=blue]
> you have Select Case twice
>
> --
> Curt Christianson
> Owner/Lead Developer, DF-Software
> Site: http://www.Darkfalz.com
> Blog: http://blog.Darkfalz.com
>
>
> "Kevin" <thersitz @yahoo com> wrote in message
> news:uPHD5lHjEH A.2660@TK2MSFTN GP15.phx.gbl...[color=green]
> > Hi, I am getting a syntax error
> > Microsoft VBScript compilation error '800a03ea'
> >
> > Syntax error
> >
> > On the code below. The error references the "End Select" line
> >
> > Can anyone help me with what I am doing wrong?
> >
> > Thanks
> >
> > -=============== =============== ==========
> >
> > <%
> > SELECT CASE iChoice
> >
> > Dim iChoice
> >
> > iChoice = varVendor
> >
> > Select Case iChoice
> > Case "McGraw Hill"
> > Response.Write ""
> > Case "Alexander"
> > Response.Write ""[color=blue][color=green]
> > Case "Classical"
> > Response.Write ""
> > Case "CQPress"
> > Response.Write ""
> > Case "FactsOnFil e"
> > Response.Write ""[color=blue][color=green]
> > Case "Greenwood"
> > Response.Write ""
> > Case "Grove"
> > Response.Write ""
> > Case "Lexis-Nexis"
> > Response.Write ""
> > Case "Morningsta r"
> > Response.Write ""
> > Case "Oxford Press"
> > Response.Write ""
> > Case "Vanderbilt "
> > Response.Write ""
> > Case "Westlaw"
> > Response.Write ""
> > Case "Wiley"
> > Response.Write ""
> > Case Else
> > Response.Write "<h3>Please select a vendor. <br> <input type=button
> > value=Back onClick='histor y.back(1);'></h3>"
> >
> > END SELECT
> >
> > %>
> >
> >[/color]
>
>[/color]

**Kevin** · Jul 19 '05, 01:55 PM

Re: Select Case Syntax Error

yeah, operator error. Curt busted me on that as well. Still a little fuzzy
on Select Case. Thanks for your time.

Kevin

"Steven Burn" <pvt@noyb.com > wrote in message
news:%23NnjyrHj EHA.644@tk2msft ngp13.phx.gbl.. .[color=blue]
> Any reason you've got "Select Case iChoice" in there twice?
>
> --
>
> Regards
>
> Steven Burn
> Ur I.T. Mate Group
> www.it-mate.co.uk
>
> Keeping it FREE!
>
>
> "Kevin" <thersitz @yahoo com> wrote in message
> news:uPHD5lHjEH A.2660@TK2MSFTN GP15.phx.gbl...[color=green]
> > Hi, I am getting a syntax error
> > Microsoft VBScript compilation error '800a03ea'
> >
> > Syntax error
> >
> > On the code below. The error references the "End Select" line
> >
> > Can anyone help me with what I am doing wrong?
> >
> > Thanks
> >
> > -=============== =============== ==========
> >
> > <%
> > SELECT CASE iChoice
> >
> > Dim iChoice
> >
> > iChoice = varVendor
> >
> > Select Case iChoice
> > Case "McGraw Hill"
> > Response.Write ""
> > Case "Alexander"
> > Response.Write ""[color=green]
> > Case "Classical"
> > Response.Write ""
> > Case "CQPress"
> > Response.Write ""
> > Case "FactsOnFil e"
> > Response.Write ""[color=blue][color=green]
> > Case "Greenwood"
> > Response.Write ""[color=green]
> > Case "Grove"
> > Response.Write ""[color=green]
> > Case "Lexis-Nexis"
> > Response.Write ""[color=green]
> > Case "Morningsta r"
> > Response.Write ""[color=green]
> > Case "Oxford Press"
> > Response.Write ""
> > Case "Vanderbilt "
> > Response.Write ""[color=green]
> > Case "Westlaw"
> > Response.Write ""
> > Case "Wiley"
> > Response.Write ""[color=green]
> > Case Else
> > Response.Write "<h3>Please select a vendor. <br> <input type=button
> > value=Back onClick='histor y.back(1);'></h3>"
> >
> > END SELECT
> >
> > %>
> >
> >[/color]
>
>[/color]

**Bob Lehmann** · Jul 19 '05, 01:55 PM

Re: Select Case Syntax Error

The difference is the context switching in you If...ElseIf....

It's still icky, but you could do the same thing with Select Case...
<%
Select Case iChoice
Case "McGraw Hill"
%>

<%
Case "Classical"
%>

<%
End Select
%>

Bob Lehmann

"Kevin" <thersitz @yahoo com> wrote in message
news:uanmCwHjEH A.2456@TK2MSFTN GP10.phx.gbl...[color=blue]
> Thanks Aaron. My original working code was:
>
> <%
> If varVendor = "McGraw Hill" Then
> %>
> 
> <%
> ElseIf varVendor = "Classical" Then
> %>
> 
> <%
> ElseIf varVendor = "Lexis-Nexis" Then
> %>
> 
> <%
> ElseIf varVendor = "Oxford Press" Then
> %>
> 
>
> and on and on -- etc.
>
> But my string of If Then ElsIf statements is up to 15 and so I was trying[/color]
to[color=blue]
> do the select case to reduce the statements. Guess I am back to the If[/color]
Then[color=blue]
> ...ElseIf
>
> I am sure I read that faq way back when and that is how I came to my
> original If Then syntax.
>
> Thanks
>
>
> "Aaron [SQL Server MVP]" <ten.xoc@dnartr eb.noraa> wrote in message
> news:OuR3XrHjEH A.556@tk2msftng p13.phx.gbl...[color=green][color=darkred]
> > > Case "McGraw Hill"
> > > Response.Write ""[/color]
> >
> > You can't do this. Look at server.execute or see[/color]
> http://www.aspfaq.com/2042[color=green]
> >
> > --
> > http://www.aspfaq.com/
> > (Reverse address to reply.)
> >
> >[/color]
>
>[/color]

**Aaron [SQL Server MVP]** · Jul 19 '05, 01:55 PM

Re: Select Case Syntax Error

Well, you could do this, but it is tedious and unmanageable, IMHO:

<%
SELECT CASE varVendor
CASE "McGraw Hill"
%>

<%
CASE "Classical"
%>

<%
...

Or better still, create an array or dictionary object that allows you to
match "McGraw-Hill" -> "owdbMcgraw.asp ", then you could say this instead of
having 15 conditionals:

Set d = CreateObject("S cripting.Dictio nary")
d.Add "McGraw Hill", "owdbMcgraw.asp "
d.Add "Classical" , "osdbClassical. asp"
' ... add others here or populate from DB ...
Server.Execute d.item(varVendo r)

--

Expired DNS Hosting Services | DNS Made Easy

http://www.aspfaq.com/

Please contact this domain's administrator as their DNS Made Easy services have expired.

(Reverse address to reply.)

"Kevin" <thersitz @yahoo com> wrote in message
news:uanmCwHjEH A.2456@TK2MSFTN GP10.phx.gbl...[color=blue]
> Thanks Aaron. My original working code was:
>
> <%
> If varVendor = "McGraw Hill" Then
> %>
> 
> <%
> ElseIf varVendor = "Classical" Then
> %>
> 
> <%
> ElseIf varVendor = "Lexis-Nexis" Then
> %>
> 
> <%
> ElseIf varVendor = "Oxford Press" Then
> %>
> 
>
> and on and on -- etc.
>
> But my string of If Then ElsIf statements is up to 15 and so I was trying[/color]
to[color=blue]
> do the select case to reduce the statements. Guess I am back to the If[/color]
Then[color=blue]
> ...ElseIf
>
> I am sure I read that faq way back when and that is how I came to my
> original If Then syntax.
>
> Thanks
>
>
> "Aaron [SQL Server MVP]" <ten.xoc@dnartr eb.noraa> wrote in message
> news:OuR3XrHjEH A.556@tk2msftng p13.phx.gbl...[color=green][color=darkred]
> > > Case "McGraw Hill"
> > > Response.Write ""[/color]
> >
> > You can't do this. Look at server.execute or see[/color]
> http://www.aspfaq.com/2042[color=green]
> >
> > --
> > http://www.aspfaq.com/
> > (Reverse address to reply.)
> >
> >[/color]
>
>[/color]

**Harag** · Jul 19 '05, 01:55 PM

Re: Select Case Syntax Error

On Fri, 27 Aug 2004 14:22:48 -0700, "Kevin" <thersitz @yahoo com>
wrote:
[color=blue]
>Thanks Aaron. My original working code was:
>
><%
> If varVendor = "McGraw Hill" Then
>%>
>
><%
> ElseIf varVendor = "Classical" Then
>%>
>
><%
> ElseIf varVendor = "Lexis-Nexis" Then
>%>
>
><%
> ElseIf varVendor = "Oxford Press" Then
>%>
>
>
>and on and on -- etc.[/color]

Why not make it even easier to read & maintain. Put all the code in
your includes into several functions/Subs, eg:


would contain

function DisplayMcGraw()
.....
end function


contains:
function DisplayClassica l()
.....
end function

or

would contain all the functions required in the owdb services.

Then include the file(s) at the very top of the page then in your
select case as:

SELECT CASE varVendor
CASE "McGraw Hill"
DisplayMcGraw()
CASE "Classical"
DisplayClasical ()
....
.....
END SELECT

IMHO it looks more understanding and more maintainable. and your not
constantly swiching between asp & html code with <%.. %>

HTH

Al.
[color=blue]
>
>But my string of If Then ElsIf statements is up to 15 and so I was trying to
>do the select case to reduce the statements. Guess I am back to the If Then
>...ElseIf
>
>I am sure I read that faq way back when and that is how I came to my
>original If Then syntax.
>
>Thanks
>
>
>"Aaron [SQL Server MVP]" <ten.xoc@dnartr eb.noraa> wrote in message
>news:OuR3XrHjE HA.556@tk2msftn gp13.phx.gbl...[color=green][color=darkred]
>> > Case "McGraw Hill"
>> > Response.Write ""[/color]
>>
>> You can't do this. Look at server.execute or see[/color]
>http://www.aspfaq.com/2042[color=green]
>>
>> --
>> http://www.aspfaq.com/
>> (Reverse address to reply.)
>>
>>[/color]
>[/color]

Select Case Syntax Error

Select Case Syntax Error

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment