<%
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=""
TAB31=" | "
TAB4= " | "
TAB42= " | "
TAB5=""
TAB525=" | "
TAB515=" | "
TAB516=" | "
TAB50=" | "
TAB51=" | "
TAB6= "
"
TAB7="
"
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" & ""
%>