<%@ language = "Jscript"%> <% //va chercher la langue //varLangue = Request.form("langue"); varLangue = Request.QueryString("langue"); //transforme l'information obtenue à la page précédente en mots var varChaletID; var nomChalet; //varChaletID = Request.form("chaletID"); varChaletID = Request.QueryString("chaletID"); if (varChaletID == 1) {nomChalet = "Chanterelle";} else if (varChaletID == 6) {nomChalet = "Chalet Bleu";} else if (varChaletID == 2) {nomChalet = "Paradis";} else if (varChaletID == 4) {nomChalet = "Petit Poucet";} else if (varChaletID == 5) {nomChalet = "Pin Blanc";} else if (varChaletID == 3) {nomChalet = "Bruyères";} else {} %>
 
<% /******************************************************************************* ***************************déclaration de variables globales ******************* *******************************************************************************/ var today = new Date(); function montharr(m0, m1, m2, m3, m4, m5, m6, m7, m8, m9, m10, m11){ this[0] = m0; this[1] = m1; this[2] = m2; this[3] = m3; this[4] = m4; this[5] = m5; this[6] = m6; this[7] = m7; this[8] = m8; this[9] = m9; this[10] = m10; this[11] = m11; } var monthNames = "Janvier Février Mars Avril Mai Juin Juillet Août SeptembreOctobre Novembre Décembre Janvier Février Mars Avril Mai Juin Juillet "; var monthNamesAng = "January February March April May June July August SeptemberOctober November December January February March April May June July "; var today = new Date(); var thisDay; var moisLettre //gère les années bisextiles year = today.getYear(); if (year < 2000) // Y2K Fix, Isaac Powell year = year + 1900; // http://onyx.idbsu.edu/~ipowell // p2p-dv 2003-12-16 Changed following statement since it did not work in its original state. // To be tested again in 2005 // p2p-dv 2004-01-09 Problem with November through December of year before Leap year. // Must revise code in the future to correct. // Problem is that since calendars are evalutated before all 3 months are posted, the // current year of the first month is evaluated, but not the remaining months. function nDays(year){ if (year % 4 == 0) var monthDays = new montharr(31, 29, 31, 30, 31, 30, 31, 31, 30,31, 30, 31) else var monthDays = new montharr(31, 28, 31, 30, 31, 30, 31, 31, 30,31, 30, 31); return monthDays[moisPresent]; } thisDay = today.getDate(); //nDays = monthDays[today.getMonth()]; firstDay = today; firstDay.setDate(1); testMe = firstDay.getDate(); if (testMe == 2) firstDay.setDate(0); startDay = firstDay.getDay(); moisPresent = today.getMonth(); moisPresentBD = moisPresent+1; if (varLangue=="ang") {%>Today :  <% //écrire la date d'aujourd'hui Response.write(monthNamesAng.substring(moisPresent * 9, (moisPresent + 1) * 9)); //aller chercher et écrire le mois %> <% Response.write(thisDay);%>  <% Response.write(year); } %> <% if (varLangue=="fr") {%>Date d'aujourd'hui :  <% //écrire la date d'aujourd'hui Response.write(thisDay);%>  <% Response.write(monthNames.substring(moisPresent * 9, (moisPresent + 1) * 9)); //aller chercher et écrire le mois %> <% Response.write(year); }%>  
<% //connexion à la BD var oConn; var filePath; var oRs; var oRs2; var moisCourant; var monSQL; var monSQL2; filePath = Session("Chalets"); //response.write("file" + filePath); oConn = Server.CreateObject("ADODB.Connection"); oConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+filePath); %>
<%if (varLangue=="ang") {%>Availability for Chalet <%} if (varLangue=="fr") {%>Disponibilités du Chalet <%}Response.write(nomChalet)%>

<%if (varLangue=="fr") {%>Réserver<%}%> <%if (varLangue=="ang") {%>Reserve<%}%>
<%if (varLangue=="fr") {%> Légende du calendrier et modalités de réservation<%}%> <%if (varLangue=="ang") {%> Calender legend and reservation condition<%}%>


