home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / uaktualnienia / OptionPackPL / iis4_05.cab / finance.asp < prev    next >
Encoding:
Text File  |  1998-04-27  |  2.3 KB  |  91 lines
  1. <%@ LANGUAGE = VBScript %>
  2. <HTML><HEAD><TITLE>Future Value Calculation</TITLE>
  3.  
  4. <META NAME="ROBOTS" CONTENT="NOINDEX"></HEAD>
  5. <SCRIPT LANGUAGE="JavaScript">
  6.     TempString = navigator.appVersion
  7.     if (navigator.appName == "Microsoft Internet Explorer"){    
  8. // Check to see if browser is Microsoft
  9.         if (TempString.indexOf ("4.") >= 0){
  10. // Check to see if it is IE 4
  11.             document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/coua.css">');
  12.         }
  13.         else {
  14.             document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/cocss.css">');
  15.         }
  16.     }
  17.     else if (navigator.appName == "Netscape") {                        
  18. // Check to see if browser is Netscape
  19.         document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/coua.css">');
  20.     }
  21.     else
  22.         document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/cocss.css">');
  23. </script>
  24.  
  25.  
  26.  
  27.  
  28. <body bgcolor="#FFFFFF" text="#000000"><font face="Verdana,Arial,Helvetica">
  29.  
  30. <% 
  31. ' Check whether an Annual Percentage Rate 
  32. ' was entered 
  33. If IsNumeric(Request("APR")) Then 
  34. ' Ensure proper form. 
  35. If Request("APR") > 1 Then 
  36. APR = Request("APR") / 100 
  37. Else 
  38. APR = Request("APR") 
  39. End If 
  40. Else 
  41. APR = 0 
  42. End If 
  43.  
  44. ' Check whether a value for Total Payments 
  45. ' was entered 
  46. If IsNumeric(Request("TotPmts")) Then 
  47. TotPmts = Request("TotPmts") 
  48. Else 
  49. TotPmts = 0 
  50. End If
  51.  
  52. ' Check whether a value for Payment Amount 
  53. ' was entered 
  54. If IsNumeric(Request("Payment")) Then 
  55. Payment = Request("Payment") 
  56. Else 
  57. Payment = 0 
  58. End If 
  59.  
  60. ' Check whether a value for Account Present Value 
  61. ' was entered 
  62. If IsNumeric(Request("PVal")) Then 
  63. PVal = Request("PVal") 
  64. Else 
  65. PVal = 0 
  66. End If
  67.  
  68. 'Check whether user wants to make payments at the beginning or end of month.
  69. If Request("PayType") = "Beginning" Then 
  70. PayType = 1 ' BeginPeriod 
  71. Else 
  72. PayType = 0 ' EndPeriod 
  73. End If 
  74.  
  75. ' Create an instance of the Finance object 
  76.  Set Finance = Server.CreateObject("MS.Finance") 
  77.  
  78. ' Use your instance of the Finance object to 
  79. ' calculate the future value of the submitted 
  80. ' savings plan using the HTML form and the 
  81. ' CalcFV method 
  82. FVal = Finance.CalcFV(APR / 12, TotPmts, -Payment, -PVal, PayType) 
  83. %>
  84.  
  85. <h3><A NAME="H3_37661593"></A>Your savings will be worth <%= FormatCurrency(FVal )%>.</h3>
  86.  
  87.  
  88.  
  89. </FONT>
  90. </BODY> 
  91. </HTML>