<HTML>
<H2> Case: Design a web page that contains the VBScript utilized for calculating subtotals, taxes, discounts & totals as well as code utilized to validate user input.</H2>
<HEAD>
<TITLE>VBScript: Case Study</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!-- Add this to instruct non-IE browsers to skip over VBScript modules. Option Explicit
Sub cmd Calculate_On Click Dim Amount of Discount Dim Amount of Tax
Dim DISCOUNT_LIMIT Dim DISCOUNT_RATE Dim Subtotal Before
Dim Subtotal After Dim TAX_RATE Dim Total Cost
If (Len(Document .frmCaseStudy.txtQuantity.Value) = 0) Then
MsgBox "You have to enter quantity." Exit Sub
End If
If (Not IsNumeric(Document.frmCaseStudy.txtQuantity.Value)) Then
MsgBox "Quantity has to be a numeric value." Exit Sub
End If
If (Len(Document.frmCaseStudy.cmbProducts.Value) = 0) Then
MsgBox "You have to select product." Exit Sub
End If
DISCOUNT_LIMIT = 1000
DISCOUNT_RATE = .10
TAX_RATE = 0.06
'Calculate the subtotal for the order.
SubtotalBefore=Document.frmCaseStudy.txtQuantity.Value* Document.frmCaseStudy.lblUnitCost.value
If (SubtotalBefore > DISCOUNT_LIMIT) Then
AmountofDiscount = SubtotalBefore * DISCOUNT_RATE Else
AmountofDiscount = 0
End If
SubtotalAfter = SubtotalBefore - AmountofDiscount
' Calculate taxes & total cost.
AmountofTax = SubtotalAfter * TAX_RATE TotalCost = SubtotalAfter + AmountofTax
'Display the results. Document.frmCaseStudy.lblSubtotalBefore.value = SubtotalBefore Document.frmCaseStudy.lblDiscount.value=AmountofDiscount Document.frmCaseStudy.lblSubtotalAfter.value=SubtotalAfter Document.frmCaseStudy.lblTaxes.value=AmountofTax Document.frmCaseStudy.lblTotalCost.value = TotalCost
End Sub
Sub cmdSubmit_onClick
'Submit this order for processing.
MsgBox "Your order has been submitted." Document.frmCaseStudy.Submit
End Sub
Sub cmbProducts_onchange()
Select Case Document.frmCaseStudy.cmbProducts.SelectedIndex
Case 1
Document.frmCaseStudy.lblUnitCost.value = 1590
Case 2
Document.frmCaseStudy.lblUnitCost.value = 880
Case 3
Document.frmCaseStudy.lblUnitCost.value = 1940
Case Else
Document.frmCaseStudy.lblUnitCost.value = 0
End Select
End Sub
-->
</SCRIPT>
</HEAD>
<BODY>
<FORM NAME="frmCaseStudy">
<TABLE>
<TR>
<TD><B>Monitor:</B></TD>
<TD>
<SELECT NAME = "cmbProducts">
<OPTION VALUE ="0" ></OPTION>
<OPTION VALUE ="1" >Item 1</OPTION>
<OPTION VALUE ="2">Item 2</OPTION>
<OPTION VALUE ="3">Item 3</OPTION>
</SELECT>
</TD>
</TR>
<TR>
<TD><B>Quantity:</B></TD>
<TD>
<INPUT TYPE = "TEXT" NAME ="txtQuantity" >
</TD>
</TR>
<TR>
<TD><INPUT TYPE="Button" NAME="cmdCalculate" VALUE="Calculate
Cost"></TD>
<TD></TD>
</TR>
<TR>
<TD><B>Unit Cost:</B></TD>
<TD>
<INPUT TYPE = "TEXT" NAME ="lblUnitCost" >
</TD>
</TR>
<TR>
<TD><B>Subtotal before discount:</B></TD>
<TD>
<INPUT TYPE = "TEXT" NAME ="lblSubtotalBefore" >
</TD>
</TR>
<TR>
<TD><B>Discount:</B></TD>
<TD>
<INPUT TYPE = "TEXT" NAME = "lblDiscount" >
</TD>
</TR>
<TR>
<TD><B>Subtotal after discount:</B></TD>
<TD>
<INPUT TYPE = "TEXT" NAME ="lblSubtotalAfter" >
</TD>
</TR>
<TR>
<TD><B>Taxes:</B></TD>
<TD>
<INPUT TYPE = "TEXT" NAME ="lblTaxes" >
</TD>
</TR>
<TR>
<TD><B>Total Cost:</B></TD>
<TD>
<INPUT TYPE = "TEXT" NAME ="lblTotalCost" >
</TD>
</TR>
<TR>
<TD><INPUT TYPE="Button" NAME="cmdSubmit" VALUE="Submit
Order"></TD>
<TD></TD>
</TR>
</TABLE>
</FORM>
</BODY>
</HTML>