<% 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 %>