%@LANGUAGE="VBSCRIPT"%> <% Dim RsNews__MMColParam RsNews__MMColParam = "1" If (Request("MM_EmptyValue") <> "") Then RsNews__MMColParam = Request("MM_EmptyValue") End If %> <% Dim RsNews Dim RsNews_numRows Set RsNews = Server.CreateObject("ADODB.Recordset") RsNews.ActiveConnection = MM_LemonNews_STRING RsNews.Source = "SELECT * FROM NewsTbl WHERE Position = '" + Replace(RsNews__MMColParam, "'", "''") + "'" RsNews.CursorType = 0 RsNews.CursorLocation = 2 RsNews.LockType = 1 RsNews.Open() RsNews_numRows = 0 %> <% Dim RsNews2__MMColParam RsNews2__MMColParam = "2" If (Request("MM_EmptyValue") <> "") Then RsNews2__MMColParam = Request("MM_EmptyValue") End If %> <% Dim RsNews2 Dim RsNews2_numRows Set RsNews2 = Server.CreateObject("ADODB.Recordset") RsNews2.ActiveConnection = MM_LemonNews_STRING RsNews2.Source = "SELECT * FROM NewsTbl WHERE Position = '" + Replace(RsNews2__MMColParam, "'", "''") + "'" RsNews2.CursorType = 0 RsNews2.CursorLocation = 2 RsNews2.LockType = 1 RsNews2.Open() RsNews2_numRows = 0 %> <% Dim RsNews3__MMColParam RsNews3__MMColParam = "3" If (Request("MM_EmptyValue") <> "") Then RsNews3__MMColParam = Request("MM_EmptyValue") End If %> <% Dim RsNews3 Dim RsNews3_numRows Set RsNews3 = Server.CreateObject("ADODB.Recordset") RsNews3.ActiveConnection = MM_LemonNews_STRING RsNews3.Source = "SELECT * FROM NewsTbl WHERE Position = '" + Replace(RsNews3__MMColParam, "'", "''") + "'" RsNews3.CursorType = 0 RsNews3.CursorLocation = 2 RsNews3.LockType = 1 RsNews3.Open() RsNews3_numRows = 0 %>
|