Soyez le premier à donner votre avis sur cette source.
Vue 32 895 fois - Téléchargée 2 660 fois
' ############################################################## ' Agenda.asp ' Affiche un agenda d'événement (configurer ici pour SQL Server) ' Romain Mourer @2002 ' romain_mourer@yahoo.fr ' ############################################################## <!-- #include file='connexion.asp' --> <% Function DtPrevSunday(ByVal dt) ' Cette foction va renvoyer la date du premier jour à afficher sur ' le calendrier (en général jour du mois précédent) Do While WeekDay(dt) > vbSunday dt = DateAdd("d", -1, dt) Loop DtPrevSunday = dt End Function '-------------------------------------------------- dim rsEvenement '---------------------------------------------------------- ' Function aganda_recherche_evenement(DateMois) ' Cherche s'il existe un événement à la date donnée ' Argument(s) : DateMois '---------------------------------------------------------- Function aganda_recherche_evenement(DateMois) Set rsRecherche = server.CreateObject("ADODB.Recordset") strSql = "SELECT Agenda.* FROM Agenda WHERE " _ & " month(dateEvenement)= " & month(DateMois) & " and year(dateEvenement) = " & year(DateMois) & " AND day(dateEvenement) = " & day(DateMois) & " ORDER BY DateEvenement" rsRecherche.Open StrSql, DBConn if not rsRecherche.eof then aganda_recherche_evenement = "oui" else aganda_recherche_evenement = "non" end if rsRecherche.close set rsRecherche=nothing End Function '---------------------------------------------------------- ' Function seance_recherche_Annee(DateAVoir) ' Affiche le calendrier de recherche d'un événement ' Argument(s) : DateAVoir '---------------------------------------------------------- Function agenda_recherche (DateAVoir) Dim dtToday dtToday = Date() Dim dateMoisCourant ' Date du 1er jour du mois Dim dateTmpCourant ' Date du 1er jour à afficher sur le calendrier ' en général, jour du mois précédent ' recherche du premier jour du mois dateTmp = DateAVoir dateJour = day(dateTmp) dateTmp = dateadd("d", (-dateJour+1), dateTmp) dateMoisCourant = dateTmp Dim iDay, iWeek, sFontColor %> <table CELLPADDING="3" class="Agenda" border="0"> <tr VALIGN="MIDDLE" ALIGN="CENTER"> <td COLSPAN="7"> <table CELLPADDING="0" CELLSPACING="0" WIDTH="100%" BORDER="0" width="100%" class="AgendaMois"> <tr VALIGN="MIDDLE" ALIGN="CENTER"> <td WIDTH="10%" ALIGN="center"> <a href="agenda.asp?view_date=<%= dateadd("m", -1, dateMoisCourant) %>"><<</a> </td> <td WIDTH="80%"> <font FACE="Arial" COLOR="#000000"> <b><small><%=MonthName(Month(dateMoisCourant)) & " " & Year(dateMoisCourant)%></small></b> </font> </td> <td WIDTH="10%" ALIGN="center"> <a href="agenda.asp?view_date=<%= dateadd("m", 1, dateMoisCourant) %>">>></a> </td> </tr> </table> </td> </tr> <tr VALIGN="TOP" ALIGN="CENTER" BGCOLOR="#000099"> <% For iDay = vbSunday To vbSaturday %> <th WIDTH="14%"><font FACE="Arial" SIZE="-2" COLOR="#FFFFFF"><%=left(WeekDayName(iDay), 3)%></font></th> <%Next %> </tr> <% dateTmpCourant = DtPrevSunday(dateMoisCourant) For iWeek = 0 To 5 Response.Write "<TR VALIGN=TOP>" & vbCrLf Dim sBGCOLOR sBGCOLOR = "#52B4CB" sfontColor = "#000000" For jour = 0 To 6 sBGCOLOR = "#52B4CB" If Month(dateTmpCourant) = Month(dateMoisCourant) Then ' Si on est sur le mois en cours if cint(Day(dateTmpCourant)) = cint(day(DateAVoir)) then ' Si jour sélectionné, ou jour d'aujourd'hui if (cint(Day(dateTmpCourant)) = cint(day(date()))) AND (Month(dateTmpCourant) = Month(date())) then ' Aujourd'hui sBGCOLOR = "#0000FF" elseif Month(dateTmpCourant) = Month(date()) then sBGCOLOR = "#DCF0F4" sfontColor = "#FF0000" end if 'else ' if cint(Day(dateTmpCourant)) = cint(day(date())) AND (Month(dateTmpCourant) = Month(date())) then ' Aujourd'hui 'sBGCOLOR = "#0000FF" ' elseif Month(dateTmpCourant) = Month(date()) then ' sBGCOLOR = "#52B4CB" ' end if 'sBGCOLOR = "#99ccff" end if ' On va vérifier s'il y a au moins un évenement ce jour au quel cas on change la couleur if aganda_recherche_evenement (day(dateTmpCourant) & "/" & monthname(month(dateTmpCourant)) & "/" & year(dateTmpCourant)) = "oui" then sBGCOLOR = "#3BA554" end if else ' c'est encore le mois précédent sBGCOLOR = "#52B4CB" End If Response.Write "<TD HEIGHT=20 bgcolor='" & sBGCOLOR & "' >" If Month(dateTmpCourant) = Month(dateMoisCourant) Then If dateTmpCourant = dtToday Then sFontColor = "#ff0000" Else sFontColor = "#00000" End If Response.Write "<a href=agenda.asp?" & "view_date=" & day(dateTmpCourant) & "/" & monthname(month(dateTmpCourant)) & "/" & year(dateTmpCourant) & ">" Response.Write "<FONT FACE=""verdana"" SIZE=""-2"" COLOR=""" & sFontColor & """><B>" Response.Write Day(dateTmpCourant) & "</a></B></FONT><BR>" End If Response.Write "</TD>" & vbCrLf dateTmpCourant = DateAdd("d", 1, dateTmpCourant) Next Response.Write "</TR>" & vbCrLf Next %> <% Response.Write "</table>" End Function '-------------------------------------------------------------------------------- ' Function seance_rechercher(VoirDate) ' Affiche le résultat de la recherche ' Argument(s) : VoirDate ' '-------------------------------------------------------------------------------- Function evenement_recherche (VoirDate) Set rsEvenement = server.CreateObject("ADODB.Recordset") if Request.QueryString("tous") = "jour" then strSql = "SELECT Agenda.* FROM Agenda WHERE " _ & " month(dateEvenement)= " & month(VoirDate) & " and year(dateEvenement) = " & year(VoirDate) & " AND day(dateEvenement) = " & day(VoirDate) & " ORDER BY DateEvenement" elseif Request.QueryString("tous") = "mois" then strSql = "SELECT Agenda.* FROM Agenda WHERE " _ & " month(dateEvenement)= " & month(VoirDate) & " and year(dateEvenement) = " & year(VoirDate) & " ORDER BY DateEvenement" else strSql = "SELECT Agenda.* FROM Agenda WHERE " _ & " month(dateEvenement)= " & month(VoirDate) & " and year(dateEvenement) = " & year(VoirDate) & " AND day(dateEvenement) = " & day(VoirDate) & " ORDER BY DateEvenement" end if rsEvenement.Open StrSql, DBConn %> <table border="0" cellpadding="0" cellspacing="0" width="100%" height="100%"> <tr> <td width="50%" align="center" height="5" class="haut_milieu"><br> <%agenda_recherche("" & VoirDate & "")%> </td> </tr> <tr> <td valign="top"><br> <div align="center"><font size="1"><b>Liste des évenements du <%=VoirDate%></b></font></div> <% if rsEvenement.eof then Response.Write "<div align=center><br><font face=verdana size=1 color=#000080>Aucun événement ce jour.</font><br></div>" end if do while not rsEvenement.eof if trim(rsEvenement("description")) = "" then Response.Write "<li><font color='#4E6FB7' size='2'><b>" & rsEvenement("Libelle") & "</b></font></li><br>" else Response.Write "<li><a href='#' onClick='voirEvenement(" & rsEvenement("idAgenda") & ");'><font color='#4E6FB7' size='2'><b><u>" & rsEvenement("Libelle") & "</u></b></font></a></li><br>" end if rsEvenement.movenext Loop rsEvenement.close() set rsEvenement=nothing %> </td> </tr> </table> <% DBConn.Close set DBConn = nothing End Function '---------------------------------- ' Affichage de la page ' Appel aux différentes fonctions '---------------------------------- %> <html> <head> <title>Agenda</title> <script language="javascript"> function voirEvenement(idEvenement) { lien = "user_agenda_fiche.asp?idEvenement=" + idEvenement; open(lien,'Agenda','width=700,height=500,toolbar=no,location=no,directories=no,status=no,scrollbars=yes,menubar=no,resizable=yes,top=10,left=10'); } </script> </head> <body bgcolor="#FFFFFF"> <table width="60%" align="center"> <tr> <td align="left" valign="top" width="572" height="395" bgcolor="#FFFFFF"> <% Select Case Request("action") case default if Request("view_date") <> "" then evenement_recherche(Request("view_date")) else evenement_recherche(date()) end if End Select %> </td> </tr> </table> </body> </html>
27 avril 2006 à 01:56
Je recherche un moyen de créer une base de données à l'aide d'access afin de gérer des agendas. J'aimerais que cette base de données me permette de calculer le nombre de consultation par thérapeute, combien de visite par client durant une année... Est-ce possible?
Merci!
18 mars 2006 à 10:13
A+
18 mars 2006 à 00:36
& " month(dateEvenement)" & month(DateMois) & " and year(dateEvenement) " & year(DateMois) & " AND day(dateEvenement) = " & day(DateMois) & " ORDER BY DateEvenement") je savais pas qu'ont pouvais utiliser les day, month et year en sql, les erreurs de date fr et eng sont pas mal résolue de cette maniere. Je me demande si cette requette est possible sous mysql, j'ai testé sous access et ces #1. En passent je ne vois pas pourquoi ce calendrier ne serai pas utilisable access ??
Merci !
29 févr. 2004 à 10:44
Je n'ai pas de serveur SQL sur mon site, est-il possible d'utiliser une mdb Access...et comment faire ?
Cordialement
Michel
29 janv. 2003 à 09:06
merci
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.