Les bonnes
adresses des Guides Équestres Transpyrénéens : Les bonnes
adresses des Guides Équestres Transpyrénéens :
| Les Pyrénées Sans Frontières à Cheval | Sentiers Transfrontaliers Pyrénéens | D'autres bonnes adresses |
Trouvez aussi de bonnes adresses sur la carte des Pyrénées
<%
Function ParseBody(strText)
strText = Replace(strText, Chr(13), "")
ParseBody = strText
End Function
Dim myConnString
Dim myConnection
Dim mySQL
Dim objRS
Dim strBody
Dim strBody1
dim compt
dim objConn
dim saut2
saut2="
"
Const adOpenStatic = 3
Const adLockReadOnly = 1
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")
strDSN = "DSN=equipyr"
objConn.Open strDSN
'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="
| " TAB31=" | " TAB4= "![](images/cabalrojo2.JPG") | "
TAB42= "![](flechd2.jpg") | "
TAB5="" TAB525=" | " TAB515=" | " TAB516=" | " TAB50=" | " TAB51=" | " TAB6= "
"
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 strBody1= TAB1 & TAB2 & TAB3 & M1 & TAB31 M2= F1 & objRS("PRENOM").Value & vide & objRS("NOM").Value & F2 strBody1= strBody1 & TAB516 & M2 & TAB51 strBody5= TAB525 & F1 & "" & "En savoir plus" & "" & F2 & TAB51 'TABLIEN = F1 & "" & "e-mail" & "" & F2 TABLIEN = F1 & objRS("VILLE").Value & F2 strBody6= TAB516 & TABLIEN & TAB51 'strBody7= TAB515 & F1 & objRS("VILLE").Value & F2 & TAB51 strBody17= TAB6 & TAB7 strBody18=strBody1 & strbody5 & strBody6 & strbody7 & strBody17 response.write strBody18 'end if objRS.Movenext Loop objRS.close strBody1= TAB1 & TAB2 & TAB3 & "" & TAB31 strBody18=strBody1 & strBody17 response.write strBody18 response.write strBody18 response.write strBody18 response.write TE1 & TE3 & "stp" & TE4 & "Réseau Sentiers Transfrontaliers Pyrénéens : " & TE2 strSQL = "SELECT * FROM parten Where (LIEN LIKE '%stp%') order by NOM Asc" objRS.Open strSQL, objConn, adOpenStatic,adLockReadOnly Do Until objRS.EOF = True M1= F1 & objRS("Enseigne").Value & F2 strBody1= TAB1 & TAB2 & TAB3 & M1 & TAB31 M2= F1 & objRS("PRENOM").Value & vide & objRS("NOM").Value & F2 strBody1= strBody1 & TAB516 & M2 & TAB51 strBody5= TAB525 & F1 & "" & "En savoir plus" & "" & F2 & TAB51 'TABLIEN = F1 & "" & "e-mail" & "" & F2 TABLIEN = F1 & objRS("VILLE").Value & F2 strBody6= TAB516 & TABLIEN & TAB51 'strBody7= TAB515 & F1 & objRS("VILLE").Value & F2 & TAB51 strBody17= TAB6 & TAB7 strBody18=strBody1 & strbody5 & strBody6 & strbody7 & strBody17 response.write strBody18 'end if objRS.Movenext Loop objRS.close strBody1= TAB1 & TAB2 & TAB3 & "" & TAB31 strBody18=strBody1 & strBody17 response.write strBody18 response.write strBody18 response.write strBody18 response.write TE1 & TE3 & "tout" & TE4 & "D'autres bonnes adresses : " & TE2 strSQL = "SELECT * FROM parten order by NOM Asc" objRS.Open strSQL, objConn, adOpenStatic,adLockReadOnly Do Until objRS.EOF = True M1= F1 & objRS("Enseigne").Value & F2 strBody1= TAB1 & TAB2 & TAB3 & M1 & TAB31 M2= F1 & objRS("PRENOM").Value & vide & objRS("NOM").Value & F2 strBody1= strBody1 & TAB516 & M2 & TAB51 strBody5= TAB525 & F1 & objRS("ADRESSE1") & F2 & TAB51 if Len(objRS("LIEN"))>0 then strBody5= TAB525 & F1 & "" & "En savoir plus" & "" & F2 & TAB51 'strBody5= TAB525 & F1 & Len(objRS("LIEN")) & F2 & TAB51 'TABLIEN = F1 & "" & "e-mail" & "" & F2 TABLIEN = F1 & objRS("VILLE").Value & F2 strBody6= TAB516 & TABLIEN & TAB51 'strBody7= TAB515 & F1 & objRS("VILLE").Value & F2 & TAB51 strBody17= TAB6 & TAB7 strBody18=strBody1 & strbody5 & strBody6 & strbody7 & strBody17 response.write strBody18 'end if objRS.Movenext Loop objRS.close %>
| Les Pyrénées Sans Frontières à Cheval | Sentiers Transfrontaliers Pyrénéens | D'autres bonnes adresses |