%@LANGUAGE="VBSCRIPT"%> <% Dim rsPage__MMColParam rsPage__MMColParam = "1" If (Request("MM_EmptyValue") <> "") Then rsPage__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsPage Dim rsPage_numRows Set rsPage = Server.CreateObject("ADODB.Recordset") rsPage.ActiveConnection = MM_admin_STRING rsPage.Source = "SELECT * FROM index WHERE ID = " + Replace(rsPage__MMColParam, "'", "''") + "" rsPage.CursorType = 0 rsPage.CursorLocation = 2 rsPage.LockType = 1 rsPage.Open() rsPage_numRows = 0 %> <% Dim rs2__MMColParam rs2__MMColParam = "2" If (Request("MM_EmptyValue") <> "") Then rs2__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs2 Dim rs2_numRows Set rs2 = Server.CreateObject("ADODB.Recordset") rs2.ActiveConnection = MM_admin_STRING rs2.Source = "SELECT * FROM index WHERE ID = " + Replace(rs2__MMColParam, "'", "''") + "" rs2.CursorType = 0 rs2.CursorLocation = 2 rs2.LockType = 1 rs2.Open() rs2_numRows = 0 %> <% Dim rs3__MMColParam rs3__MMColParam = "3" If (Request("MM_EmptyValue") <> "") Then rs3__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs3 Dim rs3_numRows Set rs3 = Server.CreateObject("ADODB.Recordset") rs3.ActiveConnection = MM_admin_STRING rs3.Source = "SELECT * FROM index WHERE ID = " + Replace(rs3__MMColParam, "'", "''") + "" rs3.CursorType = 0 rs3.CursorLocation = 2 rs3.LockType = 1 rs3.Open() rs3_numRows = 0 %>
![]() |
|||||||||||||||||||
|
|