<%@LANGUAGE="VBSCRIPT"%> <% Response.Expires = 0 %> <% ' *********************** Module login / pwd à créer ' ************************* MODELISATION 'Session("login") = "toto@toto.com" 'Session("reservation") = 1 ' *********************************************** 'response.write "

Session Call : "& Session("call")& "

" if request.querystring("date") <> "" then ddate = CDate(request.querystring("date")) Else 'ddate = FormatDateTime(Date(),1) ddate = Date() End if %> <% Dim RsSalle Dim RsSalle_numRows Set RsSalle = Server.CreateObject("ADODB.Recordset") RsSalle.ActiveConnection = MM_EXPERIAN_INTRANET_STRING RsSalle.Source = "SELECT * FROM SALLE WHERE Salle <= 4 and resa= #" & ddate & "#" 'RsSalle.Source = "SELECT * FROM SALLE WHERE resa > Now()" 'RsSalle.Source = "SELECT * FROM SALLE" RsSalle.CursorType = 0 RsSalle.CursorLocation = 2 RsSalle.LockType = 1 RsSalle.Open() RsSalle_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 RsSalle_numRows = RsSalle_numRows + Repeat1__numRows %> <%'option explicit%> <%response.buffer=true%> <% Dim nLang ' Langue utilisée / Language Dim nDate ' Date du calendrier / Calendar date Dim nURL ' URL de la page / URL of the HTML document Dim nDatePrev ' Mois précédent / Previous month Dim nDateSuiv ' Mois suivant / Next month Dim nJour ' Jour du calendrier / Calendar day Dim nMois ' Mois du calendrier / Calendar month Dim nAnnee ' Année du calendrier / Calendar year Dim nDate1 ' Date du premier jour du mois / First day date Dim nJour2 ' Dernier jour du mois / Last day Dim nDate2 ' Date du dernier jour du mois / Last day date Dim nDateDebut ' Première journée de la semaine / First weekday Dim nDateFin ' Dernière journée de la semaine / Last weekday Dim nbrCase ' Nombre de case total du calendrier / Total cells Dim nNomJour ' Jour de la semaine pour boucle / weekday loop Dim n ' Compteur pour boucle / loop ' ''''''''''''''''''''''''''''''''''''''''''' ' en = english ' autre = langue des tableaux plus bas ' other = array language, see nMoisNom... ' ''''''''''''''''''''''''''''''''''''''''''' nLang = "en" ' ''''''''''''''''''''''''''''''''''''''''''' ' Récupération de la date du la requète http ' Utilisation de la date courrante si aucune. ' ''''''''''''''''''''''''''''''''''''''''''' if request("date") = "" then nDate = Date() else nDate = cDate(request.querystring("date")) end if ' ''''''''''''''''''''''''''''''''''''''''''' ' Configuration des variables ' ''''''''''''''''''''''''''''''''''''''''''' nURL = Request.ServerVariables("URL") nDatePrev = DateAdd("m", -1, nDate) nDateSuiv = DateAdd("m", 1, nDate) nJour = Day(nDate) nMois = Month(nDate) nAnnee = Year(nDate) nDate1 = DateSerial(nAnnee, nMois, 1) Dim nTemp nTemp = DateAdd("m", 1, nDate1) nJour2 = Day(DateAdd("d", -1, nTemp)) nDate2 = DateSerial(nAnnee, nMois, nJour2) nDateDebut = WeekDay(nDate1, vbSunday) nDateFin = WeekDay(nDate2, vbSunday) nbrCase = Day(nDate2) + (nDateDebut-1) + (7-nDateFin) nNomJour = 1 ' ''''''''''''''''''''''''''''''''''''''''''' ' Changer les deux tableaux suivant ' si vous désirez une autre langue. ' ''''''''''''''''''''''''''''''''''''''''''' '---- Mois en français ---- Dim nMoisNom(12) nMoisNom(0) = "Mois" nMoisNom(1) = "Janvier" nMoisNom(2) = "Février" nMoisNom(3) = "Mars" nMoisNom(4) = "Avril" nMoisNom(5) = "Mai" nMoisNom(6) = "Juin" nMoisNom(7) = "Juillet" nMoisNom(8) = "Août" nMoisNom(9) = "Septembre" nMoisNom(10) = "Octobre" nMoisNom(11) = "Novembre" nMoisNom(12) = "Décembre" '---- Jours abrégé en français ---- Dim nJourAbr(7) nJourAbr(0) = "Jour" nJourAbr(1) = "Dim" nJourAbr(2) = "Lun" nJourAbr(3) = "Mar" nJourAbr(4) = "Mer" nJourAbr(5) = "Jeu" nJourAbr(6) = "Ven" nJourAbr(7) = "Sam" %> Intranet : Réservation de salles

