<%@ LANGUAGE="VBSCRIPT" %>
<%
Option Explicit
Response.Expires = -10000
Dim cAA, sAF, iAM, cBP, cFF, cHY, sKF, iPR, rRE, rRT, cRV, cUA, sTG, sMSG
sAF = "ZZZZZZZZZZZZZZZZ" '<--- PLACE YOUR CODE HERE
sTG = "http://www.wasakredit.se/finkalk/examplelan.asp" '<--- PLACE YOUR PATH HERE
'LÅN LÅN LÅN LÅN LÅN LÅN LÅN LÅN LÅN LÅN LÅN LÅN
'AA = Aviavgift
'AF = Återförsäljare
'AM = Antal månader
'BP = Baspris
'FF = Första förhöjd
'HY = Hyra
'RE = Effektiv Ränta
'RT = Ränta
'RV = Restvärde
'TG = Target
'UA = Uppläggningaavgift
'MSG= Meddelande från kalkylatorn
'Hämtar information från QueryString
If Not Request.QueryString("AA")="" Then cAA = Request.QueryString("AA")
If Not Request.QueryString("AM")="" Then iAM = Request.QueryString("AM")
If Not Request.QueryString("BP")="" Then cBP = Request.QueryString("BP")
If Not Request.QueryString("FF")="" Then cFF = Request.QueryString("FF")
If Not Request.QueryString("HY")="" Then cHY = Request.QueryString("HY")
If Not Request.QueryString("RE")="" Then rRE = Request.QueryString("RE")
If Not Request.QueryString("RT")="" Then rRT = Request.QueryString("RT")
If Not Request.QueryString("RV")="" Then cRV = Request.QueryString("RV")
If Not Request.QueryString("UA")="" Then cUA = Request.QueryString("UA")
If Not Request.QueryString("MSG")="" Then sMSG= Request.QueryString("MSG")
If Not Request.Form("AA") = "" Then cAA = Request.Form("AA")
If Not Request.Form("AM") = "" Then iAM = Request.Form("AM")
If Not Request.Form("BP") = "" Then cBP = Request.Form("BP")
If Not Request.Form("FF") = "" Then cFF = Request.Form("FF")
If Not Request.Form("HY") = "" Then cHY = Request.Form("HY")
If Not Request.Form("RE") = "" Then rRE = Request.Form("RE")
If Not Request.Form("RT") = "" Then rRT = Request.Form("RT")
If Not Request.Form("RV") = "" Then cRV = Request.Form("RV")
If Not Request.Form("UA") = "" Then cUA = Request.Form("UA")
If Not Request.Form("MSG") = "" Then sMSG= Request.Form("MSG")
%>
Lånekalkylen
