% @Language=VBScript %> <% Option Explicit %> <% On Error Resume Next Dim intCalculatedAmt, strInputAmt Const intMulipler = .00125 '################################################################# '## If the form is submitted and the T1 is Empty don't calcuate '################################################################# If (Request.Form("Submit") = "Calculate") AND (Request.Form("T1") <> "") Then '#### Get then input amount ######## strInputAmt = Request.Form("T1") '#### Get rid of the $ ######### strInputAmt = Replace(strInputAmt, "$", "") '#### Get rid of the commas ####### strInputAmt = Replace(strInputAmt, ",", "") '#### Calcuate the amount ######### intCalculatedAmt = strInputAmt * intMulipler '#### Convert the amount to Currency ### intCalculatedAmt = FormatCurrency(intCalculatedAmt) '#### add the rest to it ### intCalculatedAmt = ("You will make or save " + intCalculatedAmt + " or your monthly subscription fee is refunded!") End If %>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||||||||||||||||||||||||||||||||||||||||||||||
|
|
|
||||||||||||||||||||||||||||||||||||||||||||||||
|
Contact Us
|
Site Map |
||||||||||||||||||||||||||||||||||||||||||||||||||