%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rs__MMColParam rs__MMColParam = "Repeater" If (Request("MM_EmptyValue") <> "") Then rs__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs Dim rs_numRows Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = MM_conn_STRING rs.Source = "SELECT * FROM articles WHERE genere = '" + Replace(rs__MMColParam, "'", "''") + "'" rs.CursorType = 0 rs.CursorLocation = 2 rs.LockType = 1 rs.Open() rs_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rs_numRows = rs_numRows + Repeat1__numRows %>
|
|||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||
|