<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
Agenda EB
<%
' --------------------------------------------------------------------------------------------
' ---------------------------- Debut Fonction----------------------------------------------
' --------------------------------------------------------------------------------------------
function nom_mois (mois)
select case mois
case "1"
nom_mois = "Janvier"
case "2"
nom_mois = "Février"
case "3"
nom_mois = "Mars"
case "4"
nom_mois = "Avril"
case "5"
nom_mois = "Mai"
case "6"
nom_mois = "Juin"
case "7"
nom_mois = "Juillet"
case "8"
nom_mois = "Août"
case "9"
nom_mois = "Septembre"
case "10"
nom_mois = "Octobre"
case "11"
nom_mois = "Novembre"
case "12"
nom_mois = "Décembre"
end select
end function
' -------------------------------------------------------------------------------------------
' ---------------------------- Fin Fonction ------------------------------------------------
' -------------------------------------------------------------------------------------------
D=date()
' --- récupération du mois recherché --- '
mois = request.querystring("mois")
if mois = "" then
D=date()
else
an=year(D)
D=dateserial(an,mois,1)
end if
' --- récupération de l'année recherchée --- '
an = request.querystring("an")
if an = "" then
D=date()
else
mois=month(D)
D=dateserial(an,mois,1)
end if
' --- création de mes variables ---'
an=year(D)
jour=day(D)
mois=month(D)
jour_semaine=weekdayname(weekday(D))
' --- gestion des années pour la liste de choix ---'
ann_rep = year(Date())
an_deb = ann_rep - 2
an_fin = ann_rep + 4
' --- nombre de jours dans le mois actuel --- '
D1 = dateserial(an,mois,1)
jour_mois=weekdayname(weekday(D1))
D2 = dateserial(an,mois + 1,1)
jours_mois = datediff("d",D1,D2)
' --- détermination du jour de la semaine pour le premier du mois --- '
pos_premier = Weekday(D1,2)
pos_premier = pos_premier - 1
' --- détermination des variables de calcul du tableau --- '
j=1 ' compteur de jours du mois
l=0 ' compteur de ligne... permet de déterminer le positionnement du 1 dans la première ligne
c=0 ' compteur de cellule... permet de déterminer le saut de ligne du tableau
p=0 ' positionnement du premier jours du mois dans une semaine de 7 jours
%>
-
L
M
M
J
V
S
D
<%
for i = 1 to jours_mois
' --- incrémentation de ma variable cellule jusqu'à la valeur 7 ---
c=c+1
if l=0 then
for p = 1 to pos_premier
c=c+1
%>
<%
next
end if
date_agenda = dateserial(an,mois,i)
%>
style="border:1 solid #FF0000" <% end if %> >
<%= i %>
<%
' --- gestion du retour à la ligne après 7 jours affichés ---
if c=7 then
response.write "
"
c=0
end if
' --- incrémente la variable l précisant le passage à la deuxième ligne ---
l=1
' --- boucle de mon for to next ---
next
%>