• Calculez le budget de votre randonnée sur le Chemin des Bonshommes :
    (Sélectionner d'abord les gîtes, puis pour chacun, l'hébergement et les repas)       

<% 'onload="javascript:autoSize() dim TAB5 TAB5= "" 'response.write "

" & "xxxxxxxxxx" & "

" 'TAB5 = "

" & "xxxxxxxxxx" & "

" 'for x= 1 to 5 'response.write TAB5 'next 'onload="javascript:autoSize()" Function ParseBody(strText) strText = Replace(strText, Chr(13), "
") ParseBody = strText End Function Dim myConnString Dim myConnection Dim mySQL Dim objRS Dim Env Dim Env1 Dim Env2 Dim Env3 Dim Env4 Dim Env5 Dim Env6 Dim Env7 Dim Env8 Dim Env9 Dim Env10 Dim Env11 Dim Env12 Dim Env13 Dim Env14 Dim Env15 Dim Env16 Dim Env17 Dim Env18 Dim Envoi Dim total dim xurl dim compt dim deb dim fin dim objConn dim TAB1 dim TAB2 dim TAB3 dim TAB4 'dim TAB5 dim TAB51 dim TAB52 dim TAB53 dim TAB591 dim TAB6 dim TAB7 dim TAB8 dim TAB9 dim TAB10 dim TAB11 dim TAB12 dim TAB121 dim TAB13 dim TAB14 dim TAB15 dim souv dim TABLIEN dim saut2 saut2="
" dim V_AN dim V_MOIS dim M_MONTH dim kx dim w1 dim Ligne 'V_AN= Request("S1") 'if V_AN="" then V_AN=CStr(Year(Now)) TAB1="

