%@ 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") %>
![]() |
|||||||||||||||||
|
|
||||||||||||||||