<% 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 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 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 V_MOIS=0 M_MONTH= Request("D1") V_AN= Request("S1") if V_AN="" then V_AN=CStr(Year(Now)) if M_MONTH ="janvier" Then V_MOIS=1 if M_MONTH ="fevrier" Then V_MOIS=2 if M_MONTH ="mars" Then V_MOIS=3 if M_MONTH ="avril" Then V_MOIS=4 if M_MONTH ="mai" Then V_MOIS=5 if M_MONTH ="juin" Then V_MOIS=6 if M_MONTH ="juillet" Then V_MOIS=7 if M_MONTH ="aout" Then V_MOIS=8 if M_MONTH ="septembre" Then V_MOIS=9 if M_MONTH ="octobre" Then V_MOIS=10 if M_MONTH ="novembre" Then V_MOIS=11 if M_MONTH ="decembre" Then V_MOIS=12 if V_MOIS=0 then V_MOIS=Month(Now) if V_MOIS=1 then M_MONTH ="janvier" if V_MOIS=2 then M_MONTH ="fevrier" if V_MOIS=3 then M_MONTH ="mars" if V_MOIS=4 then M_MONTH ="avril" if V_MOIS=5 then M_MONTH ="mai" if V_MOIS=6 then M_MONTH ="juin" if V_MOIS=7 then M_MONTH ="juillet" if V_MOIS=8 then M_MONTH ="aout" if V_MOIS=9 then M_MONTH ="septembre" if V_MOIS=10 then M_MONTH ="octobre" if V_MOIS=11 then M_MONTH ="novembre" if V_MOIS=12 then M_MONTH ="decembre" end if dim V_JOUR V_JOUR=0 V_JOUR=(Request("T1")*2)/2 if V_JOUR=0 then V_JOUR=4 if V_JOUR<10 then response.write "Randonnées de " & V_JOUR & " ou " & V_JOUR+1 & " jours en " & M_Month & " " & V_AN if V_JOUR=10 then response.write "Randonnées de " & V_JOUR & " jours ou plus en " & M_Month & " " & V_AN 'response.write saut2 'response.write V_MOIS 'response.write saut2 'response.write M_MONTH 'response.write saut2 TAB1="" TAB2="" TAB3="" TAB4= "" TAB5="" TAB6= "" TAB7="
" TAB31="" TAB525="" TAB515="" TAB516="" TAB50="" TAB51="
" 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 BDBGET01 ORDER BY JDEP ASC" objRS.Open strSQL, objConn, adOpenStatic,adLockReadOnly theDate=Now dim M_TODAY M_TODAY = month(theDate) Do Until objRS.EOF = True if objRS("annee").Value=V_AN and objRS("MDEP").Value=V_MOIS and objRS("PAYS").Value<>"Autre" and objRS("CALCULS").Value =V_JOUR then total=total+1 objRS.Movenext loop objRS.close ' dim E_MOIS 'E_MOIS="Août" 'response.write " Les randonnées en " & E_MOIS & " " & V_AN & " :" response.write saut2 dim J1 dim J2 dim M1 dim M2 objRS.Open strSQL, objConn, adOpenStatic,adLockReadOnly vide= " " vide4= " -> " vide5= "       " vide6="" vide2= "/" Do Until objRS.EOF = True if objRS("annee").Value=V_AN and objRS("MDEP").Value=V_MOIS and objRS("PAYS").Value<>"Autre" and objRS("CALCULS").Value=V_JOUR then compt=compt+1 J1=objRS("JDEP").Value J2=len(J1) if J2<2 then J1="0" & J1 M1=objRS("MDEP").Value M2=len(M1) if M2<2 then M1="0" & M1 strBody1= TAB1 & TAB2 & TAB3 & J1 & "/" & M1 & TAB31 J1=objRS("JARIV").Value J2=len(J1) if J2<2 then J1="0" & J1 M1=objRS("MARIV").Value M2=len(M1) if M2<2 then M1="0" & M1 strBody2= TAB4 & TAB5 & J1 & "/" & M1 & TAB51 strBody3= TAB50 & "... " & objRS("CALCULS").Value & " jours" & TAB51 strBody4= TAB525 & objRS("Nom").Value & TAB51 strBody5= TAB525 & objRS("DESTINATIO").Value & TAB51 TABLIEN = "" & "En savoir plus" & "" strBody6= TAB516 & TABLIEN & TAB51 strBody7= TAB515 & objRS("etranger").Value & TAB51 strBody17= TAB6 & TAB7 strBody18=strBody1 & strBody2 & strBody3 & strBody4 & strBody5 & strBody6 & strBody7 & strBody17 response.write strBody18 end if objRS.Movenext Loop objRS.close objRS.Open strSQL, objConn, adOpenStatic,adLockReadOnly 'Suite if V_Jour<>10 then V_JOUR=V_JOUR+1 Do Until objRS.EOF = True if objRS("annee").Value=V_AN and objRS("MDEP").Value=V_MOIS and objRS("PAYS").Value<>"Autre" and objRS("CALCULS").Value =V_JOUR then 'if V_Jour=12 AND objRS("annee").Value=V_AN and objRS("MDEP").Value=V_MOIS and objRS("PAYS").Value<>"Autre" and objRS("CALCULS").Value >=V_JOUR then compt=compt+1 total=total+1 J1=objRS("JDEP").Value J2=len(J1) if J2<2 then J1="0" & J1 M1=objRS("MDEP").Value M2=len(M1) if M2<2 then M1="0" & M1 strBody1= TAB1 & TAB2 & TAB3 & J1 & "/" & M1 & TAB31 J1=objRS("JARIV").Value J2=len(J1) if J2<2 then J1="0" & J1 M1=objRS("MARIV").Value M2=len(M1) if M2<2 then M1="0" & M1 strBody2= TAB4 & TAB5 & J1 & "/" & M1 & TAB51 strBody3= TAB50 & "... " & objRS("CALCULS").Value & " jours" & TAB51 strBody4= TAB525 & objRS("Nom").Value & TAB51 strBody5= TAB525 & objRS("DESTINATIO").Value & TAB51 TABLIEN = "" & "En savoir plus" & "" strBody6= TAB516 & TABLIEN & TAB51 strBody7= TAB515 & objRS("etranger").Value & TAB51 strBody17= TAB6 & TAB7 strBody18=strBody1 & strBody2 & strBody3 & strBody4 & strBody5 & strBody6 & strBody7 & strBody17 response.write strBody18 end if objRS.Movenext Loop end if if V_Jour>=10 then 'V_JOUR=V_JOUR+1 Do Until objRS.EOF = True 'if objRS("annee").Value=V_AN and objRS("MDEP").Value=V_MOIS and objRS("PAYS").Value<>"Autre" and objRS("CALCULS").Value =V_JOUR then if objRS("annee").Value=V_AN and objRS("MDEP").Value=V_MOIS and objRS("PAYS").Value<>"Autre" and objRS("CALCULS").Value >=V_JOUR then compt=compt+1 total=total+1 J1=objRS("JDEP").Value J2=len(J1) if J2<2 then J1="0" & J1 M1=objRS("MDEP").Value M2=len(M1) if M2<2 then M1="0" & M1 strBody1= TAB1 & TAB2 & TAB3 & J1 & "/" & M1 & TAB31 J1=objRS("JARIV").Value J2=len(J1) if J2<2 then J1="0" & J1 M1=objRS("MARIV").Value M2=len(M1) if M2<2 then M1="0" & M1 strBody2= TAB4 & TAB5 & J1 & "/" & M1 & TAB51 strBody3= TAB50 & "... " & objRS("CALCULS").Value & " jours" & TAB51 strBody4= TAB525 & objRS("Nom").Value & TAB51 strBody5= TAB525 & objRS("DESTINATIO").Value & TAB51 TABLIEN = "" & "En savoir plus" & "" strBody6= TAB516 & TABLIEN & TAB51 strBody7= TAB515 & objRS("etranger").Value & TAB51 strBody17= TAB6 & TAB7 strBody18=strBody1 & strBody2 & strBody3 & strBody4 & strBody5 & strBody6 & strBody7 & strBody17 response.write strBody18 end if objRS.Movenext Loop end if if total>1 then response.write total & " randonnées" if total=1 then response.write total & " randonnée" if total=0 then response.write "Pas de randonnées aux dates demandées" objRS.close %>