<% Dim myConnString Dim myConnection Dim mySQL Dim objRS Dim strBody Dim strBody1 Dim strBody2 Dim strBody3 Dim strBody4 Dim strBody5 Dim strBody6 Dim strBody7 Dim strBody8 Dim strBody9 Dim strBody10 Dim strBody11 Dim strBody12 Dim strBody13 Dim strBody14 Dim strBody15 Dim strBody16 Dim strBody17 Dim strBody18 Dim total dim xurl dim compt dim deb dim fin dim objConn dim TAB1 dim TAB2 dim TAB3 dim TAB31 dim TAB4 dim TAB42 dim TAB5 dim TAB50 dim TAB51 dim TAB525 dim TAB515 dim TAB516 dim TAB6 dim TAB7 dim TAB8 dim TABLIEN dim saut2 saut2="
" dim V_AN dim V_MOIS dim M_MONTH dim TE1 dim TE2 dim TE3 dim TE4 TE1="" V_AN= Request("S1") if V_AN="" then V_AN=CStr(Year(Now)) 'style="font-family: Arial; font-size: 10 pt" TAB1="" TAB2="" TAB3="" TAB4= "" TAB42= "" TAB5="" TAB6= "" TAB7="
" TAB31="" TAB525="" TAB515="" TAB516="" TAB50="" TAB51="
" Const adOpenStatic = 3 Const adLockReadOnly = 1 V_TEMP= Request("D1") V_MOT=Ucase(V_TEMP) if V_TEMP="" then ECRIT = "Services et Activités autour du Chemin des Bonshommes" if V_TEMP="0" then ECRIT = "Services et Activités autour du Chemin des Bonshommes" if V_TEMP="A" then ECRIT = "Ânes (randonnées avec ânes de bât)" if V_TEMP="B" then ECRIT = "Artisanat" if V_TEMP="C" then ECRIT = "Châteaux" if V_TEMP="D" then ECRIT = "Sports Aventure" if V_TEMP="E" then ECRIT = "Équitation (randonnées équestres sur le GR 107)" if V_TEMP="F" then ECRIT = "Festivals Foires" if V_TEMP="H" then ECRIT = "Hébergements" if V_TEMP="I" then ECRIT = "Tourisme industriel" if V_TEMP="K" then ECRIT = "Faune Flore" if V_TEMP="L" then ECRIT = "Escalade" if V_TEMP="M" then ECRIT = "Musées" if V_TEMP="N" then ECRIT = "Nautisme Lac Rivière" if V_TEMP="O" then ECRIT = "Parapente" if V_TEMP="P" then ECRIT = "Produits fermiers locaux" if V_TEMP="R" then ECRIT = "Randonnées pédestres accompagnées" if V_TEMP="S" then ECRIT = "Ski de fond ou de piste" if V_TEMP="T" then ECRIT = "Thermalisme Forme" if V_TEMP="V" then ECRIT = "Vélo VTT" response.write TE1 & TE3 & "heb" & TE4 & ECRIT & TE2 Set objConn = Server.CreateObject("ADODB.Connection") Set objRS = Server.CreateObject("ADODB.Recordset") strDSN = "DSN=equipyr" objConn.Open strDSN strSQL = "SELECT * FROM GR107 order by Etape_NS Asc" 'strSQL="SELECT * FROM GR107 WHERE (Activ LIKE '%::H::%')" 'Where ACTIV LIKE ' & H & '"' vide= " " vide4= " -> " vide5= "       " vide6="" vide2= "/" dim F1 dim F2 F1="

" F2= "

" dim M2 objRS.Open strSQL, objConn, adOpenStatic,adLockReadOnly Do Until objRS.EOF = True M1= F1 & objRS("Enseigne").Value & F2 if objRS("STP").Value <> "non" then 'F2= vide6 & "

" drap=0 for x=1 to len(objRS("ACTIV").Value) lect=right(left(objRS("ACTIV").Value,x),1) if lect=V_MOT then drap=1 next 'if objRS("ACTIV").Value = V_MOT then if drap=1 then strBody1= TAB1 & TAB2 & TAB3 & M1 & TAB31 M2= F1 & objRS("commune").Value & F2 'F2= "

" 'response.write objRS("commune").Value strBody1= strBody1 & TAB516 & M2 & TAB51 strBody5= TAB525 & F1 & "" & "En savoir plus" & "" & F2 & TAB51 TABLIEN = F1 & "" & "e-mail" & "" & F2 strBody6= TAB516 & TABLIEN & TAB51 strBody7= TAB515 & F1 & objRS("teleph").Value & F2 & TAB51 strBody17= TAB6 & TAB7 strBody18=strBody1 & strbody5 & strBody6 & strbody7 & strBody17 response.write strBody18 end if end if objRS.Movenext Loop objRS.close strBody1= TAB1 & TAB2 & TAB3 & "" & TAB31 strBody18=strBody1 & strBody17 response.write strBody18 response.write strBody18 response.write strBody18 objRS.Open strSQL, objConn, adOpenStatic,adLockReadOnly Do Until objRS.EOF = True M1= F1 & objRS("Enseigne").Value & F2 if objRS("STP").Value = "non" then 'F2= "

" if objRS("ACTIV").Value = V_MOT then strBody1= TAB1 & TAB2 & TAB3 & M1 & TAB31 M2= F1 & objRS("commune").Value & F2 strBody1= strBody1 & TAB516 & M2 & TAB51 strBody5= TAB525 & F1 & "" & "En savoir plus" & "" & F2 & TAB51 'TABLIEN = F1 & "" & "e-mail" & "" & F2 TABLIEN = F1 & "" & "e-mail" & "" & F2 strBody6= TAB516 & TABLIEN & TAB51 strBody7= TAB515 & F1 & objRS("teleph").Value & F2 & TAB51 strBody17= TAB6 & TAB7 'strBody18=strBody1 & strbody5 & strBody6 & strbody7 & strBody17 strBody18=strBody1 & strbody7 & strBody17 response.write strBody18 end if end if objRS.Movenext Loop objRS.close objConn.close response.write saut2 response.write "

" & "" & "Haut de page" & "" %>