<% Option Explicit Response.Buffer = True Dim mortxml Set mortxml = Server.CreateObject("Microsoft.XMLDOM") mortxml.async = False mortxml.load ("http://www.broncofcu.com/rates/mortgage/mortgage.xml") Dim MORTEFFDATE, M10F, M15F, ARM, M20F, M30F, HELOC, HE15F, HE10F, HE5F, LOT, CON, M10FOF, M15FOF, ARMOF, M20FOF, M30FOF, HELOCOF, HE15FOF, HE10FOF, HE5FOF, LOTOF, CONOF, M10FDP, M15FDP, ARMDP, M20FDP, M30FDP, HELOCDP, HE15FDP, HE10FDP, HE5FDP, LOTDP, CONDP MORTEFFDATE = mortxml.documentElement.childNodes(0).text M10F = mortxml.documentElement.childNodes(1).text M15F = mortxml.documentElement.childNodes(2).text ARM = mortxml.documentElement.childNodes(3).text M20F = mortxml.documentElement.childNodes(4).text M30F = mortxml.documentElement.childNodes(5).text HELOC = mortxml.documentElement.childNodes(6).text HE15F = mortxml.documentElement.childNodes(7).text HE10F = mortxml.documentElement.childNodes(8).text HE5F = mortxml.documentElement.childNodes(9).text LOT = mortxml.documentElement.childNodes(10).text CON = mortxml.documentElement.childNodes(11).text M10FOF = mortxml.documentElement.childNodes(12).text M15FOF = mortxml.documentElement.childNodes(13).text ARMOF = mortxml.documentElement.childNodes(14).text M20FOF = mortxml.documentElement.childNodes(15).text M30FOF = mortxml.documentElement.childNodes(16).text HELOCOF = mortxml.documentElement.childNodes(17).text HE15FOF = mortxml.documentElement.childNodes(18).text HE10FOF = mortxml.documentElement.childNodes(19).text HE5FOF = mortxml.documentElement.childNodes(20).text LOTOF = mortxml.documentElement.childNodes(21).text CONOF = mortxml.documentElement.childNodes(22).text M10FDP = mortxml.documentElement.childNodes(23).text M15FDP = mortxml.documentElement.childNodes(24).text ARMDP = mortxml.documentElement.childNodes(25).text M20FDP = mortxml.documentElement.childNodes(26).text M30FDP = mortxml.documentElement.childNodes(27).text HELOCDP = mortxml.documentElement.childNodes(28).text HE15FDP = mortxml.documentElement.childNodes(29).text HE10FDP = mortxml.documentElement.childNodes(30).text HE5FDP = mortxml.documentElement.childNodes(31).text LOTDP = mortxml.documentElement.childNodes(32).text CONDP = mortxml.documentElement.childNodes(33).text Set mortxml = Nothing Dim depxml Set depxml = Server.CreateObject("Microsoft.XMLDOM") depxml.async = False depxml.load ("http://www.broncofcu.com/rates/deposit/deposit.xml") Dim CDEFFDATE, CD06APR, CD06APY, CD12APR, CD12APY, CD18APR, CD18APY, CD24APR, CD24APY, CD30APR, CD30APY, CD36APR, CD36APY, CD60APR, CD60APY, MMEFFDATE, MM1APR, MM1APY, MM2APR, MM2APY, MM3APR, MM3APY, MM4APR, MM4APY, MM5APR, MM5APY, SHAREEFFDATE, SHAREAPR, SHAREAPY CDEFFDATE = depxml.documentElement.childNodes(0).text CD06APR = depxml.documentElement.childNodes(1).text CD06APY = depxml.documentElement.childNodes(2).text CD12APR = depxml.documentElement.childNodes(3).text CD12APY = depxml.documentElement.childNodes(4).text CD18APR = depxml.documentElement.childNodes(5).text CD18APY = depxml.documentElement.childNodes(6).text CD24APR = depxml.documentElement.childNodes(7).text CD24APY = depxml.documentElement.childNodes(8).text CD30APR = depxml.documentElement.childNodes(9).text CD30APY = depxml.documentElement.childNodes(10).text CD36APR = depxml.documentElement.childNodes(11).text CD36APY = depxml.documentElement.childNodes(12).text CD60APR = depxml.documentElement.childNodes(13).text CD60APY = depxml.documentElement.childNodes(14).text MMEFFDATE = depxml.documentElement.childNodes(15).text MM1APR = depxml.documentElement.childNodes(16).text MM1APY = depxml.documentElement.childNodes(17).text MM2APR = depxml.documentElement.childNodes(18).text MM2APY = depxml.documentElement.childNodes(19).text MM3APR = depxml.documentElement.childNodes(20).text MM3APY = depxml.documentElement.childNodes(21).text MM4APR = depxml.documentElement.childNodes(22).text MM4APY = depxml.documentElement.childNodes(23).text MM5APR = depxml.documentElement.childNodes(24).text MM5APY = depxml.documentElement.childNodes(25).text SHAREEFFDATE = depxml.documentElement.childNodes(26).text SHAREAPR = depxml.documentElement.childNodes(27).text SHAREAPY = depxml.documentElement.childNodes(28).text Set depxml = Nothing Dim loanxml Set loanxml = Server.CreateObject("Microsoft.XMLDOM") loanxml.async = False loanxml.load ("http://www.broncofcu.com/rates/loan/loans.xml") Dim LOANEFFDATE, VEHICLEAPR, VEHICLETERM, SHARELOANAPR, SHARELOANTERM, PERSAPR, PERSTERM, RRAPR, RRTERM, VISAPLATAPR, VISAGOLDAPR, VISACLASAPR, VISAPLATTERM, VISAGOLDTERM, VISACLASTERM, FEDSTAFAPR, FEDSTAFTERM, FEDPLUSAPR, FEDPLUSTERM LOANEFFDATE = loanxml.documentElement.childNodes(0).text VEHICLEAPR = loanxml.documentElement.childNodes(1).text VEHICLETERM = loanxml.documentElement.childNodes(2).text SHARELOANAPR = loanxml.documentElement.childNodes(3).text SHARELOANTERM = loanxml.documentElement.childNodes(4).text PERSAPR = loanxml.documentElement.childNodes(5).text PERSTERM = loanxml.documentElement.childNodes(6).text RRAPR = loanxml.documentElement.childNodes(7).text RRTERM = loanxml.documentElement.childNodes(8).text VISAPLATAPR = loanxml.documentElement.childNodes(9).text VISAGOLDAPR = loanxml.documentElement.childNodes(10).text VISACLASAPR = loanxml.documentElement.childNodes(11).text VISAPLATTERM = loanxml.documentElement.childNodes(12).text VISAGOLDTERM = loanxml.documentElement.childNodes(13).text VISACLASTERM = loanxml.documentElement.childNodes(14).text FEDSTAFAPR = loanxml.documentElement.childNodes(15).text FEDSTAFTERM = loanxml.documentElement.childNodes(16).text FEDPLUSAPR = loanxml.documentElement.childNodes(17).text FEDPLUSTERM = loanxml.documentElement.childNodes(18).text Set loanxml = Nothing %> Untitled Document

Search:


These results are calculated as follows:
80% of the Present Value - First Mortgage Balance - Other Debt

If the calculator does not load, you may need to Add/Update the Java Plug-in.