<% /******************************** Début du mois ************************************** ********************************* Début du mois ************************************** ********************************* Début du mois *************************************/ var confirm=0; //vérifie si la fin est d'une réservation est le début d'une autre. c'est une variable booléenne //var qui dit si on est entre la date d'arrivée et de départ si =0, en noir, si =1, en rouge, si =2 en jaune var y=5 //valeur inutile //requête qui regarde s'il y a un enregistrement qui débute avant le moisPrésent et termine pendant ou après celui-ci. monSQL4 = "SELECT LocationApprouve FROM tblLocation T1, tblChalet T2 WHERE MoisArrive < "+moisPresentBD+" AND MoisDepart >= "+moisPresentBD+" AND AnneeDepart="+year+" AND T1.ChaletID = T2.ChaletID AND T2.ChaletID="+varChaletID+" AND LocationApprouve<>'3';" oRs4 = oConn.Execute(monSQL4); if (oRs4.Bof == true && oRs4.Eof == true) {y=0;} else {if (oRs4.fields(0).value==0) {y=2; confirm=confirm+1;} if (oRs4.fields(0).value==1 || oRs4.fields(0).value==2) {y=1; confirm=confirm+1;} } //boucle qui génère chacun des mois var app=0; //si app==1 on écrit le AM à cet endroit, sinon, on l'écrit ailleur. Ça //gère les cases où il faut écrire AM et PM au même endroit. var coul=0; //variable qui garde e mémoire pendant un tour si la location est approuvée. //boucle qui dit de générer 7 mois for (var j = 1; j <= 7; ++j) { %>
<%} if (varLangue=="ang") { Response.write(monthNamesAng.substring(moisPresent * 9, (moisPresent + 1) * 9)); Response.write(year);%> <%} column = 0; //gère l'affichage de colonne en fonction de la journée de la semain actuelle (lundi, mardi,mercredi, ... //ajoute les rangées après le jour de la semaine actuelle for (i=0; i<% column++;} //une boucle pour chaque jour jusqu'au nombre de jour dans le mois for (i=1; i<=nDays(year); i++) { %> <% column++; if (column == 7) {%><% column = 0;} } %>
<% //Affichage du nom du mois et de l'année %>
<% if (varLangue=="fr") { Response.write(monthNames.substring(moisPresent * 9, (moisPresent + 1) * 9)); Response.write(year);%>
Dimanche
Lundi
Mardi
Mercredi
Jeudi
Vendredi
Samedi
Sunday
Monday
Tuesday
Wednesday
Thursday
Friday
Saturday
 <% // monSQL = "SELECT JourArrive, MoisArrive, AnneeArrive FROM tblLocation T1, tblChalet T2 WHERE JourArrive="+i+" AND AnneeArrive="+year+" AND MoisArrive="+moisPresentBD+" AND T1.ChaletID = T2.ChaletID AND T2.ChaletID="+varChaletID;"" // monSQL2 = "SELECT JourDepart, MoisDepart, AnneeDepart FROM tblLocation T1, tblChalet T2 WHERE JourDepart="+i+" AND AnneeDepart="+year+" AND MoisDepart="+moisPresentBD+" AND T1.ChaletID = T2.ChaletID AND T2.ChaletID="+varChaletID;"" // monSQL3 = "SELECT LocationApprouve FROM tblLocation T1, tblChalet T2 WHERE JourArrive="+i+" AND AnneeArrive="+year+" AND MoisArrive="+moisPresentBD+" AND T1.ChaletID = T2.ChaletID AND T2.ChaletID="+varChaletID;"" // monSQL5 = "SELECT LocationApprouve FROM tblLocation T1, tblChalet T2 WHERE JourDepart="+i+" AND AnneeDepart="+year+" AND MoisDepart="+moisPresentBD+" AND T1.ChaletID = T2.ChaletID AND T2.ChaletID="+varChaletID;"" // oRs = oConn.Execute(monSQL); // oRs2 = oConn.Execute(monSQL2); // oRs3 = oConn.Execute(monSQL3); // oRs5 = oConn.Execute(monSQL5); function Chalet() { this.tot = 0; this.LocationApprouve = -1; this.Reset = function() { this.LocationApprouve = -1 }; } var tabChalets = new Array(); tabChalets[1] = new Chalet(); monSQL = 'SELECT tblLocation.ChaletID, tblLocation.LocationApprouve, DateDiff("d",[DateDepart],"'+ year +'/'+ moisPresentBD +'/'+ i +'") AS dep, DateDiff("d",[DateArrivee],"'+ year +'/'+ moisPresentBD +'/'+ i +'") AS arr FROM tblLocation WHERE IsDate([AnneeArrive] & "/" & [MoisArrive] & "/" & [JourArrive]) AND IsDate([AnneeDepart] & "/" & [MoisDepart] & "/" & [JourDepart]) AND CVDate("'+ year +'/'+ moisPresentBD +'/'+ i +'") Between CVDate([AnneeArrive] & "/" & [MoisArrive] & "/" & [JourArrive]) And CVDate([AnneeDepart] & "/" & [MoisDepart] & "/" & [JourDepart]) AND tblLocation.ChaletID='+varChaletID+';'; oRs = oConn.Execute(monSQL); var k = 0; var dep = 0; var arr = 0; while(!oRs.Eof) { if(oRs("LocationApprouve").Value >= 1) tabChalets[1].LocationApprouve = oRs("LocationApprouve").Value; if(oRs("dep").Value == 0) dep = 1; if(oRs("arr").Value == 0) arr = 1; k = k + 1; oRs.MoveNext(); } tabChalets[1].tot = k; //tableau ci-dessous pour mettre à gauche le chiffre et à droite le AM-PM%> <% Response.Write(''); %>
'); var cols = 0; Response.Write(""); if(cols % 2 == 0) Response.Write(""); Response.Write(""); if(cols % 2 == 1) Response.Write(""); cols++; if(cols % 2 == 1) Response.Write(""); else Response.Write(""); Response.Write("
"); var couleur = ""; if(tabChalets[1].tot == 0) couleur = "339933"; else couleur = "red"; if(dep == 1) Response.Write("AM
"); if(arr == 1) Response.Write("PM
"); Response.Write(""); Response.Write(i); Response.Write(""); Response.Write("
 
"); Response.Write('
<% /********************************* Fin du mois ******************************** ********************************** Fin du mois ******************************** ********************************** Fin du mois *******************************/ //Changement du startDay pour le prochain mois // p2p-dv 2003-12-19 Ajouter cas pour le 29 du mois if (nDays(year) == 31) {startDay = startDay + 3;} else if (nDays(year) == 30) {startDay = startDay + 2;} else if (nDays(year) == 29) {startDay = startDay + 1;} else if (nDays(year) == 28) {startDay = startDay;} else {startDay == startDay + 1;} if (startDay == 7) {startDay = 0;} else if (startDay == 8) {startDay = 1;} else if (startDay == 9) {startDay = 2;} else if (startDay == 10) {startDay = 3;} else if (startDay == 11) {startDay = 4;} else if (startDay == 12) {startDay = 5;} else {startDay = startDay;} //incrémentation moisPresent = moisPresent + 1; //on change de mois moisPresentBD = moisPresentBD + 1; if (moisPresent == 12) { moisPresent = 0; //si on est rendu au mois de décembre, le mois prochain est janvier year = year + 1;} //si le mois prochain est janvier, on augmente l'année de un //nDays = monthDays[moisPresent]; //nombre de jour du prochain mois if (moisPresentBD == 13) { moisPresentBD = 1;} %>
<%if (varLangue=="fr") {%>Réserver<%}%> <%if (varLangue=="ang") {%>Reserve<%}%>

<% }//fin de la boucle de génération du mois< //fermer la connexion oRs.close(); // oRs2.close(); // oRs3.close(); oConn.close(); %>







