% Dim Ticker__MMColParam Ticker__MMColParam = "True" If (Request("MM_EmptyValue") <> "") Then Ticker__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Ticker Dim Ticker_numRows Set Ticker = Server.CreateObject("ADODB.Recordset") Ticker.ActiveConnection = MM_Laing_STRING Ticker.Source = "SELECT TickerMessage FROM Ticker WHERE TickerActive = " + Replace(Ticker__MMColParam, "'", "''") + " ORDER BY TickNo ASC" Ticker.CursorType = 0 Ticker.CursorLocation = 2 Ticker.LockType = 1 Ticker.Open() Ticker_numRows = 0 %>
|
||||||||||||||||||||||||||||||||||