<%@LANGUAGE="VBSCRIPT"%> <% Dim locations__MMColParam locations__MMColParam = "-1" if (Request("MM_EmptyValue") <> "") then locations__MMColParam = Request("MM_EmptyValue") %> <% set locations = Server.CreateObject("ADODB.Recordset") locations.ActiveConnection = MM_honfleur2004_STRING locations.Source = "SELECT numeroauto, accrocheFR, descriptifFR, nomlocation, adresselocation, cplocation, villelocation, photologolocation FROM locations WHERE dns01 = " + Replace(locations__MMColParam, "'", "''") + "" locations.CursorType = 0 locations.CursorLocation = 2 locations.LockType = 3 locations.Open() locations_numRows = 0 %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables ' set the record count locations_total = locations.RecordCount ' set the number of rows displayed on this page If (locations_numRows < 0) Then locations_numRows = locations_total Elseif (locations_numRows = 0) Then locations_numRows = 1 End If ' set the first and last displayed record locations_first = 1 locations_last = locations_first + locations_numRows - 1 ' if we have the correct record count, check the other stats If (locations_total <> -1) Then If (locations_first > locations_total) Then locations_first = locations_total If (locations_last > locations_total) Then locations_last = locations_total If (locations_numRows > locations_total) Then locations_numRows = locations_total End If %> <% ' *** Move To Record and Go To Record: declare variables Set MM_rs = locations MM_rsCount = locations_total MM_size = locations_numRows MM_uniqueCol = "" MM_paramName = "" MM_offset = 0 MM_atTotal = false MM_paramIsDefined = false If (MM_paramName <> "") Then MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "") End If %> <% ' *** Move To Record: handle 'index' or 'offset' parameter if (Not MM_paramIsDefined And MM_rsCount <> 0) then ' use index parameter if defined, otherwise use offset parameter r = Request.QueryString("index") If r = "" Then r = Request.QueryString("offset") If r <> "" Then MM_offset = Int(r) ' if we have a record count, check if we are past the end of the recordset If (MM_rsCount <> -1) Then If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' move the cursor to the selected record i = 0 While ((Not MM_rs.EOF) And (i < MM_offset Or MM_offset = -1)) MM_rs.MoveNext i = i + 1 Wend If (MM_rs.EOF) Then MM_offset = i ' set MM_offset to the last possible record End If %> <% ' *** Move To Record: if we dont know the record count, check the display range If (MM_rsCount = -1) Then ' walk to the end of the display range for this page i = MM_offset While (Not MM_rs.EOF And (MM_size < 0 Or i < MM_offset + MM_size)) MM_rs.MoveNext i = i + 1 Wend ' if we walked off the end of the recordset, set MM_rsCount and MM_size If (MM_rs.EOF) Then MM_rsCount = i If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount End If ' if we walked off the end, set the offset based on page size If (MM_rs.EOF And Not MM_paramIsDefined) Then If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then If ((MM_rsCount Mod MM_size) > 0) Then MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' reset the cursor to the beginning If (MM_rs.CursorType > 0) Then MM_rs.MoveFirst Else MM_rs.Requery End If ' move the cursor to the selected record i = 0 While (Not MM_rs.EOF And i < MM_offset) MM_rs.MoveNext i = i + 1 Wend End If %> <% ' *** Move To Record: update recordset stats ' set the first and last displayed record locations_first = MM_offset + 1 locations_last = MM_offset + MM_size If (MM_rsCount <> -1) Then If (locations_first > MM_rsCount) Then locations_first = MM_rsCount If (locations_last > MM_rsCount) Then locations_last = MM_rsCount End If ' set the boolean used by hide region to check if we are on the last record MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount) %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> <% ' *** Move To Record: set the strings for the first, last, next, and previous links MM_keepMove = MM_keepBoth MM_moveParam = "index" ' if the page has a repeated region, remove 'offset' from the maintained parameters If (MM_size > 0) Then MM_moveParam = "offset" If (MM_keepMove <> "") Then params = Split(MM_keepMove, "&") MM_keepMove = "" For i = 0 To UBound(params) nextItem = Left(params(i), InStr(params(i),"=") - 1) If (StrComp(nextItem,MM_moveParam,1) <> 0) Then MM_keepMove = MM_keepMove & "&" & params(i) End If Next If (MM_keepMove <> "") Then MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1) End If End If End If ' set the strings for the move to links If (MM_keepMove <> "") Then MM_keepMove = MM_keepMove & "&" urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "=" MM_moveFirst = urlStr & "0" MM_moveLast = urlStr & "-1" MM_moveNext = urlStr & Cstr(MM_offset + MM_size) prev = MM_offset - MM_size If (prev < 0) Then prev = 0 MM_movePrev = urlStr & Cstr(prev) %> CAMPINGS en NORMANDIE - Camping du CALVADOS, de l'EURE, de la SEINE MARITIME, camping HONFLEUR, DEAUVILLE, TROUVILLE



