<%@LANGUAGE="VBSCRIPT"%> <% Dim Rsring2__MMColParam Rsring2__MMColParam = "Aquitaine" if(Request("MM_EmptyValue") <> "") then Rsring2__MMColParam = Request("MM_EmptyValue") %> <% Dim Rsring8__MMColParam Rsring8__MMColParam = "Corse" if(Request("MM_EmptyValue") <> "") then Rsring8__MMColParam = Request("MM_EmptyValue") %> <% Dim Rsring11__MMColParam Rsring11__MMColParam = "Languedoc-Roussillon" if(Request("MM_EmptyValue") <> "") then Rsring11__MMColParam = Request("MM_EmptyValue") %> <% Dim Rsring12__MMColParam Rsring12__MMColParam = "Limousin" if(Request("MM_EmptyValue") <> "") then Rsring12__MMColParam = Request("MM_EmptyValue") %> <% Dim Rsring14__MMColParam Rsring14__MMColParam = "Midi-Pyrénées" if(Request("MM_EmptyValue") <> "") then Rsring14__MMColParam = Request("MM_EmptyValue") %> <% Dim Rsring20__MMColParam Rsring20__MMColParam = "Poitou-Charentes" if(Request("MM_EmptyValue") <> "") then Rsring20__MMColParam = Request("MM_EmptyValue") %> <% Dim Rsring21__MMColParam Rsring21__MMColParam = "Provence Alpes Côte-d'Azur " if(Request("MM_EmptyValue") <> "") then Rsring21__MMColParam = Request("MM_EmptyValue") %> <% Dim Rsring22__MMColParam Rsring22__MMColParam = "Rhone-Alpes" if(Request("MM_EmptyValue") <> "") then Rsring22__MMColParam = Request("MM_EmptyValue") %> <% Dim Rsring3__MMColParam Rsring3__MMColParam = "Auvergne" if(Request("MM_EmptyValue") <> "") then Rsring3__MMColParam = Request("MM_EmptyValue") %> <% set Rsring2 = Server.CreateObject("ADODB.Recordset") Rsring2.ActiveConnection = "dsn=divers;uid=stephan;pwd=bibi2;" Rsring2.Source = "SELECT * FROM anneau WHERE region = '" + Replace(Rsring2__MMColParam, "'", "''") + "' and validation = 'O'" Rsring2.CursorType = 0 Rsring2.CursorLocation = 2 Rsring2.LockType = 3 Rsring2.Open Rsring2_numRows = 0 %><% set Rsring8 = Server.CreateObject("ADODB.Recordset") Rsring8.ActiveConnection = "dsn=divers;uid=stephan;pwd=bibi2;" Rsring8.Source = "SELECT * FROM anneau WHERE region = '" + Replace(Rsring8__MMColParam, "'", "''") + "' and validation = 'O'" Rsring8.CursorType = 0 Rsring8.CursorLocation = 2 Rsring8.LockType = 3 Rsring8.Open Rsring8_numRows = 0 %><% set Rsring11 = Server.CreateObject("ADODB.Recordset") Rsring11.ActiveConnection = "dsn=divers;uid=stephan;pwd=bibi2;" Rsring11.Source = "SELECT * FROM anneau WHERE region = '" + Replace(Rsring11__MMColParam, "'", "''") + "' and validation = 'O'" Rsring11.CursorType = 0 Rsring11.CursorLocation = 2 Rsring11.LockType = 3 Rsring11.Open Rsring11_numRows = 0 %><% set Rsring12 = Server.CreateObject("ADODB.Recordset") Rsring12.ActiveConnection = "dsn=divers;uid=stephan;pwd=bibi2;" Rsring12.Source = "SELECT * FROM anneau WHERE region = '" + Replace(Rsring12__MMColParam, "'", "''") + "' and validation = 'O'" Rsring12.CursorType = 0 Rsring12.CursorLocation = 2 Rsring12.LockType = 3 Rsring12.Open Rsring12_numRows = 0 %><% set Rsring14 = Server.CreateObject("ADODB.Recordset") Rsring14.ActiveConnection = "dsn=divers;uid=stephan;pwd=bibi2;" Rsring14.Source = "SELECT * FROM anneau WHERE region = '" + Replace(Rsring14__MMColParam, "'", "''") + "' and validation = 'O'" Rsring14.CursorType = 0 Rsring14.CursorLocation = 2 Rsring14.LockType = 3 Rsring14.Open Rsring14_numRows = 0 %><% set Rsring20 = Server.CreateObject("ADODB.Recordset") Rsring20.ActiveConnection = "dsn=divers;uid=stephan;pwd=bibi2;" Rsring20.Source = "SELECT * FROM anneau WHERE region = '" + Replace(Rsring20__MMColParam, "'", "''") + "' and validation = 'O'" Rsring20.CursorType = 0 Rsring20.CursorLocation = 2 Rsring20.LockType = 3 Rsring20.Open Rsring20_numRows = 0 %><% set Rsring21 = Server.CreateObject("ADODB.Recordset") Rsring21.ActiveConnection = "dsn=divers;uid=stephan;pwd=bibi2;" Rsring21.Source = "SELECT * FROM anneau WHERE region = '" + Replace(Rsring21__MMColParam, "'", "''") + "' and validation = 'O'" Rsring21.CursorType = 0 Rsring21.CursorLocation = 2 Rsring21.LockType = 3 Rsring21.Open Rsring21_numRows = 0 %><% set Rsring22 = Server.CreateObject("ADODB.Recordset") Rsring22.ActiveConnection = "dsn=divers;uid=stephan;pwd=bibi2;" Rsring22.Source = "SELECT * FROM anneau WHERE region = '" + Replace(Rsring22__MMColParam, "'", "''") + "' and validation = 'O'" Rsring22.CursorType = 0 Rsring22.CursorLocation = 2 Rsring22.LockType = 3 Rsring22.Open Rsring22_numRows = 0 %><% set Rsring3 = Server.CreateObject("ADODB.Recordset") Rsring3.ActiveConnection = "dsn=divers;uid=stephan;pwd=bibi2;" Rsring3.Source = "SELECT * FROM anneau WHERE region = '" + Replace(Rsring3__MMColParam, "'", "''") + "' and validation = 'O'" Rsring3.CursorType = 0 Rsring3.CursorLocation = 2 Rsring3.LockType = 3 Rsring3.Open Rsring3_numRows = 0 %><% Dim Repeat2__numRows Repeat2__numRows = -1 Dim Repeat2__index Repeat2__index = 0 Rsring2_numRows = Rsring2_numRows + Repeat2__numRows %><% Dim Repeat3__numRows Repeat3__numRows = -1 Dim Repeat3__index Repeat3__index = 0 Rsring3_numRows = Rsring3_numRows + Repeat3__numRows %><% 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 Repeat11__numRows Repeat11__numRows = -1 Dim Repeat11__index Repeat11__index = 0 Rsring11_numRows = Rsring11_numRows + Repeat11__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 Repeat20__numRows Repeat20__numRows = -1 Dim Repeat20__index Repeat20__index = 0 Rsring20_numRows = Rsring20_numRows + Repeat20__numRows %><% Dim Repeat21__numRows Repeat21__numRows = -1 Dim Repeat21__index Repeat21__index = 0 Rsring21_numRows = Rsring21_numRows + Repeat21__numRows %><% Dim Repeat22__numRows Repeat22__numRows = -1 Dim Repeat22__index Repeat22__index = 0 Rsring22_numRows = Rsring22_numRows + Repeat22__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 Sud
   
 
 
Liste de tous les sites présent dans l'anneau
"villes et villages du Sud de la France" de France-tourinfo
> L'anneau des communes du sud 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 nord de la France 
    AQUITAINE

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

    AUVERGNE

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

    CORSE

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

    LANGUEDOC-ROUSSILLON

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

    MIDI-PYRENEES

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

    POITOU-CHARENTES

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

    PROVENCE ALPES COTE D'AZUR

<% While ((Repeat21__numRows <> 0) AND (NOT Rsring21.EOF)) %>
   " target="_blank"><%=(Rsring21.Fields.Item("nom").Value)%>
<%=(Rsring21.Fields.Item("departement").Value)%>  
   <%=(Rsring21.Fields.Item("description").Value)%>
<% Repeat21__index=Repeat21__index+1 Repeat21__numRows=Repeat21__numRows-1 Rsring21.MoveNext() Wend %>
    RHONE-ALPES

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