Réservation des randonnées

<% Function Lundi() TAB591= "" End Function dim TAB5 TAB5= "" Function ParseBody(strText) strText = Replace(strText, Chr(13), "
") ParseBody = strText End Function Dim myConnString Dim myConnection Dim mySQL Dim objRS Dim Env Dim Env1 Dim Env2 Dim Env3 Dim Env4 Dim Env5 Dim Env6 Dim Env7 Dim Env8 Dim Env9 Dim Env10 Dim Env11 Dim Env12 Dim Env13 Dim Env14 Dim Env15 Dim Env16 Dim Env17 Dim Env18 Dim Envoi Dim total dim xurl dim compt dim deb dim fin dim objConn dim TAB1 dim TAB2 dim TAB3 dim TAB4 'dim TAB5 dim TAB51 dim TAB52 dim TAB53 dim TAB591 dim TAB6 dim TAB7 dim TAB8 dim TAB9 dim TAB10 dim TAB11 dim TAB12 dim TAB121 dim TAB13 dim TAB14 dim TAB15 dim souv dim TABLIEN dim saut2 saut2="
" dim V_AN dim V_MOIS dim M_MONTH dim kx dim w1 dim Ligne TAB1="

" 'TAB2="" '#B6B6B6 TAB2="
" TAB3="" TAB13=" " TAB14="
" TAB15="

" Const adOpenStatic = 3 Const adLockReadOnly = 1 Set objConn = Server.CreateObject("ADODB.Connection") Set objRS = Server.CreateObject("ADODB.Recordset") strDSN = "DSN=equipyr" objConn.Open strDSN 'response.write Request("D18") 'response.write saut2 Env1= TAB1 & TAB2 response.write Env1 dim M1 dim M2 dim M3 dim M4 dim M5 dim M6 dim M7 dim M8 dim M9 dim M10 dim M11 dim M12 dim V_C1 dim N_R1 dim N_C2 dim N_C3 dim ok dim E E= " €" dim Guide dim Temp_An dim Temp_Lien dim Temp_Coul Temp_An="2005" Temp_Lien ="'cde'" Temp_Lien= "'" & Request("D18") & "'" dim S_LIEN S_LIEN=Request("D18") Temp_Coul= Request("D19") if Temp_Lien <> "''" then strSQL = "SELECT * FROM BDBGET01 Where (LIEN LIKE " & Temp_Lien & ") order by annee,MDEP,JDEP "'ASC AND JDEP " if Temp_Lien = "''" then strSQL = "SELECT * FROM BDBGET01 order by annee,MDEP,JDEP "'ASC AND JDEP " M1="Destination" M2="Départ" M3="Arrivée" M4="Tarifs" M4=" € " M5="Reserv." M6="Repas" M7="Panier Repas" M8="Petit Déj" M9="Draps" M10="Jours" M11="Pays" dim PC dim PC2 dim PC3 PC="7%" PC2="20%" PC3="40%" 'TAB4="" & M1 & "" TAB4="" & M1 & "" 'TAB4="" & M1 & "" TAB5="" & M2 & "" TAB51="" & M10 & "" TAB52="" & M11 & "" TAB6="" & M3 & "" TAB7="" & M4 & "" TAB8="" & M5 & "" TAB9="" & M6 & "" TAB10="" & M7 & "" TAB11="" & M8 & "" TAB12="" & M9 & "" TAB121="" & "Guide" & "" Envoi=TAB3 & TAB121 & TAB4 & TAB51 & TAB52 & TAB5 & TAB6 & TAB7 & TAB8 & TAB9 & TAB10 & TAB11 & TAB12 Envoi=TAB3 & TAB121 & TAB4 & TAB51 & TAB52 & TAB5 & TAB6 & TAB7 & TAB8 Envoi=TAB3 & TAB4 & TAB51 & TAB52 & TAB5 & TAB6 & TAB7 & TAB8 response.write Envoi & TAB13 Ligne=0 Dim M29 Dim M39 objRS.Open strSQL, objConn, adOpenStatic,adLockReadOnly Do Until objRS.EOF = True M1=objRS("DESTINATIO").Value M2= " " & objRS("JDEP").Value & "/" & objRS("MDEP").Value' & E M2= " " & objRS("DEPART").Value 'M29= objRS("DEPART").Value M2= " " & objRS("JDEP").Value & "/" & objRS("MDEP").Value & "/" & objRS("annee").Value M3= " " & objRS("JARIV").Value & "/" & objRS("MARIV").Value & "/" & objRS("annee").Value' & E M4= " " & objRS("Divers").Value & E M10=" " & objRS("Calculs").Value '& " kms" M11= " " & objRS("Pays").Value '& " Kms" TAB4="" & M1 &"" TAB121="" & objRS("Nom").Value & "" Guide= objRS("Nom").Value w1=0 Ligne=Ligne+1 souv=Ligne TAB591= "" TAB5="" & M2 & " " & TAB591 & "" TAB51="" & M10 & "" TAB52="" & M11 & "" TAB591= "" TAB6="" & M3 & "" TAB591= "" TAB7="" & M4 & "" TAB591= "" N_C2= "Rando_" & Ligne TAB8="" & Ligne & "" N_C3= chr(34) & Cstr(N_C2) & " " & objRS("Nom").Value & " " & objRS("JDEP").Value & "/" & objRS("MDEP").Value & " -> " & objRS("JARIV").Value & "/" & objRS("MARIV").Value & " : " & objRS("Destinatio").Value & chr(34) TAB8="" & " -- " & "" DT=left(Temp_Coul,2) DM=mid(Temp_Coul,4,2) 'if CINT(DT)= CINT(objRS("JDEP").Value) and CINT(DM)= CINT(objRS("MDEP").Value) then 'TAB8="" & " -- " & "" 'TAB8="" & " -- " & "" '#FFB700 TAB8="" & " -- " & "" M29= objRS("JDEP").Value M39= objRS("MDEP").Value M49= objRS("Depart").Value 'end if Envoi=TAB3 & TAB121 & TAB4 & TAB51 & TAB52 & TAB5 & TAB6 & TAB7 & TAB8 '& TAB11 & TAB12 dim newtab dim newlien newlien=objRS("Lien").Value N_C2= "Guide_" & Ligne newtab= "" Envoi=TAB3 & TAB4 & TAB51 & TAB52 & TAB5 & TAB6 & TAB7 & TAB8 & newtab'& TAB11 & TAB12 response.write Envoi & TAB13 objRS.Movenext Loop objRS.close Env1= TAB14 & TAB15 response.write Env1 if Temp_Lien <> "''" then response.write Guide & " " & ligne & " randonnées" if Temp_Lien = "''" then response.write ligne & " randonnées" response.write saut2 response.write saut2 dim Rien if Rien="9" then response.write "D'autres randonnées proposées aux mêmes dates par d'autres guides :" response.write saut2 Env1= TAB1 & TAB2 response.write Env1 'if Temp_Lien <> "''" then strSQL = "SELECT * FROM BDBGET01 Where (LIEN LIKE " & Temp_Lien & ") order by annee,MDEP,JDEP "'ASC AND JDEP " 'if Temp_Lien = "''" then strSQL = "SELECT * FROM BDBGET01 order by annee,MDEP,JDEP "'ASC AND JDEP " 'strSQL = "SELECT * FROM bdbget01 WHERE MDEP >= M30 and JDEP>=M29 ORDER BY Depart " 'dim V_DATE as Date V_DATE=M39 & "/" & M29 & "/05 13:00:00 PM" 'Dim V_DATE dim somedate somedate="'2005, " & M39 & "," & M29 & "'" 'V_DATE = DateValue(M29) strSQL = "SELECT * FROM bdbget01 WHERE MDEP = cint(M39) ORDER BY Depart" 'M49 = M29 & "/" & M39 & "/" & "2005 3:00:00 PM" 'strSQL = "SELECT * FROM bdbget01 WHERE Depart >= DateValue(M49) ORDER BY Depart " strSQL = "SELECT * FROM bdbget01 WHERE Depart>= left(now,10) ORDER BY Depart " strSQL = "SELECT * FROM bdbget01 WHERE MDEP>= " & M39 & " AND JDEP> " & M29 & " AND annee>= " & "'2005'" & " ORDER BY Depart " strSQL = "SELECT * FROM bdbget01 WHERE Mdep>= " & M39 & " AND JDEP> " & M29 & " AND annee>= " & "'2005'" & " ORDER BY Depart " strSQL = "SELECT * FROM bdbget01 WHERE Mdep>= " & M39 & " AND annee>= " & "'2005'" & " ORDER BY Depart " 'response.write saut2 'response.write M49 'response.write saut2 'response.write saut2 'response.write now 'response.write saut2 M1="Destination" M2="Départ" M3="Arrivée" M4="Tarifs" M4=" € " M5="Reserv." M6="Repas" M7="Panier Repas" M8="Petit Déj" M9="Draps" M10="Jours" M11="Pays" 'dim PC 'dim PC2 'dim PC3 PC="7%" PC2="20%" PC3="30%" 'TAB4="" & M1 & "" TAB4="" & M1 & "" 'TAB4="" & M1 & "" TAB5="" & M2 & "" TAB51="" & M10 & "" TAB52="" & M11 & "" TAB6="" & M3 & "" TAB7="" & M4 & "" TAB8="" & M5 & "" TAB9="" & M6 & "" TAB10="" & M7 & "" TAB11="" & M8 & "" TAB12="" & M9 & "" TAB121="" & "Guide" & "" Envoi=TAB3 & TAB121 & TAB4 & TAB51 & TAB52 & TAB5 & TAB6 & TAB7 & TAB8 & TAB9 & TAB10 & TAB11 & TAB12 Envoi=TAB3 & TAB121 & TAB4 & TAB51 & TAB52 & TAB5 & TAB6 & TAB7 & TAB8 TAB44="" & "Centre" & "" Envoi=TAB3 & TAB4 & TAB44 & TAB51 & TAB52 & TAB5 & TAB6 & TAB7 & TAB8 'Envoi=TAB3 & TAB4 & TAB51 & TAB52 & TAB5 & TAB6 & TAB7 & TAB8 response.write Envoi & TAB13 'Ligne=0 dim KOMPT objRS.Open strSQL, objConn, adOpenStatic,adLockReadOnly Do Until objRS.EOF = True M1=objRS("DESTINATIO").Value M2= " " & objRS("JDEP").Value & "/" & objRS("MDEP").Value' & E M2= " " & objRS("DEPART").Value M2= " " & objRS("JDEP").Value & "/" & objRS("MDEP").Value & "/" & objRS("annee").Value M3= " " & objRS("JARIV").Value & "/" & objRS("MARIV").Value & "/" & objRS("annee").Value' & E M4= " " & objRS("Divers").Value & E M10=" " & objRS("Calculs").Value '& " kms" M11= " " & objRS("Pays").Value '& " Kms" TAB4="" & M1 &"" TAB121="" & objRS("Nom").Value & "" Guide= objRS("Nom").Value w1=0 Ligne=Ligne+1 KOMPT=KOMPT+1 souv=Ligne if KOMPT>=30 then exit do TAB591= "" TAB5="" & M2 & " " & TAB591 & "" TAB51="" & M10 & "" TAB52="" & M11 & "" TAB591= "" TAB6="" & M3 & "" TAB591= "" TAB7="" & M4 & "" TAB591= "" N_C2= "Rando_" & Ligne TAB8="" & Ligne & "" N_C3= chr(34) & Cstr(N_C2) & " " & objRS("Nom").Value & " " & objRS("JDEP").Value & "/" & objRS("MDEP").Value & " -> " & objRS("JARIV").Value & "/" & objRS("MARIV").Value & " : " & objRS("Destinatio").Value & chr(34) TAB8="" & " -- " & "" DT=left(Temp_Coul,2) DM=mid(Temp_Coul,4,2) 'if CINT(DT)= CINT(objRS("JDEP").Value) and CINT(DM)= CINT(objRS("MDEP").Value) then 'TAB8="" & " -- " & "" TAB8="" & " -- " & "" 'end if Envoi=TAB3 & TAB121 & TAB4 & TAB51 & TAB52 & TAB5 & TAB6 & TAB7 & TAB8 '& TAB11 & TAB12 'dim newtab 'dim newlien newlien=objRS("Lien").Value N_C2= "Guide_" & Ligne newtab= "" M1=objRS("Nom").Value TAB44="" & M1 & "" Envoi=TAB3 & TAB4 & TAB44 & TAB51 & TAB52 & TAB5 & TAB6 & TAB7 & TAB8 & newtab'& TAB11 & TAB12 'Envoi=TAB3 & TAB4 & TAB51 & TAB52 & TAB5 & TAB6 & TAB7 & TAB8 & newtab'& TAB11 & TAB12 response.write Envoi & TAB13 objRS.Movenext Loop objRS.close Env1= TAB14 & TAB15 response.write Env1 objConn.close end if %>

Pour réserver, merci de saisir les informations suivantes :

Nbre de personnes :

Nom :

Prénom :

Adresse :

Code Postal :

Commune :

Téléphone :

Pays :

Téléphone Portable :

Email :

(Champ requis)

Votre niveau équestre :

Message (si nécessaire) :

Si vous souhaitez recevoir un appel téléphonique pour plus de détails,
cliquer içi

Retour Ecrire au BGET


Pour réserver, merci de saisir les informations suivantes :
Nbre de personnes :	Nom :	Prénom :
Adresse :	Code Postal :	Commune :
Téléphone :	Pays :
Téléphone Portable :	Email : (Champ requis)
Votre niveau équestre :
	Message (si nécessaire) : Si vous souhaitez recevoir un appel téléphonique pour plus de détails, cliquer içi