location
précédente
" target="_blank">" width="240" height="160" border="0">
location
suivante


Prochainement ouverture d'un site portail sur les CAMPINGS en NORMANDIE

campings du CALVADOS, de l'EURE, de la SEINE MARITIME...

Quelques villes : HONFLEUR, DEAUVILLE, TROUVILLE, CABOURG, ETRETAT, VILLERS sur MER, HOULGATE, VILLERVILLE ...

 


Locations Saisonnières, appartements et gites en Normandie
Honfleur - Le Havre - Deauville - Pont l'Eveque - Etretat - Cabourg - Trouville Normandy - Calvados - Eure -Seine Marime - Orne

Normandie
Liste des gites, chambres d'hotes et appartements en Normandie, location normandie
Liste des gites, chambres d'hotes et appartements du Marais Vernier, location marais vernier

Chambres d'hotes Normandie, 3 épis Gites de France, , La vallée du Moulin de Grainville
Chambres d'hotes Gite de France, table d'hotes produits de la ferme, Chambres du Marais Vernier
Gite de groupe Marais Vernier, accueil 32 personnes, séminaire, Le Domaine du Milieu
Gites Beuzeville, locations atypiques à 15 mn de Honfleur, Honfleur Gites et Chalets
Gite de groupes Normandie, séminaire 50 personnes, Gite de France, La Hugoire Chambord
Gites Normandie, 2 chaumières normandes à Lieurey, vente de produits régionaux, La Jouannerie
Gites à la campagne, 4 gites en pleine nature près de Honfleur, Gites du Clos Vorin

Honfleur
Liste des appartements, gites et chambres d'hotes de Honfleur, locations-honfleur
Liste des chambres d'hotes, gites et appartements de Honfleur en Normandie, locationshonfleur
Liste des gites, chambres d'hotes et appartements de Honfleur et de sa région, location-honfleur
Liste des appartements de Honfleur et de sa région, locationhonfleur

Chambres d'hotes de charme Honfleur, 4 épis gites de France centre Honfleur, Au Grey d'Honfleur
Chambres d'hotes Honfleur, 3 épis gites de France, gite de charme Honfleur, Chez Oncle Alphonse
Chambres d'hotes de charme Honfleur, centre historique, près du Port, La Cour Sainte Catherine
Chambres d'hotes, Gite de France et Tourisme & Handicap, La Ferme Saint Nicolas
Chambres d'hotes Honfleur, maison de caractère et parc fleuri près de Honfleur, La Chevalerie
Chambres d'hotes de charme Honfleur, maison sur les hauteurs de Honfleur, Le Clos Bourdet
Chambres d'hotes de Charme, table d'hotes près de Honfleur, Le Nonchaloire
Chambres d'hotes Honfleur, 5 chambres dans une chaumière près de Honfleur, Les Canards Blancs
Chambres d'hotes Honfleur, 4 chambres spacieuses, piscine, jardin près de Honfleur, L'Abri-Côtier
Chambres d'hotes Honfleur, restaurant normand, chambres d'hotes de caractère, Pêche à la Truite
Appartements Honfleur, 3 appartements meublés à 2 pas du Bassin, Vacances à Honfleur
Gite et appartements meublés à Honfleur, à 2 mn de Honfleur, Au Vieux Bassin
Maison de vacances et gite à 5mn de Honfleur, 3 épis gites de France, Chantal Choquer Location
Gite dans un ancien pressoir à Pont Audemer, Le Pressoir du Châtel
Gites Genneville, Crêperie La Cabane et gites à la campagne, La Cabane
Gites et studios à Honfleur, 3 clés vacances à 2 pas du vieux Bassin de Honfleur, Gites Honfleur
Appartements Honfleur, studio ou duplex meublés en plein centre, Honfleur Appartements
Gites proximité Honfleur , accueil de groupe jusqu'à 14 personnes, La Conterie
Gites campagne Honfleur, gites normands de charme avec piscine, La Ferme de l'Eglise
Gites proche Honfleur, accueil de séminaires et évènements familiaux, Le Pressoir du Mesnil
Maison de vacances Honfleur, avec piscine et tennis à Honfleur, Les Oies Sauvages
Gites près de Honfleur, 4 clés vacances, Guide du Routard, accueil de 18 personnes, Le Val Marin
Appartements Honfleur, 4 appartements charme à 2 pas du Bassin, Appartements du Clos Vorin
Maison de vacances centre Honfleur, maison de charme avec jardin, Un Jardin en Ville
Gites 20 minutes de Honfleur en Normandie, 2 chaumières "gites de France", Les Chaumières