<%if (varLangue=="fr") {%>
<%}%> <%if (varLangue=="ang") {%><%}%>
 

<%if (varLangue=="fr") {%>Réservation du chalet <%}%> <%if (varLangue=="ang") {%>Reservation of chalet <%}%> <%Response.write(nomChalet)%>


<%if (varLangue=="fr") {%>Consulter le calendrier de disponibilité
En réservant ce chalet, nous prenons pour acquis que que vous acceptez les règlements<%} if (varLangue=="ang") {%> Consult the availability calendar
By reserving this chalet, you agree to respect the rules<%}%>


<%if (varLangue=="fr") {%>Sélectionnez vos dates d'arrivée, de départ, remplissez le formulaire et cliquez sur Réserver<%}%> <%if (varLangue=="ang") {%>Select your arrival and departure dates, fill the form and clic on Reserve<%}%>
<%if (varLangue=="fr") {%>Date d'arrivée<%} if (varLangue=="ang") {%>Arrival date<%}%>    
<%if (varLangue=="fr") {%>Journée<%} if (varLangue=="ang") {%>Day<%}%> <%if (varLangue=="fr") {%>Mois<%} if (varLangue=="ang") {%>Month<%}%> <%if (varLangue=="fr") {%>Année<%} if (varLangue=="ang") {%>Year<%}%>
<%if (varLangue=="fr") {%>Date de départ<%} if (varLangue=="ang") {%>Departure date<%}%>    
<%if (varLangue=="fr") {%> Journée <%} if (varLangue=="ang") {%> Day <%}%> <%if (varLangue=="fr") {%>Mois<%} if (varLangue=="ang") {%>Month<%}%> <%if (varLangue=="fr") {%>Année<%} if (varLangue=="ang") {%>Year<%}%>
   
<%if (varLangue=="fr") {%>Prénom :<%} if (varLangue=="ang") {%>First name :<%}%>
<%if (varLangue=="fr") {%>Nom :<%} if (varLangue=="ang") {%>Name :<%}%>
<%if (varLangue=="fr") {%>Adresse civique :<%} if (varLangue=="ang") {%>Address number :<%}%>
Appartement :
<%if (varLangue=="fr") {%>Rue :<%} if (varLangue=="ang") {%>Street :<%}%>
<%if (varLangue=="fr") {%>Code postal :<%} if (varLangue=="ang") {%>Postal code :<%}%>
<%if (varLangue=="fr") {%>Ville :<%} if (varLangue=="ang") {%>City :<%}%>
Province :
<%if (varLangue=="fr") {%>Pays :<%} if (varLangue=="ang") {%>Country :<%}%>
<%if (varLangue=="fr") {%>Téléphone à la maison :<%} if (varLangue=="ang") {%>Home phone number :<%}%>
<%if (varLangue=="fr") {%>Téléphone au travail :<%} if (varLangue=="ang") {%>Work phone number :<%}%>
    <%if (varLangue=="fr") {%>poste :<%} if (varLangue=="ang") {%>Extension :<%}%>
<%if (varLangue=="fr") {%>Télécopieur :<%} if (varLangue=="ang") {%>Fax number :<%}%>
<%if (varLangue=="fr") {%>Courriel :<%} if (varLangue=="ang") {%>Email :<%}%>
<%if (varLangue=="fr") {%>Vous contacter par :<%} if (varLangue=="ang") {%>We should contact you by :<%}%>
<%if (varLangue=="fr") {%>Nombre d'adulte(s) :<%} if (varLangue=="ang") {%>Number of adult(s) :<%}%>
<%if (varLangue=="fr") {%>Nombre d'enfant(s) :<%} if (varLangue=="ang") {%>Number of child(ren) :<%}%>
<%if (varLangue=="fr") {%>Nous invitons nos nouveau clients à nous dire comment ils ont pris connaissance de nos chalets :<%} if (varLangue=="ang") {%>We invite our new clients to tell us how they found out about our chalets :<%}%>
<%if (varLangue=="fr") {%> <%} if (varLangue=="ang") {%> <%}%>
 
  <%if (varLangue=="fr") {%>Recherche sur l'Internet<%} if (varLangue=="ang") {%>Internet Search<%}%>    
<%if (varLangue=="fr") {%> <%} if (varLangue=="ang") {%> <%}%>
 
  <%if (varLangue=="fr") {%>Publicité dans un journal<%} if (varLangue=="ang") {%>Newspaper add<%}%>    
<%if (varLangue=="fr") {%> <%} if (varLangue=="ang") {%> <%}%>
 
  <%if (varLangue=="fr") {%>Recommandation de "Salon vacances et loisirs d'été"<%} if (varLangue=="ang") {%>Recommendation by "Summer Holiday Show"<%}%>    
<%if (varLangue=="fr") {%> <%} if (varLangue=="ang") {%> <%}%>
 
  <%if (varLangue=="fr") {%>Recommandation de Tourisme Lanaudière <%} if (varLangue=="ang") {%>Recommendation by Tourisme Lanaudière<%}%>    
<%if (varLangue=="fr") {%> <%} if (varLangue=="ang") {%> <%}%>
 
  <%if (varLangue=="fr") {%>Recommandation d'une connaissance <%} if (varLangue=="ang") {%>Recommendation by a friend <%}%>
<%if (varLangue=="fr") {%> <%} if (varLangue=="ang") {%> <%}%>     <%if (varLangue=="fr") {%>(Nous vous invitons à nous donner son nom : <%} if (varLangue=="ang") {%>(We invite you to tell us who: <%}%> )
<%if (varLangue=="fr") {%> <%} if (varLangue=="ang") {%> <%}%>
 
  <%if (varLangue=="fr") {%>Autre : <%} if (varLangue=="ang") {%>Other : <%}%>    
 

<%if (varLangue=="fr") {%>Un dépôt de la moitié du montant total sera exigé pour confirmer la location<%} if (varLangue=="ang") {%>A deposit of half of the total amount is required to confirm the reservation<%}%>
> " Effacer "<%} if (varLangue=="ang") {%>" Erease "<%}%>> <%if (varLangue=="fr") {%><%} if (varLangue=="ang") {%><%}%>