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:uPHD5lHjEHA.2660@TK2MSFTNGP15.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 "<!--#include
> virtual='/western/services/owdbMcGraw.asp'-->"
> Case "Alexander"
> Response.Write "<!--#include virtual='/western/services/owdbAlex.asp'-->"
> Case "Classical"
> Response.Write "<!--#include
> virtual='/western/services/owdbClassical.asp'-->"
> Case "CQPress"
> Response.Write "<!--#include
> virtual='/western/services/owdbCQPress.asp'-->"
> Case "FactsOnFile"
> Response.Write "<!--#include virtual='/western/services/owdbFOF.asp'-->"
> Case "Greenwood"
> Response.Write "<!--#include
> virtual='/western/services/owdbGreen.asp'-->"
> Case "Grove"
> Response.Write "<!--#include
> virtual='/western/services/owdbGrove.asp'-->"
> Case "Lexis-Nexis"
> Response.Write "<!--#include
> virtual='/western/services/owdbLexis.asp'-->"
> Case "Morningstar"
> Response.Write "<!--#include
> virtual='/western/services/owdbMStar.asp'-->"
> Case "Oxford Press"
> Response.Write "<!--#include
> virtual='/western/services/owdbOxford.asp'-->"
> Case "Vanderbilt"
> Response.Write "<!--#include
> virtual='/western/services/owdbVandy.asp'-->"
> Case "Westlaw"
> Response.Write "<!--#include
> virtual='/western/services/owdbWestlaw.asp'-->"
> Case "Wiley"
> Response.Write "<!--#include
> virtual='/western/services/owdbWiley.asp'-->"
> Case Else
> Response.Write "<h3>Please select a vendor. <br> <input type=button
> value=Back onClick='history.back(1);'></h3>"
>
> END SELECT
>
> %>
>
>[/color]

> Case "McGraw Hill"[color=blue]
> Response.Write "<!--#include
> virtual='/western/services/owdbMcGraw.asp'-->"[/color]

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

--
http://www.aspfaq.com/
(Reverse address to reply.)

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:uPHD5lHjEHA.2660@TK2MSFTNGP15.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 "<!--#include
> virtual='/western/services/owdbMcGraw.asp'-->"
> Case "Alexander"
> Response.Write "<!--#include[/color]
virtual='/western/services/owdbAlex.asp'-->"[color=blue]
> Case "Classical"
> Response.Write "<!--#include
> virtual='/western/services/owdbClassical.asp'-->"
> Case "CQPress"
> Response.Write "<!--#include
> virtual='/western/services/owdbCQPress.asp'-->"
> Case "FactsOnFile"
> Response.Write "<!--#include virtual='/western/services/owdbFOF.asp'-->"
> Case "Greenwood"
> Response.Write "<!--#include[/color]
virtual='/western/services/owdbGreen.asp'-->"[color=blue]
> Case "Grove"
> Response.Write "<!--#include[/color]
virtual='/western/services/owdbGrove.asp'-->"[color=blue]
> Case "Lexis-Nexis"
> Response.Write "<!--#include[/color]
virtual='/western/services/owdbLexis.asp'-->"[color=blue]
> Case "Morningstar"
> Response.Write "<!--#include[/color]
virtual='/western/services/owdbMStar.asp'-->"[color=blue]
> Case "Oxford Press"
> Response.Write "<!--#include
> virtual='/western/services/owdbOxford.asp'-->"
> Case "Vanderbilt"
> Response.Write "<!--#include[/color]
virtual='/western/services/owdbVandy.asp'-->"[color=blue]
> Case "Westlaw"
> Response.Write "<!--#include
> virtual='/western/services/owdbWestlaw.asp'-->"
> Case "Wiley"
> Response.Write "<!--#include[/color]
virtual='/western/services/owdbWiley.asp'-->"[color=blue]
> Case Else
> Response.Write "<h3>Please select a vendor. <br> <input type=button
> value=Back onClick='history.back(1);'></h3>"
>
> END SELECT
>
> %>
>
>[/color]

Thanks Aaron. My original working code was:

