%@LANGUAGE="VBSCRIPT"%> <% Dim Rshomme__MMColParam Rshomme__MMColParam = "homme" if(Request("MM_EmptyValue") <> "") then Rshomme__MMColParam = Request("MM_EmptyValue") %> <% set Rshomme = Server.CreateObject("ADODB.Recordset") Rshomme.ActiveConnection = "dsn=kiosques;" Rshomme.Source = "SELECT * FROM actureg WHERE region = '" + Replace(Rshomme__MMColParam, "'", "''") + "'" Rshomme.CursorType = 0 Rshomme.CursorLocation = 2 Rshomme.LockType = 3 Rshomme.Open Rshomme_numRows = 0 %><% Dim Repeat1__numRows Repeat1__numRows = 15 Dim Repeat1__index Repeat1__index = 0 Rshomme_numRows = Rshomme_numRows + Repeat1__numRows %>
|
|
|||