" texteinfo2 = "Nous avons également sur place un chantier d'aménagement et de réparations ( voir chapitreAménagement plus loin ). Cela permet à nos acheteurs de voir et acheter des bateaux à différents stades de conversion.

" texteinfo3 = "Nous fournissons pour chaque bateau une fiche de Renseignements avec photo, description du bateau, plan, et inventaire technique. Pour recevoir ces fiches, remplissez la demande de renseignements en essayant de nous décrire le type de bateau que vous recherchez. Nous vous enverrons par courrier une sélection de Fiches Techniques des bateaux à vendre.

" texteinfo4 = "Liste des bateaux actuellement en vente et pour la plupart visibles à H20 :

" Texte_Version = "Vente de Bateaux" Lien_Version = "broke.asp?version=GB" Img_Version = "dgb.gif" Alt_Version = "English" codelangue = 1 Img_Bandeau = "bandeau1.gif" Champ_Type = "Type" Case "GB" version = "GB" textecontact = "H2O - Port de Plaisance - 21170 St Jean de Losne [France] - h2o@h2ofrance.com" texteinfo1 = "H2O is the leading broker in continental Europe for canal boats and barges. We are unique in that we have about 30 boats on site, and so in a few hours buyers can see a range of sizes and shapes without spending a week on the road.

" texteinfo2 = "We also have a shipyard described on our Conversion page. This also enables buyers to see boats in various stages of conversion. Many of these boats are owned by us, and can be bought and fitted out to the buyers specifications.

" texteinfo3 = "For each boat we have an information sheet with layout plans, photos, technical description and inventory. Just fill in the form on our home page and we will send you details of the boats that we have currently for sale. Please try and specify the type of boat that you are looking for.

" texteinfo4 = "Our current brokerage list includes the following mostly all moored at H2O

" Texte_Version = "Brokerage. Canal barges and boats for sale" Lien_Version = "broke.asp?version=FR" Img_Version = "dfr.gif" Alt_Version = "Français" codelangue = 2 Img_Bandeau = "bandeau.gif" Champ_Type = "TypeGB" End Select %>

<%=texte_version%>

<% Set conn = server.createobject ("adodb.connection") conn.open "dsn=h2o" req_type_bateau="SELECT * FROM TTypeBateau WHERE ID IN (SELECT DISTINCT IDType From TBateau)" set type_bateau = conn.execute (req_type_bateau) do while not type_bateau.eof %> <% req_bateau="select ID,Nom,Longueur,Largeur,Annee,Prixff,IDType from TBateau where IDType=" & type_bateau("ID") & " AND DateSortie IS NULL" 'req_bateau="select ID,Nom,Longueur,Largeur,Annee,Prixff,IDType from TBateau where IDType=" & type_bateau("ID") & " AND LienWeb=1" & " AND 'DateSortie IS NULL" set bateau = conn.execute (req_bateau) do while not bateau.eof IDBateau = Bateau("ID") lien_bateau = "affichebateau.asp?version=" & version & "&ID=" & IDBateau req_inventaire="select Description,InventaireConfort from TInventaire where IDLangue=" & codelangue & "and IDBateau=" & IDBateau set inventaire = conn.execute(req_inventaire) %> <% bateau.movenext loop %> <% type_bateau.movenext loop %>

<%=texteinfo1%><%=texteinfo2%><%=texteinfo3%><%=texteinfo4%>
	<%=type_bateau(Champ_Type)%>
<%=Bateau("Nom")%> <% if Bateau("Annee") <> 0 then %>(<%=Bateau("Annee")%>)<% end if %> <% if Bateau("Longueur") <> 0 then %> <%=Bateau("Longueur")%> m x <% end if %> <% if Bateau("Largeur") <> 0 then %> <%=Bateau("Largeur") %> m <% end if %> <% if Bateau("Prixff") <> 0 then %><%=formatnumber(Bateau("Prixff"),0,0,0,-1)%> F.F. <% end if %>	<% if not inventaire.eof then%> <%=inventaire("Description") %>.<%=inventaire("InventaireConfort") %>. <% end if %>
Ces informations ne sont pas garanties par H2O. Les acheteurs sont invités à vérifier eux-mêmes leur exactitude.

<% if version = "FR" then %> <% else %> <%end if %>

<%=textecontact%>