<%@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 %> France-tourinfo:Anneau des Villes et Villages du Nord
   
 
 
Liste de tous les sites présent dans l'anneau
"villes et villages du Nord de la
France" de France-tourinfo
> L'anneau des communes du nord de la France est classé par ordre alphabétique des régions.
>> Vous ne trouvez pas l'endroit que vous cherchez, vous pouvez accéder aux autres communes du sud de la France
 
    ALSACE

<% While ((Repeat1__numRows <> 0) AND (NOT Rsring1.EOF)) %>
   " target="_blank"><%=(Rsring1.Fields.Item("nom").Value)%>
<%=(Rsring1.Fields.Item("departement").Value)%>  
   <%=(Rsring1.Fields.Item("description").Value)%>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Rsring1.MoveNext() Wend %>
    BOURGOGNE

<% While ((Repeat4__numRows <> 0) AND (NOT Rsring4.EOF)) %>
   " target="_blank"><%=(Rsring4.Fields.Item("nom").Value)%>
<%=(Rsring4.Fields.Item("departement").Value)%>  
   <%=(Rsring4.Fields.Item("description").Value)%>
<% Repeat4__index=Repeat4__index+1 Repeat4__numRows=Repeat4__numRows-1 Rsring4.MoveNext() Wend %>
    BRETAGNE

<% While ((Repeat5__numRows <> 0) AND (NOT Rsring5.EOF)) %>
   " target="_blank"><%=(Rsring5.Fields.Item("nom").Value)%>
<%=(Rsring5.Fields.Item("departement").Value)%>  
   <%=(Rsring5.Fields.Item("description").Value)%>
<% Repeat5__index=Repeat5__index+1 Repeat5__numRows=Repeat5__numRows-1 Rsring5.MoveNext() Wend %>

    CENTRE

<% While ((Repeat6__numRows <> 0) AND (NOT Rsring6.EOF)) %>
   " target="_blank"><%=(Rsring6.Fields.Item("nom").Value)%>
<%=(Rsring6.Fields.Item("departement").Value)%>  
   <%=(Rsring6.Fields.Item("description").Value)%>
<% Repeat6__index=Repeat6__index+1 Repeat6__numRows=Repeat6__numRows-1 Rsring6.MoveNext() Wend %>

    CHAMPAGNE

<% While ((Repeat7__numRows <> 0) AND (NOT Rsring7.EOF)) %>
   " target="_blank"><%=(Rsring7.Fields.Item("nom").Value)%>
<%=(Rsring7.Fields.Item("departement").Value)%>  
   <%=(Rsring7.Fields.Item("description").Value)%>
<% Repeat7__index=Repeat7__index+1 Repeat7__numRows=Repeat7__numRows-1 Rsring7.MoveNext() Wend %>
    FRANCHE-COMTE

<% While ((Repeat9__numRows <> 0) AND (NOT Rsring9.EOF)) %>
   " target="_blank"><%=(Rsring9.Fields.Item("nom").Value)%>
<%=(Rsring9.Fields.Item("departement").Value)%>  
   <%=(Rsring9.Fields.Item("description").Value)%>
<% Repeat9__index=Repeat9__index+1 Repeat9__numRows=Repeat9__numRows-1 Rsring9.MoveNext() Wend %>

    ILE DE FRANCE

<% While ((Repeat10__numRows <> 0) AND (NOT Rsring10.EOF)) %>
   <%=(Rsring10.Fields.Item("nom").Value)%>
<%=(Rsring10.Fields.Item("departement").Value)%>  
   <%=(Rsring10.Fields.Item("description").Value)%>
<% Repeat10__index=Repeat10__index+1 Repeat10__numRows=Repeat10__numRows-1 Rsring10.MoveNext() Wend %>

    LORRAINE

<% While ((Repeat13__numRows <> 0) AND (NOT Rsring13.EOF)) %>
   " target="_blank"><%=(Rsring13.Fields.Item("nom").Value)%>
<%=(Rsring13.Fields.Item("departement").Value)%>  
   <%=(Rsring13.Fields.Item("description").Value)%>
<% Repeat13__index=Repeat13__index+1 Repeat13__numRows=Repeat13__numRows-1 Rsring13.MoveNext() Wend %>
    NORD-PAS DE CALAIS

<% While ((Repeat15__numRows <> 0) AND (NOT Rsring15.EOF)) %>
   " target="_blank"><%=(Rsring15.Fields.Item("nom").Value)%>
<%=(Rsring15.Fields.Item("departement").Value)%>  
   <%=(Rsring15.Fields.Item("description").Value)%>
<% Repeat15__index=Repeat15__index+1 Repeat15__numRows=Repeat15__numRows-1 Rsring15.MoveNext() Wend %>
    BASSE NORMANDIE

<% While ((Repeat16__numRows <> 0) AND (NOT Rsring16.EOF)) %>
   " target="_blank"><%=(Rsring16.Fields.Item("nom").Value)%>
<%=(Rsring16.Fields.Item("departement").Value)%>  
   <%=(Rsring16.Fields.Item("description").Value)%>
<% Repeat16__index=Repeat16__index+1 Repeat16__numRows=Repeat16__numRows-1 Rsring16.MoveNext() Wend %>
    HAUTE NORMANDIE

<% While ((Repeat17__numRows <> 0) AND (NOT Rsring17.EOF)) %>
   " target="_blank"><%=(Rsring17.Fields.Item("nom").Value)%>
<%=(Rsring17.Fields.Item("departement").Value)%>  
   <%=(Rsring17.Fields.Item("description").Value)%>
<% Repeat17__index=Repeat17__index+1 Repeat17__numRows=Repeat17__numRows-1 Rsring17.MoveNext() Wend %>

    PAYS DE LA LOIRE

<% While ((Repeat18__numRows <> 0) AND (NOT Rsring18.EOF)) %>
   " target="_blank"><%=(Rsring18.Fields.Item("nom").Value)%>
<%=(Rsring18.Fields.Item("departement").Value)%>  
   <%=(Rsring18.Fields.Item("description").Value)%>
<% Repeat18__index=Repeat18__index+1 Repeat18__numRows=Repeat18__numRows-1 Rsring18.MoveNext() Wend %>

    PICARDIE

<% While ((Repeat19__numRows <> 0) AND (NOT Rsring19.EOF)) %>
   " target="_blank"><%=(Rsring19.Fields.Item("nom").Value)%>
<%=(Rsring19.Fields.Item("departement").Value)%>  
   <%=(Rsring19.Fields.Item("description").Value)%>
<% Repeat19__index=Repeat19__index+1 Repeat19__numRows=Repeat19__numRows-1 Rsring19.MoveNext() Wend %>