This is a multi-part message in MIME format.
------=_NextPart_000_0183_01C02F90.1397B780
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
I got more requests for the code than I thought I would so here it is. =
I didn't include the addupdateevent template or the eventdetail =
template. As always if you have any recommendations once you see the =
code let me know.
Thanks,
Kevin
<!--- Check to see if a specific date was requested or show today --->
<CFIF IsDefined("form.showdate")>
<CFSET DATETODISPLAY =3D #url.showdate#>
<CFELSE>
<CFSET DATETODISPLAY =3D #DateFormat(Now(), "mm/dd/yyyy")#>
</CFIF>
<!--- Set up the first day of the month requested --->
<CFSET FIRSTDAY =3D "#DateFormat(DATETODISPLAY, =
'mm')#/01/#DateFormat(DATETODISPLAY, 'yyyy')#">
<!--- Set what day the first day of the month is on --->
<CFIF #DateFormat(FIRSTDAY, 'DDD')# EQ "SUN">
<CFSET LOOPSTART =3D 6>
</CFIF>
<CFIF #DateFormat(FIRSTDAY, 'DDD')# EQ "MON">
<CFSET LOOPSTART =3D 0>
</CFIF>
<CFIF #DateFormat(FIRSTDAY, 'DDD')# EQ "TUE">
<CFSET LOOPSTART =3D 1>
</CFIF>
<CFIF #DateFormat(FIRSTDAY, 'DDD')# EQ "WED">
<CFSET LOOPSTART =3D 2>
</CFIF>
<CFIF #DateFormat(FIRSTDAY, 'DDD')# EQ "THU">
<CFSET LOOPSTART =3D 3>
</CFIF>
<CFIF #DateFormat(FIRSTDAY, 'DDD')# EQ "FRI">
<CFSET LOOPSTART =3D 4>
</CFIF>
<CFIF #DateFormat(FIRSTDAY, 'DDD')# EQ "SAT">
<CFSET LOOPSTART =3D 5>
</CFIF>
<CFSET DateCount =3D 1>
<CFSET DATETOADD =3D DaysInMonth(DATETODISPLAY) - 1>
<CFSET ODBCLASTDAY =3D #CreateODBCDate(#DateAdd('d', DATETOADD, =
FIRSTDAY)#)#>
<CFSET ODBCFIRSTDAY =3D #CreateODBCDate(FIRSTDAY)#>
<CFQUERY DATASOURCE=3D"EventInfo" NAME=3D"Events">
SELECT *
FROM Events
WHERE EventDate=20
BETWEEN #ODBCFIRSTDAY# AND #ODBCLASTDAY#
</CFQUERY>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>Events Calendar</title>
</head>
<body>
<TABLE WIDTH=3D"525" BORDER=3D"2" CELLSPACING=3D"0" CELLPADDING=3D"4" =
BORDERCOLOR=3D"BLACK">
<TR BGCOLOR=3D"NAVY">=20
=20
<TD ALIGN=3DCENTER WIDTH=3D"75"><FONT FACE=3D"Arial, Helvetica" =
SIZE=3D"1" COLOR=3D"#FFFFFF">Monday</FONT></TD>
<TD ALIGN=3DCENTER WIDTH=3D"75"><FONT FACE=3D"Arial, Helvetica" =
SIZE=3D"1" COLOR=3D"#FFFFFF">Tuesday</FONT></TD>
<TD ALIGN=3DCENTER WIDTH=3D"75"><FONT FACE=3D"Arial, Helvetica" =
SIZE=3D"1" COLOR=3D"#FFFFFF">Wednesday</FONT></TD>
<TD ALIGN=3DCENTER WIDTH=3D"75"><FONT FACE=3D"Arial, Helvetica" =
SIZE=3D"1" COLOR=3D"#FFFFFF">Thursday</FONT></TD>
<TD ALIGN=3DCENTER WIDTH=3D"75"><FONT FACE=3D"Arial, Helvetica" =
SIZE=3D"1" COLOR=3D"#FFFFFF">Friday</FONT></TD>
<TD ALIGN=3DCENTER WIDTH=3D"75"><FONT FACE=3D"Arial, Helvetica" =
SIZE=3D"1" COLOR=3D"#FFFFFF">Saturday</FONT></TD>
<TD ALIGN=3DCENTER WIDTH=3D"75"><FONT FACE=3D"Arial, Helvetica" =
SIZE=3D"1" COLOR=3D"#FFFFFF">Sunday</FONT></TD>
</TR>
=20
<TR>
<CFIF LOOPSTART NEQ 0>
<CFLOOP FROM=3D"1" TO=3D"#LOOPSTART#" INDEX=3D"firstweek">
<TD ALIGN=3D"center" WIDTH=3D"75" HEIGHT=3D"75"> </TD>
</CFLOOP>
</CFIF>
=20
<CFSET WEEK1 =3D 7 - LOOPSTART>
<CFLOOP FROM=3D"1" TO=3D"#week1#" INDEX=3D"Loop2">
<CFOUTPUT>
<TD ALIGN=3D"RIGHT" VALIGN=3D"TOP" WIDTH=3D"75" HEIGHT=3D"75"<CFIF =
(Month(DATETODISPLAY)) EQ (#Month(Now())#) AND (#DateCount# EQ =
(#Day(Now())#))>
BGCOLOR=3D"NAVY"<CFELSE>BGCOLOR=3D"##FFFFFF"</CFIF>><FONT =
FACE=3D"Arial, Helvetica" size=3D1>
</CFOUTPUT>
<CFOUTPUT>#DateCount#<BR></CFOUTPUT>
<CFOUTPUT QUERY=3D"Events">
<CFIF (DatePart("d", EventDate) EQ DateCount)>
<A =
HREF=3D"eventdetail.cfm?EventID=3D#EventID#">#EventTitle#</A><BR><BR>
</CFIF>
</CFOUTPUT>=20
<CFSET DateCount =3D DateCount + 1>
</TD>
</CFLOOP>
=20
</TR>
<CFSET WeekIndex =3D 0>
<CFSET LOOPTO =3D DaysInMonth(DATETODISPLAY) - 1>
<CFLOOP FROM=3D"#week1#" TO=3D"#loopto#" INDEX=3D"Loop3">
<CFIF WeekIndex EQ 0><TR></CFIF>
<CFOUTPUT>
<TD ALIGN=3D"RIGHT" VALIGN=3D"TOP" WIDTH=3D"75" HEIGHT=3D"75"
<CFIF (Month(DATETODISPLAY)) EQ (#Month(Now())#) AND (#DateCount# EQ =
(#Day(Now())#))>
BGCOLOR=3D"NAVY"<CFELSE>BGCOLOR=3D"##FFFFFF"</CFIF>><FONT =
FACE=3D"Arial, Helvetica" SIZE=3D"1">
</CFOUTPUT>
<CFOUTPUT>#DateCount#<BR></CFOUTPUT>
<CFOUTPUT QUERY=3D"Events">
<CFIF (DatePart("d", EventDate) EQ DateCount)>
<A =
HREF=3D"eventdetail.cfm?EventID=3D#EventID#">#EventTitle#</A><BR><BR>
</CFIF>
</CFOUTPUT>=20
</TD>
<CFSET WeekIndex =3D WeekIndex + 1><CFSET DateCount =3D DateCount + 1>
<CFIF WeekIndex EQ 7></TR><CFSET WeekIndex =3D 0></CFIF>
</CFLOOP>
=20
<CFIF WeekIndex NEQ 0>
<CFLOOP FROM=3D"#WeekIndex#" TO=3D"6" INDEX=3D"Loop4">
<TD ALIGN=3D"center" WIDTH=3D"75" HEIGHT=3D"75"> </TD>
</CFLOOP>
</CFIF>
</TR>
</TABLE>
<BR>
<CENTER><A HREF=3D"addupdateevent.cfm?add=3Dyes">Add an event</A>
</CENTER>
</body>
</html>
Kevin Schmidt
Internet Services Director
PWB Integrated Marketing and Communications
Office: 734.995.5000
Mobile: 734.649.4843
------=_NextPart_000_0183_01C02F90.1397B780
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2920.0" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>I got more requests for the code than I =
thought I=20
would so here it is. I didn't include the addupdateevent template =
or the=20
eventdetail template. As always if you have any recommendations =
once you=20
see the code let me know.</FONT></DIV>
<DIV><BR><FONT face=3DArial size=3D2>Thanks,</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>Kevin</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2><BR><!--- Check to see if a specific =
date was=20
requested or show today ---><BR><CFIF=20
IsDefined("form.showdate")><BR><CFSET DATETODISPLAY =3D=20
#url.showdate#></FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2><CFELSE><BR><CFSET =
DATETODISPLAY =3D=20
#DateFormat(Now(), "mm/dd/yyyy")#><BR></CFIF></FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2><!--- Set up the first day of the =
month=20
requested ---><BR><CFSET FIRSTDAY =3D "#DateFormat(DATETODISPLAY,=20
'mm')#/01/#DateFormat(DATETODISPLAY, 'yyyy')#"></FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2><!--- Set what day the first day of =
the month is=20
on ---><BR><CFIF #DateFormat(FIRSTDAY, 'DDD')# EQ =
"SUN"><BR><CFSET=20
LOOPSTART =3D 6><BR></CFIF></FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2><CFIF #DateFormat(FIRSTDAY, 'DDD')# =
EQ=20
"MON"><BR><CFSET LOOPSTART =3D 0><BR></CFIF></FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2><CFIF #DateFormat(FIRSTDAY, 'DDD')# =
EQ=20
"TUE"><BR><CFSET LOOPSTART =3D 1><BR></CFIF></FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2><CFIF #DateFormat(FIRSTDAY, 'DDD')# =
EQ=20
"WED"><BR><CFSET LOOPSTART =3D 2><BR></CFIF></FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2><CFIF #DateFormat(FIRSTDAY, 'DDD')# =
EQ=20
"THU"><BR><CFSET LOOPSTART =3D 3><BR></CFIF></FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2><CFIF #DateFormat(FIRSTDAY, 'DDD')# =
EQ=20
"FRI"><BR><CFSET LOOPSTART =3D 4><BR></CFIF></FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2><CFIF #DateFormat(FIRSTDAY, 'DDD')# =
EQ=20
"SAT"><BR><CFSET LOOPSTART =3D 5><BR></CFIF></FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2><CFSET DateCount =3D =
1></FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2><CFSET DATETOADD =3D =
DaysInMonth(DATETODISPLAY) -=20
1><BR><CFSET ODBCLASTDAY =3D #CreateODBCDate(#DateAdd('d', =
DATETOADD,=20
FIRSTDAY)#)#><BR><CFSET ODBCFIRSTDAY =3D=20
#CreateODBCDate(FIRSTDAY)#><BR><CFQUERY DATASOURCE=3D"EventInfo"=20
NAME=3D"Events"><BR> SELECT *<BR> FROM =
Events<BR> WHERE=20
EventDate <BR> BETWEEN #ODBCFIRSTDAY# AND=20
#ODBCLASTDAY#<BR></CFQUERY><BR><!DOCTYPE HTML PUBLIC =
"-//W3C//DTD HTML=20
4.0 Transitional//EN"></FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial=20
size=3D2><html><BR><head><BR> <title>Events=20
Calendar</title><BR></head></FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2><body></FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2><TABLE WIDTH=3D"525" BORDER=3D"2" =
CELLSPACING=3D"0"=20
CELLPADDING=3D"4" BORDERCOLOR=3D"BLACK"><BR> <TR=20
BGCOLOR=3D"NAVY"> <BR> <BR> =
<TD ALIGN=3DCENTER WIDTH=3D"75"><FONT FACE=3D"Arial, =
Helvetica"=20
SIZE=3D"1" =
COLOR=3D"#FFFFFF">Monday</FONT></TD><BR> =20
<TD ALIGN=3DCENTER WIDTH=3D"75"><FONT =
FACE=3D"Arial, Helvetica"=20
SIZE=3D"1"=20
COLOR=3D"#FFFFFF">Tuesday</FONT></TD><BR>  =
;=20
<TD ALIGN=3DCENTER WIDTH=3D"75"><FONT FACE=3D"Arial, =
Helvetica"=20
SIZE=3D"1"=20
COLOR=3D"#FFFFFF">Wednesday</FONT></TD><BR> &nb=
sp;=20
<TD ALIGN=3DCENTER WIDTH=3D"75"><FONT FACE=3D"Arial, =
Helvetica"=20
SIZE=3D"1"=20
COLOR=3D"#FFFFFF">Thursday</FONT></TD><BR> &nbs=
p;=20
<TD ALIGN=3DCENTER WIDTH=3D"75"><FONT FACE=3D"Arial, =
Helvetica"=20
SIZE=3D"1" =
COLOR=3D"#FFFFFF">Friday</FONT></TD><BR> =
=20
<TD ALIGN=3DCENTER WIDTH=3D"75"><FONT FACE=3D"Arial, =
Helvetica"=20
SIZE=3D"1"=20
COLOR=3D"#FFFFFF">Saturday</FONT></TD><BR> <=
TD=20
ALIGN=3DCENTER WIDTH=3D"75"><FONT FACE=3D"Arial, Helvetica" =
SIZE=3D"1"=20
COLOR=3D"#FFFFFF">Sunday</FONT></TD><BR> =20
</TR><BR> <BR> <TR><BR> <CFIF=20
LOOPSTART NEQ 0><BR> <CFLOOP FROM=3D"1" =
TO=3D"#LOOPSTART#"=20
INDEX=3D"firstweek"><BR> <TD ALIGN=3D"center" =
WIDTH=3D"75"=20
HEIGHT=3D"75">&nbsp;</TD><BR> =20
</CFLOOP><BR> =
</CFIF><BR> =20
<BR> <CFSET WEEK1 =3D 7 - =
LOOPSTART><BR> =20
<CFLOOP FROM=3D"1" TO=3D"#week1#" =
INDEX=3D"Loop2"><BR> =20
<CFOUTPUT><BR> <TD ALIGN=3D"RIGHT" =
VALIGN=3D"TOP"=20
WIDTH=3D"75" HEIGHT=3D"75"<CFIF (Month(DATETODISPLAY)) EQ =
(#Month(Now())#) AND=20
(#DateCount# EQ=20
(#Day(Now())#))><BR> BGCOLOR=3D"NAVY"<CFELSE>BGCOLOR=3D=
"##FFFFFF"</CFIF>><FONT=20
FACE=3D"Arial, Helvetica"=20
size=3D1><BR> </CFOUTPUT><BR> <CFOUTPUT=
>#DateCount#<BR></CFOUTPUT><BR> <CFOUTPUT=20
QUERY=3D"Events"><BR> <CFIF (DatePart("d", EventDate) =
EQ=20
DateCount)><BR> <A=20
HREF=3D"eventdetail.cfm?EventID=3D#EventID#">#EventTitle#</A><=
;BR><BR><BR> </CFIF><BR> </CFOUTP=
UT> </FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> <CFSET DateCount =3D =
DateCount +=20
1><BR> </TD><BR> =20
</CFLOOP><BR> =20
<BR> </TR><BR> <CFSET WeekIndex =3D=20
0><BR> <CFSET LOOPTO =3D =
DaysInMonth(DATETODISPLAY) -=20
1><BR> <CFLOOP FROM=3D"#week1#" TO=3D"#loopto#"=20
INDEX=3D"Loop3"><BR> <CFIF WeekIndex EQ=20
0><TR></CFIF><BR> <CFOUTPUT><BR> &nb=
sp;<TD=20
ALIGN=3D"RIGHT" VALIGN=3D"TOP" WIDTH=3D"75" =
HEIGHT=3D"75"<BR> <CFIF=20
(Month(DATETODISPLAY)) EQ (#Month(Now())#) AND (#DateCount# EQ=20
(#Day(Now())#))><BR> BGCOLOR=3D"NAVY"<CFELSE>BGCOLOR=3D=
"##FFFFFF"</CFIF>><FONT=20
FACE=3D"Arial, Helvetica"=20
SIZE=3D"1"><BR> </CFOUTPUT><BR> <CFOUTP=
UT>#DateCount#<BR></CFOUTPUT><BR> <CFOUTPUT =
QUERY=3D"Events"><BR> <CFIF (DatePart("d", EventDate) =
EQ=20
DateCount)><BR> <A=20
HREF=3D"eventdetail.cfm?EventID=3D#EventID#">#EventTitle#</A><=
;BR><BR><BR> </CFIF><BR> </CFOUTP=
UT> <BR> </TD><BR> <CFSET=20
WeekIndex =3D WeekIndex + 1><CFSET DateCount =3D DateCount +=20
1><BR> <CFIF WeekIndex EQ =
7></TR><CFSET=20
WeekIndex =3D 0></CFIF><BR> =20
</CFLOOP><BR> <BR> <CFIF =
WeekIndex=20
NEQ 0><BR> <CFLOOP FROM=3D"#WeekIndex#" TO=3D"6" =
INDEX=3D"Loop4"><BR> <TD ALIGN=3D"center" WIDTH=3D"75"=20
HEIGHT=3D"75">&nbsp;</TD><BR> </CFLOOP><BR>=
</CFIF><BR> </TR><BR> </TABLE&=
gt;<BR> <BR><BR> <CENTER><A=20
HREF=3D"addupdateevent.cfm?add=3Dyes">Add an=20
event</A><BR> </CENTER><BR></body><BR></html>=
;<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Kevin Schmidt<BR>Internet Services =
Director<BR>PWB=20
Integrated Marketing and Communications<BR>Office: =
734.995.5000<BR>Mobile:=20
734.649.4843<BR></FONT></DIV></BODY></HTML>
------=_NextPart_000_0183_01C02F90.1397B780--
------------------------------------------------------------------------------
Archives: http://www.mail-archive.com/cf-talk@houseoffusion.com/
To Unsubscribe visit
http://www.houseoffusion.com/index.cfm?sidebar=lists&body=lists/cf_talk or send a
message to [EMAIL PROTECTED] with 'unsubscribe' in the body.
