Simple if statement question.

[flamin_mongrel]

Hello everybody, I have only just started using ASP so if this question seems pretty obvious to you guys then bare with me.

Basically I have one page with a form on it and two dropdown menus. I want to take the result from both drop down boxes and on the next page use these differing answers to generate a quote. However I don't know the proper syntax of how to do this (although I'm pretty sure an If then else statement would suffice). I have put all the code on the second page and it is just pulling through the data from the drop down menus on the first page. Here is my code:

//Type and Level are the names of the drop down menus on the previous page

strType = request.form("Type")
strLevel = request.form("Level")
myQuote = "0"

if (strType="Type A")&&(strLevel="Level 1") then myQuote = "8.60"

else if (strType="Type A")&&(strLevel="Level 2") then myQuote = "10.20"

etc etc etc

else myQuote = "2"

end if

Any help would be much appreciated.

[Rob]

It would make more sense to use a nested Select statement:-

Code: Select all

<%
strType = request.form("Type")
strLevel = request.form("Level")

Select Case StrType
    Case "Type A"
        Select Case StrLevel
            Case "Level 1" myQuote = "8.60"
            Case "Level 2" myquote = "10.20"
        End Select
    Case "Type B"
        Select Case StrLevel
            Case "Level 1" myQuote = "18.60"
            Case "Level 2" myquote = "110.20"
        End Select
    Case Else myQuote = "2"
End Select
%>

I'm sure you get the idea.

[courtjester]

I'd do it something like this...

Code: Select all

<%
dim tpe
dim lvl
dim tot

If request.form("Type") = "Type A" Then 
  tpe = 4.60
Else 
  tpe = 5.60
End If
If request.form("Level") = "Level 1" Then
  lvl = 4.00
Else
  lvl = 5.60
End If

tot = tpe + lvl

Response.Write(tot)
%>

For an example of how this code works... See it here.. http://wwwhaeglodesigns.com/hths/tester.asp

Lol, sorry for being lazy, I put in text boxes, so just type in the different combinations to see your result.

[courtjester]

Rob.. why would you use a select Case statement here? Its a yes or no question... nothing worth going through all of that for.

[Rob]

<blockquote id="quote" class="ffs">quote:<hr height="1" noshade="noshade" id="quote" />Its a yes or no question... nothing worth going through all of that for.<hr height="1" noshade="noshade" id="quote" /></blockquote id="quote">
Funny Court Jester.... I cannot see one single mention of the fact it is a yes / no question!!
The presence of 'etc, etc, etc' would suggest it is not.

Besides, the Select Case statement is far easier to read, and debug, as any ASP developer here will tell ya!

[Smokie]

...and its faster

[courtjester]

Well.. Its an A or its going to be B. So If A was Yes, then be would be No.... I figured you had some good reason why you used that.

[Rob]

I think the presense of 'etc, etc, etc' means he could not be bothered to use C, D and E

[courtjester]

Ahh and there it is ladies and gents... lol

ok... but do you use quotes around the numbers in your code?? I thought quotes made them where they don't add but attatch them to the end of the previous number..

[Rob]

in this case, it aint numbers.... it is a string.

[courtjester]

Ahh, ok. Thanks for explaining it to me . That's very nice their Robby :wink:

[flamin_mongrel]

Yes you are right Rob, I was just being lazy and couldn't be bothered to type out the whole code. I have Type A to Type D in the actual code.

I have tried your nested select statement but all I get is an HTTP 500 - Internal server error. My code now reads like this:

Code: Select all

<%
strType = request.form("Type")
strLevel = request.form("Level")

Quote = "0"

Select Case strType
    Case "Type A"
        Select Case strLevel
            Case "Level 1" Quote = "5.57"
            Case "Level 2" Quote = "7.88"
        End Select

Select Case strType
    Case "Type B"
        Select Case strLevel
            Case "Level 1" Quote = "10.45"
            Case "Level 2" Quote = "14.18"
        End Select

Select Case strType
    Case "Type C"
        Select Case strLevel
            Case "Level 1" Quote = "6.62"
            Case "Level 2" Quote = "9.35"
        End Select

Select Case strType
    Case "Type D"
        Select Case strLevel
            Case "Level 1" Quote = "11.50"
            Case "Level 2" Quote = "15.65"
        End Select

    Case Else Quote = "2"
End Select
%>

Should it matter whereabouts on the page I put this code?

[Rob]

not quite right.... use this:-

Code: Select all

<%
strType = request.form("Type")
strLevel = request.form("Level")

Quote = "0"

Select Case strType
    Case "Type A"
        Select Case strLevel
            Case "Level 1" Quote = "5.57"
            Case "Level 2" Quote = "7.88"
        End Select

    Case "Type B"
        Select Case strLevel
            Case "Level 1" Quote = "10.45"
            Case "Level 2" Quote = "14.18"
        End Select

    Case "Type C"
        Select Case strLevel
            Case "Level 1" Quote = "6.62"
            Case "Level 2" Quote = "9.35"
        End Select

    Case "Type D"
        Select Case strLevel
            Case "Level 1" Quote = "11.50"
            Case "Level 2" Quote = "15.65"
        End Select

    Case Else Quote = "2"
End Select
%>

Can you please remember to surround pasted code with [ code ] [ /code ] tags? (remove spaces)

[flamin_mongrel]

Cheers Rob, you're a star.

[Rob]

I know...

[courtjester]

lol