<%
If varVendor = "McGraw Hill" Then
%>
<!--#include virtual="/western/services/owdbMcGraw.asp"-->
<%
ElseIf varVendor = "Classical" Then
%>
<!--#include virtual="/western/services/owdbClassical.asp"-->
<%
ElseIf varVendor = "Lexis-Nexis" Then
%>
<!--#include virtual="/western/services/owdbLexis.asp"-->
<%
ElseIf varVendor = "Oxford Press" Then
%>
<!--#include virtual="/western/services/owdbOxford.asp"-->

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@dnartreb.noraa> wrote in message
news:OuR3XrHjEHA.556@tk2msftngp13.phx.gbl...[color=blue][color=green]
> > Case "McGraw Hill"
> > Response.Write "<!--#include
> > virtual='/western/services/owdbMcGraw.asp'-->"[/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]

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_darkfalz.com> wrote in message
news:e1ppBrHjEHA.3972@tk2msftngp13.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:uPHD5lHjEHA.2660@TK2MSFTNGP15.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 "<!--#include
> > virtual='/western/services/owdbMcGraw.asp'-->"
> > Case "Alexander"
> > Response.Write "<!--#include[/color][/color]
virtual='/western/services/owdbAlex.asp'-->"[color=blue][color=green]
> > Case "Classical"
> > Response.Write "<!--#include
> > virtual='/western/services/owdbClassical.asp'-->"
> > Case "CQPress"
> > Response.Write "<!--#include
> > virtual='/western/services/owdbCQPress.asp'-->"
> > Case "FactsOnFile"
> > Response.Write "<!--#include[/color][/color]
virtual='/western/services/owdbFOF.asp'-->"[color=blue][color=green]
> > Case "Greenwood"
> > Response.Write "<!--#include
> > virtual='/western/services/owdbGreen.asp'-->"
> > Case "Grove"
> > Response.Write "<!--#include
> > virtual='/western/services/owdbGrove.asp'-->"
> > Case "Lexis-Nexis"
> > Response.Write "<!--#include
> > virtual='/western/services/owdbLexis.asp'-->"
> > Case "Morningstar"
> > Response.Write "<!--#include
> > virtual='/western/services/owdbMStar.asp'-->"
> > Case "Oxford Press"
> > Response.Write "<!--#include
> > virtual='/western/services/owdbOxford.asp'-->"
> > Case "Vanderbilt"
> > Response.Write "<!--#include
> > virtual='/western/services/owdbVandy.asp'-->"
> > Case "Westlaw"
> > Response.Write "<!--#include
> > virtual='/western/services/owdbWestlaw.asp'-->"
> > Case "Wiley"
> > Response.Write "<!--#include
> > virtual='/western/services/owdbWiley.asp'-->"
> > Case Else
> > Response.Write "<h3>Please select a vendor. <br> <input type=button
> > value=Back onClick='history.back(1);'></h3>"
> >
> > END SELECT
> >
> > %>
> >
> >[/color]
>
>[/color]

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:%23NnjyrHjEHA.644@tk2msftngp13.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:uPHD5lHjEHA.2660@TK2MSFTNGP15.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 "<!--#include
> > virtual='/western/services/owdbMcGraw.asp'-->"
> > Case "Alexander"
> > Response.Write "<!--#include[/color]
> virtual='/western/services/owdbAlex.asp'-->"[color=green]
> > Case "Classical"
> > Response.Write "<!--#include
> > virtual='/western/services/owdbClassical.asp'-->"
> > Case "CQPress"
> > Response.Write "<!--#include
> > virtual='/western/services/owdbCQPress.asp'-->"
> > Case "FactsOnFile"
> > Response.Write "<!--#include[/color][/color]
virtual='/western/services/owdbFOF.asp'-->"[color=blue][color=green]
> > Case "Greenwood"
> > Response.Write "<!--#include[/color]
> virtual='/western/services/owdbGreen.asp'-->"[color=green]
> > Case "Grove"
> > Response.Write "<!--#include[/color]
> virtual='/western/services/owdbGrove.asp'-->"[color=green]
> > Case "Lexis-Nexis"
> > Response.Write "<!--#include[/color]
> virtual='/western/services/owdbLexis.asp'-->"[color=green]
> > Case "Morningstar"
> > Response.Write "<!--#include[/color]
> virtual='/western/services/owdbMStar.asp'-->"[color=green]
> > Case "Oxford Press"
> > Response.Write "<!--#include
> > virtual='/western/services/owdbOxford.asp'-->"
> > Case "Vanderbilt"
> > Response.Write "<!--#include[/color]
> virtual='/western/services/owdbVandy.asp'-->"[color=green]
> > Case "Westlaw"
> > Response.Write "<!--#include
> > virtual='/western/services/owdbWestlaw.asp'-->"
> > Case "Wiley"
> > Response.Write "<!--#include[/color]
> virtual='/western/services/owdbWiley.asp'-->"[color=green]
> > Case Else
> > Response.Write "<h3>Please select a vendor. <br> <input type=button
> > value=Back onClick='history.back(1);'></h3>"
> >
> > END SELECT
> >
> > %>
> >
> >[/color]
>
>[/color]

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"
%>
<!--#include virtual='/western/services/owdbMcGraw.asp'-->
<%
Case "Classical"
%>
<!--#include virtual="/western/services/owdbClassical.asp"-->
<%
End Select
%>

