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