<%@LANGUAGE="VBSCRIPT"%> <% Dim DailyMessage__MMColParam DailyMessage__MMColParam = "True" If (Request("MM_EmptyValue") <> "") Then DailyMessage__MMColParam = Request("MM_EmptyValue") End If %> <% Dim DailyMessage Dim DailyMessage_numRows Set DailyMessage = Server.CreateObject("ADODB.Recordset") DailyMessage.ActiveConnection = MM_vi1_STRING DailyMessage.Source = "SELECT * FROM DailyMessage WHERE display = " + Replace(DailyMessage__MMColParam, "'", "''") + " AND pushDate <= Date() ORDER BY pushDate DESC" DailyMessage.CursorType = 0 DailyMessage.CursorLocation = 2 DailyMessage.LockType = 1 DailyMessage.Open() DailyMessage_numRows = 0 %> VI1.ORG
<% DailyMessage.Close() Set DailyMessage = Nothing %>