% Set connexion = Server.CreateObject("ADODB.Connection") connexion.Open "copyright" %> <% set RsSpecialites=Server.CreateObject("ADODB.Recordset") If Request.Querystring("initiale")<>"" Then '=====UNE INITIALE EST CHOISIE POUR FILTRER LE RECORDSET========= strRequete="SELECT * FROM Tbl_Specialites WHERE UCASE(LEFT(specialite,1))='" & UCASE(Request.Querystring("initiale")) & "' ORDER BY specialite ASC" Else strRequete="SELECT * FROM Tbl_Specialites WHERE UCASE(LEFT(specialite,1))='A' ORDER BY specialite ASC" End If RsSpecialites.open strRequete,Connexion %>
Aucun congrès trouvé dans cette spécialité
<% ElseIf Request.Querystring("Direction")="Précédent" Then Response.Redirect "specialites.asp?Action=Afficher&specialite=" & Request.Querystring("specialite") & "&Direction=Premier&modeAff=" & Request.Querystring("modeAff") ElseIf Request.Querystring("Direction")="Suivant" Then Response.Redirect "specialites.asp?Action=Afficher&specialite=" & Request.Querystring("specialite") & "&Direction=Dernier&modeAff=" & Request.Querystring("modeAff") End If Else '----------------------------------------------------------------------------------------------------------------- %> <% '----------------------------------------------------------------------------------------------------------------- End If Case "Terminer" Response.Redirect "specialites.asp?initiale=" & Request.Querystring("initiale") & "&modeAff=" & Request.Querystring("modeAff") Case Else %> <% dim indice for indice=65 to 90 response.write ("
<%
If Not RsSpecialites.Eof Then
While Not RsSpecialites.Eof '====ON PARCOURT LE RECORDSET OBTENU===========================================
%>
&initiale=<%=Request.Querystring("initiale")%>&modeAff=LaListe"><%=RsSpecialites("specialite")%>
<%
RsSpecialites.Movenext()
Wend
Else
Response.write("Aucune spécialité enregistrée")
End If
Set RsSpecialites=Nothing
END SELECT
%>
<%
' --------------------------------------------------------------------------------------------
' ---------------------------- 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 |
<% 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 "