" TAB2="" TAB3="" TAB13=" " TAB14="
" TAB15="
" Const adOpenStatic = 3 Const adLockReadOnly = 1 Set objConn = Server.CreateObject("ADODB.Connection") Set objRS = Server.CreateObject("ADODB.Recordset") strDSN = "DSN=equipyr" objConn.Open strDSN strSQL = "SELECT * FROM GR107 Where (Activ LIKE '%H%') order by Etape_NS Asc" Env1= TAB1 & TAB2 response.write Env1 dim M1 dim M2 dim M3 dim M4 dim M5 dim M6 dim M7 dim M8 dim M9 dim M10 dim M11 dim M12 dim V_C1 dim N_R1 dim N_C2 dim ok dim E E= " €" M1="Gîte" M2="Chambre" M3="Dortoir" M4="1/2 Pension Chambre" M5="1/2 Pension Dortoir" M6="Repas" M7="Panier Repas" M8="Petit Déj" M9="Draps" M10="Distance" M11="Sur GR 107" dim PC dim PC2 dim PC3 PC="7%" PC2="10%" PC3="20%" 'TAB4="" & M1 & "" TAB4="" & M1 & "" TAB5="" & M2 & "" TAB51="" & M10 & "" TAB52="" & M11 & "" TAB6="" & M3 & "" TAB7="" & M4 & "" TAB8="" & M5 & "" TAB9="" & M6 & "" TAB10="" & M7 & "" TAB11="" & M8 & "" TAB12="" & M9 & "" TAB121="" & "Commune" & "" Envoi=TAB3 & TAB121 & TAB4 & TAB51 & TAB52 & TAB5 & TAB6 & TAB7 & TAB8 & TAB9 & TAB10 & TAB11 & TAB12 response.write Envoi & TAB13 Ligne=-1 objRS.Open strSQL, objConn, adOpenStatic,adLockReadOnly Do Until objRS.EOF = True if objRS("STP").Value<>"oui" then M1=objRS("Enseigne").Value if objRS("STP").Value ="oui" then M1 = "" & objRS("Enseigne").Value & "" M2= " " & formatnumber(objRS("chambre").Value,2) & E M3= " " & formatnumber(objRS("dortoir").Value,2) & E M4= " " & formatnumber(objRS("pension").Value,2) & E M5= " " & formatnumber(objRS("dp_dortoir").Value,2) & E M6= " " & formatnumber(objRS("restauration").Value,2) & E M7= " " & formatnumber(objRS("panierrepas").Value,2) & E M8= " " & formatnumber(objRS("petitdej").Value,2) & E M9= " " & formatnumber(objRS("draps").Value,2) & E M10=" " & objRS("KmsN").Value & " kms" M11= " " & "à " & objRS("Prox").Value & " Kms" N_R1="R" & objRS("N°").Value ok=CStr(objRS("N°").Value) TAB4="" & M1 & " " & " " & " " & "" N_C2="C" & objRS("N°").Value & "1" w1=0 if objRS("chambre").Value<>99 then w1=w1+1 if objRS("chambre").Value=99 then w1=0 Ligne=Ligne+1 souv=Ligne TAB591= "" if objRS("chambre").Value<>99 then Ligne=Ligne+1: TAB5="" & M2 & " " & TAB591 & "" if objRS("chambre").Value=99 then Ligne=Ligne+1:TAB5="" & " " & "" if objRS("KmsN").Value> 0 then TAB51="" & M10 & "" if objRS("KmsN").Value= 0 then TAB51="" & " " & "" if objRS("Prox").Value> 0 then TAB52="" & M11 & "" if objRS("Prox").Value= 0 then TAB52="" & " Oui" & "" N_C2="C" & objRS("N°").Value & "2" if objRS("dortoir").Value>0 then w1=2 if objRS("dortoir").Value=0 then w1=0 TAB591= "" if objRS("dortoir").Value>0 then Ligne=Ligne+1: TAB6="" & M3 & TAB591 & "" if objRS("dortoir").Value=0 then Ligne=Ligne+1:TAB6="" & " " & "" N_C2="C" & objRS("N°").Value & "3" if objRS("pension").Value>0 then w1=3 if objRS("pension").Value=0 then w1=0 TAB591= "" if objRS("pension").Value>0 then Ligne=Ligne+1:TAB7="" & M4 & TAB591 & "" if objRS("pension").Value=0 then Ligne=Ligne+1:TAB7="" & " " & "" N_C2="C" & objRS("N°").Value & "4" if objRS("dp_dortoir").Value>0 then w1=4 if objRS("dp_dortoir").Value=0 then w1=0 TAB591= "" if objRS("dp_dortoir").Value>0 then Ligne=Ligne+1:TAB8="" & M5 & TAB591 & "" if objRS("dp_dortoir").Value=0 then Ligne=Ligne+1:TAB8="" & " " & "" N_C2="C" & objRS("N°").Value & "5" if objRS("restauration").Value>0 then w1=5 if objRS("restauration").Value=0 then w1=5 TAB591= "" if objRS("restauration").Value>0 then Ligne=Ligne+1:TAB9="" & M6 & TAB591 & "" if objRS("restauration").Value=0 then Ligne=Ligne+1:TAB9="" & " " & "" N_C2="C" & objRS("N°").Value & "6" if objRS("panierrepas").Value>0 then w1=6 if objRS("panierrepas").Value=0 then w1=6 TAB591= "" if objRS("panierrepas").Value>0 then Ligne=Ligne+1:TAB10="" & M7 & TAB591 & "" if objRS("panierrepas").Value=0 then Ligne=Ligne+1:TAB10="" & " " & "" N_C2="C" & objRS("N°").Value & "7" if objRS("petitdej").Value>0 then w1=7 if objRS("petitdej").Value=0 then w1=7 TAB591= "" if objRS("petitdej").Value>0 then Ligne=Ligne+1:TAB11="" & M8 & TAB591 & "" if objRS("petitdej").Value=0 then Ligne=Ligne+1:TAB11="" & " " & "" N_C2="C" & objRS("N°").Value & "8" if objRS("draps").Value>0 then w1=8 if objRS("draps").Value=0 then w1=0 TAB591= "" if objRS("draps").Value>0 then Ligne=Ligne+1:TAB12="" & M9 & TAB591 & "" if objRS("draps").Value=0 then Ligne=Ligne+1:TAB12="" & " " & "" TAB121="" & objRS("commune").Value & "" Envoi=TAB3 & TAB121 & TAB4 & TAB51 & TAB52 & TAB5 & TAB6 & TAB7 & TAB8 & TAB9 & TAB10 & TAB11 & TAB12 response.write Envoi & TAB13 objRS.Movenext Loop objRS.close Env1= TAB14 & TAB15 response.write Env1 %>
  Carte Accueil
Nombre de personnes : Date de départ (jj mm aaaa): Jour Mois Année