<% strSQL = "SELECT Format FROM Formats " & _ "WHERE FormatId = " & RATES_FORMAT Set Rs = Conn.Execute(strSQL) if not Rs.eof then RatesFormat = Rs.Fields(0).value else RatesFormat = 3 end if Rs.Close strSQL = "SELECT TermId, Term, MICRate " & _ "FROM CurrentRates " & _ "ORDER BY TermId" Set Rs = Conn.Execute(strSQL) Do While Not Rs.eof Select Case Rs.Fields(0).value Case 1 %> <% =Left(Rs.Fields(1),8) & "=" & FormatNumber(Rs.Fields(2).value, RatesFormat) %>% <% Case 3 %> <% =Left(Rs.Fields(1),6) & "=" & FormatNumber(Rs.Fields(2).value, RatesFormat) %>% <% Case 7 %> <% =Left(Rs.Fields(1),6) & "=" & FormatNumber(Rs.Fields(2).value, RatesFormat) %>% <% Case Else End Select Rs.movenext Loop Conn.Close %>
[ Home | Residential | Commercial | Private | Apply Now ]
Andy MacDonald, MortgageBroker Inc Direct Line: 1-800-203-4711 Fax: 1-800-743-0559