> Réservation Triangle

<% if session("login") <> "" then %> > Vous êtes logué <% Else %>

LOG

PWD

<% End if %>

Les caractéristiques des
salles : cliquez ici

Réservation

Salles de réunion du Triangle & Conf. call

>> pour lire les infos d'une réservation, positionner votre curseur dessus (bulle).

<% if nLang = "en" then %> <% else %> <% end if %> <% for n = 1 to 7 %> <% if nLang = "en" then %> <% else %> <% end if %> <% next ' Boucle des noms du jour / WeekName for %> <% Dim njTemp For n = 1 to nbrCase njTemp = n - nDateDebut+1 if nNomJour = 1 then response.write "" if (njTemp) = nJour then response.write "" if nNomJour = 7 then response.write "" if nNomJour = 7 then nNomJour = 1 else nNomJour = nNomJour + 1 end if next ' Boucle des jour / Day for %>

	<%=MonthName(nMois)%> <%=nAnnee%>					<%=nMoisNom(nMois)%> <%=nAnnee%>
<%=WeekDayName(n, true, vbSunday)%>	<%=nJourAbr(n)%>
" else response.write "	" end if if n < (nDateDebut) or n > (nJour2+nDateDebut-1) then response.write " " else if (njTemp) = nJour then response.write (njTemp) else response.write "" response.write (njTemp) & "" end if end if response.write "

<% ' **************************************** Table d'affichage des réservations de salles ********************** %> <% Dim Matrice (5,25) For i=1 to 25 For j=1 to 5 if j=5 then color="#FFDECE" else color="#CCCCCC" End if if (session("reservation") = 1 or session("reservation")=2) AND (j<>5 or (j=5 and Session("call")=1)) then Matrice (j,i)= "" Else Matrice (j,i)= "" End if Next Next While ((Repeat1__numRows <> 0) AND (NOT RsSalle.EOF)) h1 = RsSalle.Fields.Item("h1").Value h2 = RsSalle.Fields.Item("h2").Value salle = RsSalle.Fields.Item("salle").Value Nom = RsSalle.Fields.Item("nom").Value prenom = RsSalle.Fields.Item("prenom").Value email = RsSalle.Fields.Item("email").Value ' ------------ couleur differente if nb_couleur = 0 then couleur ="#CC4FF5" if nb_couleur = 1 then couleur ="#99CC33" if nb_couleur = 2 then couleur ="#124999" if nb_couleur = 3 then couleur ="#FG4RT8" if nb_couleur = 4 then couleur ="#44488F" if nb_couleur = 5 then couleur ="#FFFFFF" if nb_couleur = 6 then couleur ="#898989" nb_couleur = nb_couleur +1 if nb_couleur = 10 then nb_couleur = 0 '---------- Fin couleur ' ------ ne va afficher en suppression que les enregistrement avec le bon login if (email = session("login") and session("reservation")=1) or (session("reservation")=2) then reserve = "RES. - SUP" Else reserve = "RES." End if for m=1 to ((h2-h1)) ' ----------------- Fin RESERVE Matrice(salle+1,(h1-15)+m-1) = "" reserve = "RES." next Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 RsSalle.MoveNext() Wend for i=16 to 40 Matrice (1,i-15)="" Matrice (1,i-15)=replace(Matrice (1,i-15),".5h","h30") Next for i = 1 to 25 response.write "" for j=1 to 5 response.write Matrice(j,i) Next response.write "" Next %>

Heure	CITÉ DES SCIENCES 7ème - 10pl Visio	OPERA 7ème - 10pl	SAINT- GERMAIN 7ème - 10pl	CONF. CALL Genesys Corporate
X	-	"&reserve&"	" & i/2 & "h

<% RsSalle.Close() Set RsSalle = Nothing %>