Bob Lehmann

"Kevin" <thersitz @yahoo com> wrote in message
news:uanmCwHjEHA.2456@TK2MSFTNGP10.phx.gbl...[color=blue]
> Thanks Aaron. My original working code was:
>
> <%
> If varVendor = "McGraw Hill" Then
> %>
> <!--#include virtual="/western/services/owdbMcGraw.asp"-->
> <%
> ElseIf varVendor = "Classical" Then
> %>
> <!--#include virtual="/western/services/owdbClassical.asp"-->
> <%
> ElseIf varVendor = "Lexis-Nexis" Then
> %>
> <!--#include virtual="/western/services/owdbLexis.asp"-->
> <%
> ElseIf varVendor = "Oxford Press" Then
> %>
> <!--#include virtual="/western/services/owdbOxford.asp"-->
>
> 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@dnartreb.noraa> wrote in message
> news:OuR3XrHjEHA.556@tk2msftngp13.phx.gbl...[color=green][color=darkred]
> > > Case "McGraw Hill"
> > > Response.Write "<!--#include
> > > virtual='/western/services/owdbMcGraw.asp'-->"[/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]

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

<%
SELECT CASE varVendor
CASE "McGraw Hill"
%>
<!--#include virtual=/western/services/owdbMcgraw.asp-->
<%
CASE "Classical"
%>
<!--#include virtual=/western/services/owdbClassical.asp-->
<%
...

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("Scripting.Dictionary")
d.Add "McGraw Hill", "owdbMcgraw.asp"
d.Add "Classical", "osdbClassical.asp"
' ... add others here or populate from DB ...
Server.Execute d.item(varVendor)

--
http://www.aspfaq.com/
(Reverse address to reply.)




"Kevin" <thersitz @yahoo com> wrote in message
news:uanmCwHjEHA.2456@TK2MSFTNGP10.phx.gbl...[color=blue]
> Thanks Aaron. My original working code was:
>
> <%
> If varVendor = "McGraw Hill" Then
> %>
> <!--#include virtual="/western/services/owdbMcGraw.asp"-->
> <%
> ElseIf varVendor = "Classical" Then
> %>
> <!--#include virtual="/western/services/owdbClassical.asp"-->
> <%
> ElseIf varVendor = "Lexis-Nexis" Then
> %>
> <!--#include virtual="/western/services/owdbLexis.asp"-->
> <%
> ElseIf varVendor = "Oxford Press" Then
> %>
> <!--#include virtual="/western/services/owdbOxford.asp"-->
>
> 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@dnartreb.noraa> wrote in message
> news:OuR3XrHjEHA.556@tk2msftngp13.phx.gbl...[color=green][color=darkred]
> > > Case "McGraw Hill"
> > > Response.Write "<!--#include
> > > virtual='/western/services/owdbMcGraw.asp'-->"[/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]

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
>%>
><!--#include virtual="/western/services/owdbMcGraw.asp"-->
><%
> ElseIf varVendor = "Classical" Then
>%>
><!--#include virtual="/western/services/owdbClassical.asp"-->
><%
> ElseIf varVendor = "Lexis-Nexis" Then
>%>
><!--#include virtual="/western/services/owdbLexis.asp"-->
><%
> ElseIf varVendor = "Oxford Press" Then
>%>
><!--#include virtual="/western/services/owdbOxford.asp"-->
>
>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:

<!--#include virtual="/western/services/owdbMcGraw.asp"-->
would contain

function DisplayMcGraw()
.....
end function

<!--#include virtual="/western/services/owdbClassical.asp"-->
contains:
function DisplayClassical()
.....
end function


or
<!--#include virtual="/western/services/owdbALL.asp"-->
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@dnartreb.noraa> wrote in message
>news:OuR3XrHjEHA.556@tk2msftngp13.phx.gbl...[color=green][color=darkred]
>> > Case "McGraw Hill"
>> > Response.Write "<!--#include
>> > virtual='/western/services/owdbMcGraw.asp'-->"[/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]