%@LANGUAGE="VBSCRIPT"%> <% Dim Rsring4__MMColParam Rsring4__MMColParam = "Bourgogne" if(Request("MM_EmptyValue") <> "") then Rsring4__MMColParam = Request("MM_EmptyValue") %> <% Dim Rsring5__MMColParam Rsring5__MMColParam = "Bretagne" if(Request("MM_EmptyValue") <> "") then Rsring5__MMColParam = Request("MM_EmptyValue") %> <% Dim Rsring6__MMColParam Rsring6__MMColParam = "Centre" if(Request("MM_EmptyValue") <> "") then Rsring6__MMColParam = Request("MM_EmptyValue") %> <% Dim Rsring7__MMColParam Rsring7__MMColParam = "Champagne-Ardennes" if(Request("MM_EmptyValue") <> "") then Rsring7__MMColParam = Request("MM_EmptyValue") %> <% Dim Rsring9__MMColParam Rsring9__MMColParam = "Franche-Comté" if(Request("MM_EmptyValue") <> "") then Rsring9__MMColParam = Request("MM_EmptyValue") %> <% Dim Rsring1__MMColParam Rsring1__MMColParam = "Alsace" if(Request("MM_EmptyValue") <> "") then Rsring1__MMColParam = Request("MM_EmptyValue") %> <% Dim Rsring10__MMColParam Rsring10__MMColParam = "Ile de France" if(Request("MM_EmptyValue") <> "") then Rsring10__MMColParam = Request("MM_EmptyValue") %> <% Dim Rsring13__MMColParam Rsring13__MMColParam = "Lorraine" if(Request("MM_EmptyValue") <> "") then Rsring13__MMColParam = Request("MM_EmptyValue") %> <% Dim Rsring15__MMColParam Rsring15__MMColParam = "Nord-Pas-de-Calais" if(Request("MM_EmptyValue") <> "") then Rsring15__MMColParam = Request("MM_EmptyValue") %> <% Dim Rsring16__MMColParam Rsring16__MMColParam = "Basse-Normandie" if(Request("MM_EmptyValue") <> "") then Rsring16__MMColParam = Request("MM_EmptyValue") %> <% Dim Rsring17__MMColParam Rsring17__MMColParam = "Haute-Normandie" if(Request("MM_EmptyValue") <> "") then Rsring17__MMColParam = Request("MM_EmptyValue") %> <% Dim Rsring18__MMColParam Rsring18__MMColParam = "Pays de la Loire" if(Request("MM_EmptyValue") <> "") then Rsring18__MMColParam = Request("MM_EmptyValue") %> <% Dim Rsring19__MMColParam Rsring19__MMColParam = "Picardie" if(Request("MM_EmptyValue") <> "") then Rsring19__MMColParam = Request("MM_EmptyValue") %> <% set Rsring4 = Server.CreateObject("ADODB.Recordset") Rsring4.ActiveConnection = "dsn=divers;uid=stephan;pwd=bibi2;" Rsring4.Source = "SELECT * FROM anneau WHERE region = '" + Replace(Rsring4__MMColParam, "'", "''") + "' and validation = 'O'" Rsring4.CursorType = 0 Rsring4.CursorLocation = 2 Rsring4.LockType = 3 Rsring4.Open Rsring4_numRows = 0 %><% set Rsring5 = Server.CreateObject("ADODB.Recordset") Rsring5.ActiveConnection = "dsn=divers;uid=stephan;pwd=bibi2;" Rsring5.Source = "SELECT * FROM anneau WHERE region = '" + Replace(Rsring5__MMColParam, "'", "''") + "' and validation = 'O'" Rsring5.CursorType = 0 Rsring5.CursorLocation = 2 Rsring5.LockType = 3 Rsring5.Open Rsring5_numRows = 0 %><% set Rsring6 = Server.CreateObject("ADODB.Recordset") Rsring6.ActiveConnection = "dsn=divers;uid=stephan;pwd=bibi2;" Rsring6.Source = "SELECT * FROM anneau WHERE region = '" + Replace(Rsring6__MMColParam, "'", "''") + "' and validation = 'O'" Rsring6.CursorType = 0 Rsring6.CursorLocation = 2 Rsring6.LockType = 3 Rsring6.Open Rsring6_numRows = 0 %><% set Rsring7 = Server.CreateObject("ADODB.Recordset") Rsring7.ActiveConnection = "dsn=divers;uid=stephan;pwd=bibi2;" Rsring7.Source = "SELECT * FROM anneau WHERE region = '" + Replace(Rsring7__MMColParam, "'", "''") + "' and validation = 'O'" Rsring7.CursorType = 0 Rsring7.CursorLocation = 2 Rsring7.LockType = 3 Rsring7.Open Rsring7_numRows = 0 %><% set Rsring9 = Server.CreateObject("ADODB.Recordset") Rsring9.ActiveConnection = "dsn=divers;uid=stephan;pwd=bibi2;" Rsring9.Source = "SELECT * FROM anneau WHERE region = '" + Replace(Rsring9__MMColParam, "'", "''") + "' and validation = 'O'" Rsring9.CursorType = 0 Rsring9.CursorLocation = 2 Rsring9.LockType = 3 Rsring9.Open Rsring9_numRows = 0 %><% set Rsring1 = Server.CreateObject("ADODB.Recordset") Rsring1.ActiveConnection = "dsn=divers;uid=stephan;pwd=bibi2;" Rsring1.Source = "SELECT * FROM anneau WHERE region = '" + Replace(Rsring1__MMColParam, "'", "''") + "' and validation = 'O'" Rsring1.CursorType = 0 Rsring1.CursorLocation = 2 Rsring1.LockType = 3 Rsring1.Open Rsring1_numRows = 0 %><% set Rsring10 = Server.CreateObject("ADODB.Recordset") Rsring10.ActiveConnection = "dsn=divers;uid=stephan;pwd=bibi2;" Rsring10.Source = "SELECT * FROM anneau WHERE region = '" + Replace(Rsring10__MMColParam, "'", "''") + "' and validation = 'O'" Rsring10.CursorType = 0 Rsring10.CursorLocation = 2 Rsring10.LockType = 3 Rsring10.Open Rsring10_numRows = 0 %><% set Rsring13 = Server.CreateObject("ADODB.Recordset") Rsring13.ActiveConnection = "dsn=divers;uid=stephan;pwd=bibi2;" Rsring13.Source = "SELECT * FROM anneau WHERE region = '" + Replace(Rsring13__MMColParam, "'", "''") + "' and validation = 'O' ORDER BY nom ASC" Rsring13.CursorType = 0 Rsring13.CursorLocation = 2 Rsring13.LockType = 3 Rsring13.Open Rsring13_numRows = 0 %><% set Rsring15 = Server.CreateObject("ADODB.Recordset") Rsring15.ActiveConnection = "dsn=divers;uid=stephan;pwd=bibi2;" Rsring15.Source = "SELECT * FROM anneau WHERE region = '" + Replace(Rsring15__MMColParam, "'", "''") + "' and validation = 'O'" Rsring15.CursorType = 0 Rsring15.CursorLocation = 2 Rsring15.LockType = 3 Rsring15.Open Rsring15_numRows = 0 %><% set Rsring16 = Server.CreateObject("ADODB.Recordset") Rsring16.ActiveConnection = "dsn=divers;uid=stephan;pwd=bibi2;" Rsring16.Source = "SELECT * FROM anneau WHERE region = '" + Replace(Rsring16__MMColParam, "'", "''") + "' and validation = 'O'" Rsring16.CursorType = 0 Rsring16.CursorLocation = 2 Rsring16.LockType = 3 Rsring16.Open Rsring16_numRows = 0 %><% set Rsring17 = Server.CreateObject("ADODB.Recordset") Rsring17.ActiveConnection = "dsn=divers;uid=stephan;pwd=bibi2;" Rsring17.Source = "SELECT * FROM anneau WHERE region = '" + Replace(Rsring17__MMColParam, "'", "''") + "' and validation = 'O'" Rsring17.CursorType = 0 Rsring17.CursorLocation = 2 Rsring17.LockType = 3 Rsring17.Open Rsring17_numRows = 0 %><% set Rsring18 = Server.CreateObject("ADODB.Recordset") Rsring18.ActiveConnection = "dsn=divers;uid=stephan;pwd=bibi2;" Rsring18.Source = "SELECT * FROM anneau WHERE region = '" + Replace(Rsring18__MMColParam, "'", "''") + "' and validation = 'O'" Rsring18.CursorType = 0 Rsring18.CursorLocation = 2 Rsring18.LockType = 3 Rsring18.Open Rsring18_numRows = 0 %><% set Rsring19 = Server.CreateObject("ADODB.Recordset") Rsring19.ActiveConnection = "dsn=divers;uid=stephan;pwd=bibi2;" Rsring19.Source = "SELECT * FROM anneau WHERE region = '" + Replace(Rsring19__MMColParam, "'", "''") + "' and validation = 'O'" Rsring19.CursorType = 0 Rsring19.CursorLocation = 2 Rsring19.LockType = 3 Rsring19.Open Rsring19_numRows = 0 %><% Dim Repeat5__numRows Repeat5__numRows = -1 Dim Repeat5__index Repeat5__index = 0 Rsring5_numRows = Rsring5_numRows + Repeat5__numRows %><% Dim Repeat6__numRows Repeat6__numRows = -1 Dim Repeat6__index Repeat6__index = 0 Rsring6_numRows = Rsring6_numRows + Repeat6__numRows %><% Dim Repeat7__numRows Repeat7__numRows = -1 Dim Repeat7__index Repeat7__index = 0 Rsring7_numRows = Rsring7_numRows + Repeat7__numRows %><% Dim Repeat8__numRows Repeat8__numRows = -1 Dim Repeat8__index Repeat8__index = 0 Rsring8_numRows = Rsring8_numRows + Repeat8__numRows %><% Dim Repeat9__numRows Repeat9__numRows = -1 Dim Repeat9__index Repeat9__index = 0 Rsring9_numRows = Rsring9_numRows + Repeat9__numRows %><% Dim Repeat10__numRows Repeat10__numRows = -1 Dim Repeat10__index Repeat10__index = 0 Rsring10_numRows = Rsring10_numRows + Repeat10__numRows %><% Dim Repeat12__numRows Repeat12__numRows = -1 Dim Repeat12__index Repeat12__index = 0 Rsring12_numRows = Rsring12_numRows + Repeat12__numRows %><% Dim Repeat13__numRows Repeat13__numRows = -1 Dim Repeat13__index Repeat13__index = 0 Rsring13_numRows = Rsring13_numRows + Repeat13__numRows %><% Dim Repeat14__numRows Repeat14__numRows = -1 Dim Repeat14__index Repeat14__index = 0 Rsring14_numRows = Rsring14_numRows + Repeat14__numRows %><% Dim Repeat15__numRows Repeat15__numRows = -1 Dim Repeat15__index Repeat15__index = 0 Rsring15_numRows = Rsring15_numRows + Repeat15__numRows %><% Dim Repeat16__numRows Repeat16__numRows = -1 Dim Repeat16__index Repeat16__index = 0 Rsring16_numRows = Rsring16_numRows + Repeat16__numRows %><% Dim Repeat17__numRows Repeat17__numRows = -1 Dim Repeat17__index Repeat17__index = 0 Rsring17_numRows = Rsring17_numRows + Repeat17__numRows %><% Dim Repeat18__numRows Repeat18__numRows = -1 Dim Repeat18__index Repeat18__index = 0 Rsring18_numRows = Rsring18_numRows + Repeat18__numRows %><% Dim Repeat19__numRows Repeat19__numRows = -1 Dim Repeat19__index Repeat19__index = 0 Rsring19_numRows = Rsring19_numRows + Repeat19__numRows %><% Dim Repeat4__numRows Repeat4__numRows = -1 Dim Repeat4__index Repeat4__index = 0 Rsring4_numRows = Rsring4_numRows + Repeat4__numRows %><% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 Rsring1_numRows = Rsring1_numRows + Repeat1__numRows %>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||