%@LANGUAGE="VBSCRIPT"%> <% Dim rates Dim rates_cmd Dim rates_numRows Set rates_cmd = Server.CreateObject ("ADODB.Command") rates_cmd.ActiveConnection = MM_cmc_STRING rates_cmd.CommandText = "SELECT * FROM rates ORDER BY date_time DESC" rates_cmd.Prepared = true Set rates = rates_cmd.Execute rates_numRows = 0 %>