<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsRate Dim rsRate_numRows Set rsRate = Server.CreateObject("ADODB.Recordset") rsRate.ActiveConnection = MM_connWeb_STRING rsRate.Source = "SELECT * FROM RCCRates" rsRate.CursorType = 0 rsRate.CursorLocation = 2 rsRate.LockType = 1 rsRate.Open() rsRate_numRows = 0 %> Exchange Rate
As of :
<%= FormatDateTime((rsRate.Fields.Item("value_date").Value), vblongdate) %>
CAD1.00  =  Php<%= FormatNumber((rsRate.Fields.Item("CaDPhp").Value), 2, -2, -2, -2) %>
USD1.00  =  Php<%= FormatNumber((rsRate.Fields.Item("UsDPhP").Value), 2, -2, -2, -2) %>
CAD1.00  =  USD<%= FormatNumber((rsRate.Fields.Item("UsDCaD").Value), 4, -2, -2, -2) %>
For SATURDAYS and SUNDAYS exchange rates, please call 905-896-8010 or 604-737-4944 or Toll Free Nos: 1-866-886-8806 or 1-877-762-1165.
<% rsRate.close() %>