Bayeux
Liste des gites, chambres d'hotes et appartements sur Omaha Beach, location omaha beach
Liste des gites, chambres d'hotes et appartements de Bayeux et de sa région, location bayeux

Chambres d'hotes Bayeux, chambres d'hote de charme "Gite de France" sur les plages du débarquement, Le Moulin de Hard
Gites Bayeux, Gite de France, salle de réception Plages du Débarquement, Gites Marie
Appartements Omaha Beach, résidence Plages du DDAY, Résidence du Golf Omaha Beach

Lisieux
Liste des gites, chambres d'hotes et appartements du Pays d'Auge, location pays auge
Liste des gites, chambres d'hotes et appartements de Lisieux et de sa région, location lisieux

Gite Bonnebosq, Maison de vacances de charme dans le Pays d'Auge, La Vie de Cocagne

Etretat
Liste des gites, chambres d'hotes et appartements d'Etretat et de sa régio, location étretat

Gite Etretat, location en bord de mer et accueil de groupe, Le Domaine de la Marnière

Campings en Normandie Honfleur, Le Havre, Deauville
Camping Honfleur, camping 3 étoiles " Sites et Paysage", Camping la Catinière

Deauville
Liste des gites, chambres d'hotes et appartements de Deauville et de sa région, location deauville

Chambres d'hotes Deauville, 4 chambres "Fleurs de Soleil", maison Normande, La Longère
Chambres d'hotes Pont l'Evêque, chambres de charme "Fleurs de Soleil", Le Vieux Pressoir
Appartement Deauville, appartement chic et contemporain centre Deauville, La Compagnie des C
Appartements centre Deauville, studios et appartements dans une résidence hotelière, La Loggia

Cabourg
Liste des gites, chambres d'hotes et appartements de Cabourg et de sa région, location cabourg

Chambres d'hotes Cabourg, table d'hotes et chambres de charme, La Demeure de Manneville

Sud de La France
Liste des maisons et appartements de Corse, rent in Corsica
Liste des gites, chambres d'hotes et appartements à Cannes et sa région, location cannes


Golfs et Haras en Normandie, Deauville, Trouville
Liste des Golfs en Normandie, golf normandie
Golf Omaha Beach Port en Bessin
Haras en Normandie


Circuits et Aventures en Normandie
Circuits automobile en Normandie, Normandie Concept
Animations, olympiades, challenges, incentive, loisirs en Normandie, Duptrat Concept
Parcours acrobatique forestier, parc de loisirs accro branche, Reviers, Caen, West Adventure


Création, Hébergement et Référencement de sites WEB:
SAMM Agence Web, 4 rue Lucie Delarue Mardrus
BP 50073 14602 HONFLEUR Cedex

email: info@sammagenceweb.com Tél : 02 31 89 24 20

 

 

<% locations.Close() %>