Les Pyrénées Sans Frontières à Cheval Sentiers Transfrontaliers Pyrénéens D'autres bonnes adresses

 

<% 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="

" 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 'response.write TE1 & TE3 & "heb" & TE4 & "Hébergements : " & TE2 response.write TE1 & TE3 & "psf" & TE4 & "Réseau Pyrénées sans Frontières à Cheval : " & TE2 'Set objConn = Server.CreateObject("ADODB.Connection") 'Set objRS = Server.CreateObject("ADODB.Recordset") 'strDSN = "DSN=equipyr" 'objConn.Open strDSN strSQL = "SELECT * FROM parten Where (LIEN LIKE '%psf%') order by NOM Asc" 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 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