<% 'grab the variables from query strings
' Iniitialize the variables
Dim LoanAmount
Dim DownPayment
' Set the default amount for DownPayment in case one is not provided
DownPayment = 10
tmpDownPayment = 10
LoanAmount = 100000
LoanAmount = Request.QueryString("LoanAmount")
tmpDownPayment = Request("txtDownPayment")
'If len(tmpDownPayment) = 0 then
' response.write ("The Down Payment Percentage can not be empty.")
' response.end
'End if
If not isNumeric(tmpDownPayment) then
response.write ("The Down Payment Percentage that you entered is not numeric.")
response.end
End if
if tmpDownPayment > 0 then
DownPayment = cstr(tmpDownPayment)
end if
if LoanAmount < 1 then
LoanAmount = Request.Form("txtLoanAmount")
' Response.write ("Missing Loan Amount Data from Query String")
end if
%>