phillystyle123
asked on
cf calendar app formatting question
i'm using a calendar app. my goal is to assign the calendar dates that have events a tan table cell bg color. the rest, just the gray color that you'll see
this is what i need it to look like:
http://redcatweb.org/season/monthly.html
this is what it looks like:
http://www.redcatweb2.org/calendar/newlookmonthly2.cfm?MonthChange=Forward&LastDate=2004/03/21
see how the black dates only show up when there is an event. i understand why this is happening, i just need to know if there is a way around it.
my query:
<CFQUERY datasource="calartscalenda r" name="SearchResults">
Select EventName, EventDescription, Calendar_ID, CalendarDate From calendar Where CalendarDate >= #CreateODBCDate(monthstart )# and CalendarDate <= #CreateODBCDate(monthend)# <cfif #len(eventtype)#>and EventType = '#eventtype#'</cfif>
</CFQUERY>
my output:
<CFLOOP index="ii" from="1" to="#CalDays#">
<cfif #ii# gte #offset# and #ii# lte #lastslot# >
<cfif day is #datepart("d", now())# and #month(curntdate)# is #month(now())#>
<cfset thetdbgcolor="#thetdbgcolo rnow#">
<cfelse>
<cfset thetdbgcolor="#thetdbgcolo rnorm#">
</cfif><cfoutput>
<td valign=top width="120" height="#cellheight#" bgcolor="#thetdbgcolor#">< /cfoutput> <CFOUTPUT><CFIF day is #datepart("d", now())# and #month(curntdate)# is #month(now())#>
<span class="calendarbold">#Day# </span> <CFELSE> <span class="calendarbold"><font color="##FF0000">#Day#</fo nt></span> </CFIF> <BR> </CFOUTPUT> <br>
<CFOUTPUT query="SearchResults">
<cfif squaresbg is "lt">
<cfset color=randrange(000000,999 999)>
<cfelse>
<CFSET AllowedDigits="abcdef">
<CFSET color="">
<CFLOOP INDEX="Pointer" FROM="1" TO="6">
<CFSET color=color & #mid(AllowedDigits,RandRan ge(1,6),1) #>
</CFLOOP>
</cfif>
<CFIF #day# is '#day(calendardate)#'>
<table width="100%" height="100%" cellpadding="0" cellspacing="0"><tr><td bgcolor="f1e39e" valign="top"><span class="calendarbold">#Day# </span></t d></tr><tr ><td bgcolor="f1e39e" valign="top"><A HREF="showevent.cfm?CalID= #Calendar_ ID#">#even tname#</A> </td></tr> </table><b r></CFIF>
</CFOUTPUT>
this is what i need it to look like:
http://redcatweb.org/season/monthly.html
this is what it looks like:
http://www.redcatweb2.org/calendar/newlookmonthly2.cfm?MonthChange=Forward&LastDate=2004/03/21
see how the black dates only show up when there is an event. i understand why this is happening, i just need to know if there is a way around it.
my query:
<CFQUERY datasource="calartscalenda
Select EventName, EventDescription, Calendar_ID, CalendarDate From calendar Where CalendarDate >= #CreateODBCDate(monthstart
</CFQUERY>
my output:
<CFLOOP index="ii" from="1" to="#CalDays#">
<cfif #ii# gte #offset# and #ii# lte #lastslot# >
<cfif day is #datepart("d", now())# and #month(curntdate)# is #month(now())#>
<cfset thetdbgcolor="#thetdbgcolo
<cfelse>
<cfset thetdbgcolor="#thetdbgcolo
</cfif><cfoutput>
<td valign=top width="120" height="#cellheight#" bgcolor="#thetdbgcolor#"><
<span class="calendarbold">#Day#
<CFOUTPUT query="SearchResults">
<cfif squaresbg is "lt">
<cfset color=randrange(000000,999
<cfelse>
<CFSET AllowedDigits="abcdef">
<CFSET color="">
<CFLOOP INDEX="Pointer" FROM="1" TO="6">
<CFSET color=color & #mid(AllowedDigits,RandRan
</CFLOOP>
</cfif>
<CFIF #day# is '#day(calendardate)#'>
<table width="100%" height="100%" cellpadding="0" cellspacing="0"><tr><td bgcolor="f1e39e" valign="top"><span class="calendarbold">#Day#
</CFOUTPUT>
i don't know what ogic u r usingbut i think this will work
try this out
now in my below code CURR_DATE is the varibale that as the date...
so for my code to work curr_date should be defined properly...
<CFQUERY datasource="calartscalenda r" name="SearchResults">
Select EventName, EventDescription, Calendar_ID, CalendarDate From calendar Where CalendarDate >= #CreateODBCDate(monthstart )# and CalendarDate <= #CreateODBCDate(monthend)# <cfif #len(eventtype)#>and EventType = '#eventtype#'</cfif>
</CFQUERY>
<CFSET Lst_EventName = Replace(ValueList(SearchRe sults.Even tName,'~') ,'~~','~ ~','All')>
<CFSET Lst_EventDescription = Replace(ValueList(SearchRe sults.Even tDescripti on,'~'),'~ ~','~ ~','All')>
<CFSET Lst_Calendar_ID = ValueList(SearchResults.Ca lendar_ID, '~')>
<CFSET Lst_CalendarDate = ValueList(SearchResults.Ca lendarDate ,'~')>
<CFSET Lst_CalendarDay = "">
<CFLOOP FROM="1" TO="#ListLen(Lst_CalendarD ate,'~')#" INDEX="day_index">
<CFSET Lst_CalendarDay = ListAppend(Lst_CalendarDay ,ListGetAt (Lst_Calen darDate,da y_index,'~ '),'~')
</CFLOOP>
<!--- the table part starting just before the april 2004 is displayed --->
<TABLE width="722" border="0" cellspacing="0" cellpadding="0">
<TR>
<TD align="left" valign="top" width="41"> </TD>
<TD align="left" valign="top" width="630"><BR>
<TABLE width="558" border="0" cellspacing="0" cellpadding="2">
<TR>
<TD align="left">
<SPAN class="calendarbold_big">< CFOUTPUT># DATEFORMAT (CURR_DATE , "mmmm yyyy")#</SPAN></TD>
<TD align="right">
<SPAN class="calendarbold_big">< < >></SPAN></TD>
</TR>
</TABLE><BR>
<TABLE width="600" border="0" cellspacing="0" cellpadding="4">
<TR align="left">
<TD valign="top" width="78" height="">
<SPAN class="calendarbold"><FONT color="#000000">S</SPAN></ TD>
<TD valign="top" width="2" height="0"></TD>
<TD valign="top" width="78" height="0">
<SPAN class="calendarbold"><FONT color="#000000">M</SPAN></ TD>
<TD valign="top" width="2" height="0"></TD>
<TD valign="top" width="78" height="0">
<SPAN class="calendarbold"><FONT color="#000000">T</SPAN></ TD>
<TD valign="top" width="2" height="0"></TD>
<TD valign="top" width="78" height="0">
<SPAN class="calendarbold"><FONT color="#000000">W</SPAN></ TD>
<TD valign="top" width="2" height="0"></TD>
<TD valign="top" width="78" height="0">
<SPAN class="calendarbold"><FONT color="#000000">T</SPAN></ TD>
<TD valign="top" width="2" height="0"></TD>
<TD valign="top" width="78" height="0">
<SPAN class="calendarbold"><FONT color="#000000">F</SPAN></ TD>
<TD valign="top" width="2" height="0"></TD>
<TD valign="top" width="78" height="0">
<SPAN class="calendarbold"><FONT color="#000000">S</SPAN></ TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD align="left" valign="top" width="78" height="2"></TD>
<TD align="left" valign="top" width="2" height="2"></TD>
<TD align="left" valign="top" width="78" height="2"></TD>
<TD align="left" valign="top" width="2" height="2"></TD>
<TD align="left" valign="top" width="78" height="2"></TD>
<TD align="left" valign="top" width="2" height="2"></TD>
<TD align="left" valign="top" width="78" height="2"></TD>
<TD align="left" valign="top" width="2" height="2"></TD>
<TD align="left" valign="top" width="78" height="2"></TD>
<TD align="left" valign="top" width="2" height="2"></TD>
<TD align="left" valign="top" width="78" height="2"></TD>
<TD align="left" valign="top" width="2" height="2"></TD>
<TD align="left" valign="top" width="78" height="2"></TD>
</TR>
<TR>
<!--- just change curr_date value as per date passed --->
<CFSET I_ROWCNT = 1>
<CFSET I_ROWNO = 1><!--- WILL HOLD THE N0 0F ROWS DISPLAYED IN CALENDAR. --->
<CFLOOP FROM="1" TO="#Evaluate(DayOfWeek(Cr eateDate(Y ear(Curr_D ate), Month(Curr_Date), 1))-1)#" INDEX="i_empty"><!--- put empty spaces till the first day of month comes eg. in case of May..there would be four empty spaces. --->
<TD align="left" valign="top" width="78" height="80"><SPAN class="calendarbold"></SPA N><BR></TD >
<TD align="left" valign="top" width="2" height="80"></TD>
</CFLOOP>
<CFSET I_ROWCNT = I_EMPTY>
<CFLOOP FROM="1" TO="#DaysInMonth(Curr_Date )#" INDEX="i_day">
<CFIF ListFindNoCase(Lst_Calenda rDay,i_day ,'~') NEQ 0>
<TD bgcolor="#F1E39E" align="left" valign="top" width="78" height="80"><SPAN class="calendarbold">#i_da y#</SPAN>< BR>
<SPAN class="frontcopy"><A href="showevent.cfm?CalID= #ListGetAt (Lst_Calen dar_ID,Lis tFindNoCas e(Lst_Cale ndarDay,i_ day,'~'),' ~')#">#Lis tGetAt(Lst _EventName ,ListFindN oCase(Lst_ CalendarDa y,i_day,'~ '),'~')#</ A><BR></TD >
<CFELSE>
<TD align="left" valign="top" width="78" height="80"><SPAN class="calendarbold">#i_da y#</SPAN>< BR></TD>
</CFIF>
<TD align="left" valign="top" width="2" height="80"></TD>
<CFIF I_ROWCNT MOD 13 EQ 0>
</TR>
<TR bgcolor="#FFFFFF">
<TD align="left" valign="top" colspan="13" height="2"></TD>
</TR>
<TR>
<CFSET I_ROWNO = IncrementValue(I_ROWNO)>
</CFIF>
<CFSET I_ROWCNT = IncrementValue(I_ROWCNT)>
</CFLOOP>
</TR>
<CFIF I_ROWNO LT 6><!--- hide this row in no. of rows is 6 --->
<TR>
<TD align="left" valign="top" width="78" height="80"><SPAN class="calendarbold"></SPA N><BR></TD >
<TD align="left" valign="top" width="2" height="80"></TD>
<TD align="left" valign="top" width="78" height="80"><SPAN class="calendarbold"></SPA N><BR></TD >
<TD align="left" valign="top" width="2" height="80"></TD>
<TD align="left" valign="top" width="78" height="80"><SPAN class="calendarbold"></SPA N><BR></TD >
<TD align="left" valign="top" width="2" height="80"></TD>
<TD align="left" valign="top" width="78" height="80"><SPAN class="calendarbold"></SPA N><BR></TD >
<TD align="left" valign="top" width="2" height="80"></TD>
<TD align="left" valign="top" width="78" height="80"><SPAN class="calendarbold"></SPA N><BR></TD >
<TD align="left" valign="top" width="2" height="80"></TD>
<TD align="left" valign="top" width="78" height="80"><SPAN class="calendarbold"></SPA N><BR></TD >
<TD align="left" valign="top" width="2" height="80"></TD>
<TD align="left" valign="top" width="78" height="80"><SPAN class="calendarbold"></SPA N><BR></TD >
</TR>
</CFIF>
</TABLE></TD>
</TR>
</TABLE>
<!--- end of table --->
only thing i haven't incorporated is ><CFIF day is #datepart("d", now())# and #month(curntdate)# is #month(now())#> is this check kindly incorporate that if the output of my code is proper....
let e know a.s.a.p
Regards
Hart
try this out
now in my below code CURR_DATE is the varibale that as the date...
so for my code to work curr_date should be defined properly...
<CFQUERY datasource="calartscalenda
Select EventName, EventDescription, Calendar_ID, CalendarDate From calendar Where CalendarDate >= #CreateODBCDate(monthstart
</CFQUERY>
<CFSET Lst_EventName = Replace(ValueList(SearchRe
<CFSET Lst_EventDescription = Replace(ValueList(SearchRe
<CFSET Lst_Calendar_ID = ValueList(SearchResults.Ca
<CFSET Lst_CalendarDate = ValueList(SearchResults.Ca
<CFSET Lst_CalendarDay = "">
<CFLOOP FROM="1" TO="#ListLen(Lst_CalendarD
<CFSET Lst_CalendarDay = ListAppend(Lst_CalendarDay
</CFLOOP>
<!--- the table part starting just before the april 2004 is displayed --->
<TABLE width="722" border="0" cellspacing="0" cellpadding="0">
<TR>
<TD align="left" valign="top" width="41"> </TD>
<TD align="left" valign="top" width="630"><BR>
<TABLE width="558" border="0" cellspacing="0" cellpadding="2">
<TR>
<TD align="left">
<SPAN class="calendarbold_big"><
<TD align="right">
<SPAN class="calendarbold_big"><
</TR>
</TABLE><BR>
<TABLE width="600" border="0" cellspacing="0" cellpadding="4">
<TR align="left">
<TD valign="top" width="78" height="">
<SPAN class="calendarbold"><FONT
<TD valign="top" width="2" height="0"></TD>
<TD valign="top" width="78" height="0">
<SPAN class="calendarbold"><FONT
<TD valign="top" width="2" height="0"></TD>
<TD valign="top" width="78" height="0">
<SPAN class="calendarbold"><FONT
<TD valign="top" width="2" height="0"></TD>
<TD valign="top" width="78" height="0">
<SPAN class="calendarbold"><FONT
<TD valign="top" width="2" height="0"></TD>
<TD valign="top" width="78" height="0">
<SPAN class="calendarbold"><FONT
<TD valign="top" width="2" height="0"></TD>
<TD valign="top" width="78" height="0">
<SPAN class="calendarbold"><FONT
<TD valign="top" width="2" height="0"></TD>
<TD valign="top" width="78" height="0">
<SPAN class="calendarbold"><FONT
</TR>
<TR bgcolor="#FFFFFF">
<TD align="left" valign="top" width="78" height="2"></TD>
<TD align="left" valign="top" width="2" height="2"></TD>
<TD align="left" valign="top" width="78" height="2"></TD>
<TD align="left" valign="top" width="2" height="2"></TD>
<TD align="left" valign="top" width="78" height="2"></TD>
<TD align="left" valign="top" width="2" height="2"></TD>
<TD align="left" valign="top" width="78" height="2"></TD>
<TD align="left" valign="top" width="2" height="2"></TD>
<TD align="left" valign="top" width="78" height="2"></TD>
<TD align="left" valign="top" width="2" height="2"></TD>
<TD align="left" valign="top" width="78" height="2"></TD>
<TD align="left" valign="top" width="2" height="2"></TD>
<TD align="left" valign="top" width="78" height="2"></TD>
</TR>
<TR>
<!--- just change curr_date value as per date passed --->
<CFSET I_ROWCNT = 1>
<CFSET I_ROWNO = 1><!--- WILL HOLD THE N0 0F ROWS DISPLAYED IN CALENDAR. --->
<CFLOOP FROM="1" TO="#Evaluate(DayOfWeek(Cr
<TD align="left" valign="top" width="78" height="80"><SPAN class="calendarbold"></SPA
<TD align="left" valign="top" width="2" height="80"></TD>
</CFLOOP>
<CFSET I_ROWCNT = I_EMPTY>
<CFLOOP FROM="1" TO="#DaysInMonth(Curr_Date
<CFIF ListFindNoCase(Lst_Calenda
<TD bgcolor="#F1E39E" align="left" valign="top" width="78" height="80"><SPAN class="calendarbold">#i_da
<SPAN class="frontcopy"><A href="showevent.cfm?CalID=
<CFELSE>
<TD align="left" valign="top" width="78" height="80"><SPAN class="calendarbold">#i_da
</CFIF>
<TD align="left" valign="top" width="2" height="80"></TD>
<CFIF I_ROWCNT MOD 13 EQ 0>
</TR>
<TR bgcolor="#FFFFFF">
<TD align="left" valign="top" colspan="13" height="2"></TD>
</TR>
<TR>
<CFSET I_ROWNO = IncrementValue(I_ROWNO)>
</CFIF>
<CFSET I_ROWCNT = IncrementValue(I_ROWCNT)>
</CFLOOP>
</TR>
<CFIF I_ROWNO LT 6><!--- hide this row in no. of rows is 6 --->
<TR>
<TD align="left" valign="top" width="78" height="80"><SPAN class="calendarbold"></SPA
<TD align="left" valign="top" width="2" height="80"></TD>
<TD align="left" valign="top" width="78" height="80"><SPAN class="calendarbold"></SPA
<TD align="left" valign="top" width="2" height="80"></TD>
<TD align="left" valign="top" width="78" height="80"><SPAN class="calendarbold"></SPA
<TD align="left" valign="top" width="2" height="80"></TD>
<TD align="left" valign="top" width="78" height="80"><SPAN class="calendarbold"></SPA
<TD align="left" valign="top" width="2" height="80"></TD>
<TD align="left" valign="top" width="78" height="80"><SPAN class="calendarbold"></SPA
<TD align="left" valign="top" width="2" height="80"></TD>
<TD align="left" valign="top" width="78" height="80"><SPAN class="calendarbold"></SPA
<TD align="left" valign="top" width="2" height="80"></TD>
<TD align="left" valign="top" width="78" height="80"><SPAN class="calendarbold"></SPA
</TR>
</CFIF>
</TABLE></TD>
</TR>
</TABLE>
<!--- end of table --->
only thing i haven't incorporated is ><CFIF day is #datepart("d", now())# and #month(curntdate)# is #month(now())#> is this check kindly incorporate that if the output of my code is proper....
let e know a.s.a.p
Regards
Hart
Hi phillystyle123,
Ithink you don't see the date because of this <CFIF>
<CFIF #day# is '#day(calendardate)#'>
I replaced it and I gues this will work for you
<table width="100%" height="100%" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="f1e39e" valign="top">
<span class="calendarbold">#Day# </span></t d>
</tr>
<tr>
<td bgcolor="f1e39e" valign="top">
<CFIF #day# is '#day(calendardate)#'>
<A HREF="showevent.cfm?CalID= #Calendar_ ID#">#even tname#</A>
</CFIF>
<td>
</tr>
</table>
Let me know
Mause
Ithink you don't see the date because of this <CFIF>
<CFIF #day# is '#day(calendardate)#'>
I replaced it and I gues this will work for you
<table width="100%" height="100%" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="f1e39e" valign="top">
<span class="calendarbold">#Day#
</tr>
<tr>
<td bgcolor="f1e39e" valign="top">
<CFIF #day# is '#day(calendardate)#'>
<A HREF="showevent.cfm?CalID=
</CFIF>
<td>
</tr>
</table>
Let me know
Mause
but mause
<tr>
<td bgcolor="f1e39e" valign="top">
<CFIF #day# is '#day(calendardate)#'>
<A HREF="showevent.cfm?CalID= #Calendar_ ID#">#even tname#</A>
</CFIF>
<td>
</tr>
this he gets from the query output
Regards
Hart
<tr>
<td bgcolor="f1e39e" valign="top">
<CFIF #day# is '#day(calendardate)#'>
<A HREF="showevent.cfm?CalID=
</CFIF>
<td>
</tr>
this he gets from the query output
Regards
Hart
hhhmmm yes your right it still will not out put the date
then it must be like this:
<table width="100%" height="100%" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="f1e39e" valign="top">
<span class="calendarbold">#Day# </span></t d>
</tr>
<tr>
<td bgcolor="f1e39e" valign="top">
<CFOUTPUT query="SearchResults">
<cfif squaresbg is "lt">
<cfset color=randrange(000000,999 999)>
<cfelse>
<CFSET AllowedDigits="abcdef">
<CFSET color="">
<CFLOOP INDEX="Pointer" FROM="1" TO="6">
<CFSET color=color & #mid(AllowedDigits,RandRan ge(1,6),1) #>
</CFLOOP>
</cfif>
<CFIF #day# is '#day(calendardate)#'>
<A HREF="showevent.cfm?CalID= #Calendar_ ID#">#even tname#</A>
</CFIF>
<CFOUTPUT>
<td>
</tr>
</table>
Mause
then it must be like this:
<table width="100%" height="100%" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="f1e39e" valign="top">
<span class="calendarbold">#Day#
</tr>
<tr>
<td bgcolor="f1e39e" valign="top">
<CFOUTPUT query="SearchResults">
<cfif squaresbg is "lt">
<cfset color=randrange(000000,999
<cfelse>
<CFSET AllowedDigits="abcdef">
<CFSET color="">
<CFLOOP INDEX="Pointer" FROM="1" TO="6">
<CFSET color=color & #mid(AllowedDigits,RandRan
</CFLOOP>
</cfif>
<CFIF #day# is '#day(calendardate)#'>
<A HREF="showevent.cfm?CalID=
</CFIF>
<CFOUTPUT>
<td>
</tr>
</table>
Mause
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Hi Hart,
WOW! This totally works! I'm getting an error though here's my code (hope i'm commenting and uncommenting the right things) followed by my error:
<CFQUERY datasource="calartscalenda r" name="SearchResults">
Select EventName, EventDescription, Calendar_ID, CalendarDate From calendar Where CalendarDate >= #CreateODBCDate(monthstart )# and CalendarDate <= #CreateODBCDate(monthend)# <cfif #len(eventtype)#>and EventType = '#eventtype#'</cfif>
</CFQUERY>
<CFSET Lst_EventName = Replace(ValueList(SearchRe sults.Even tName,'~') ,'~~','~ ~','All')>
<CFSET Lst_EventDescription = Replace(ValueList(SearchRe sults.Even tDescripti on,'~'),'~ ~','~ ~','All')>
<CFSET Lst_Calendar_ID = ValueList(SearchResults.Ca lendar_ID, '~')>
<CFSET Lst_CalendarDate = ValueList(SearchResults.Ca lendarDate ,'~')>
<CFPARAM NAME="curr_date" DEFAULT="#CreateDate(Year( Now()), Month(Now()), Day(Now()))#">
<!--- <CFSET Lst_EventName = "Event 1~Event 2~ Event 3">
<CFSET Lst_EventDescription = "Event 1 Desc~Event 2 Desc~Event 3 Desc">
<CFSET Lst_Calendar_ID = "1~2~3">
<CFSET Lst_CalendarDate = "5/10/2003~10/10/2003~25/1 0/2003">-- ->
<CFSET Lst_CalendarDay = "">
<CFLOOP FROM="1" TO="#ListLen(Lst_CalendarD ate,'~')#" INDEX="day_index">
<CFSET Lst_CalendarDay = ListAppend(Lst_CalendarDay ,day(datef ormat(List GetAt(Lst_ CalendarDa te,day_ind ex,'~'),'d d/mm/yyyy' )),'~')>
</CFLOOP>
error:
An error occurred while evaluating the expression:
#CreateODBCDate(monthstart )#
Error near line 312, column 114.
-------------------------- ---------- ---------- ---------- ---------- ---------- ----
Error resolving parameter MONTHSTART
ColdFusion was unable to determine the value of the parameter. This problem is very likely due to the fact that either:
WOW! This totally works! I'm getting an error though here's my code (hope i'm commenting and uncommenting the right things) followed by my error:
<CFQUERY datasource="calartscalenda
Select EventName, EventDescription, Calendar_ID, CalendarDate From calendar Where CalendarDate >= #CreateODBCDate(monthstart
</CFQUERY>
<CFSET Lst_EventName = Replace(ValueList(SearchRe
<CFSET Lst_EventDescription = Replace(ValueList(SearchRe
<CFSET Lst_Calendar_ID = ValueList(SearchResults.Ca
<CFSET Lst_CalendarDate = ValueList(SearchResults.Ca
<CFPARAM NAME="curr_date" DEFAULT="#CreateDate(Year(
<!--- <CFSET Lst_EventName = "Event 1~Event 2~ Event 3">
<CFSET Lst_EventDescription = "Event 1 Desc~Event 2 Desc~Event 3 Desc">
<CFSET Lst_Calendar_ID = "1~2~3">
<CFSET Lst_CalendarDate = "5/10/2003~10/10/2003~25/1
<CFSET Lst_CalendarDay = "">
<CFLOOP FROM="1" TO="#ListLen(Lst_CalendarD
<CFSET Lst_CalendarDay = ListAppend(Lst_CalendarDay
</CFLOOP>
error:
An error occurred while evaluating the expression:
#CreateODBCDate(monthstart
Error near line 312, column 114.
--------------------------
Error resolving parameter MONTHSTART
ColdFusion was unable to determine the value of the parameter. This problem is very likely due to the fact that either:
as far as i can understand ur monthstart variable has not got passed or is not defined...
i don't know from where u r passing monthend and monthstart.
i think u should check wether its getting formd or submitted etc..
Regards
Hart
i don't know from where u r passing monthend and monthstart.
i think u should check wether its getting formd or submitted etc..
Regards
Hart
yes u have commented the code correctly :-)
only part that needs to be sure of is this
first time <CFPARAM NAME="curr_date" DEFAULT="#CreateDate(Year( Now()), Month(Now()), Day(Now()))#">
this is fine but when u click on next or prev links then curr_date should be passed accordingly..
hope its clear...
Regards
Hart
only part that needs to be sure of is this
first time <CFPARAM NAME="curr_date" DEFAULT="#CreateDate(Year(
this is fine but when u click on next or prev links then curr_date should be passed accordingly..
hope its clear...
Regards
Hart
ASKER
Hi Hart - I'm almost there: having a formatting problem:
http://www.redcatweb2.org/calendar/newlookmonthly2changed.cfm
also, here's the code based on your code that i'm using:
<cfquery name="craigcal" datasource="calartscalenda r">
SELECT * FROM calendar
</cfquery>
<CFPARAM name="CurntDate" default="#now()#">
<CFIF isdefined("MonthChange")>
<CFIF monthchange is 'forward'>
<CFSET curntdate = createodbcdate(dateadd("m" , 1, lastdate))>
<CFELSE>
<CFSET curntdate = createodbcdate(dateadd("m" , -1, lastdate))>
</CFIF>
</CFIF>
<CFPARAM name="YearSet" default="#year(CurntDate)# ">
<CFPARAM name="MonthSet" default="#month(CurntDate) #">
<!--- Create the date variables to search the Database by. --->
<CFSET monthstart = createdatetime(#yearset#, #monthset#, 1, 0, 0, 0)>
<CFSET monthend = createdatetime(#yearset#, #monthset#, #daysinmonth(monthstart)#, 23, 59, 59)>
<CFQUERY datasource="calartscalenda r" name="SearchResults">
Select EventName, EventDescription, Calendar_ID, CalendarDate From calendar Where CalendarDate >= #CreateODBCDate(monthstart )# and CalendarDate <= #CreateODBCDate(monthend)# <cfif #len(eventtype)#>and EventType = '#eventtype#'</cfif>
</CFQUERY>
<CFSET Lst_EventName = Replace(ValueList(SearchRe sults.Even tName,'~') ,'~~','~ ~','All')>
<CFSET Lst_EventDescription = Replace(ValueList(SearchRe sults.Even tDescripti on,'~'),'~ ~','~ ~','All')>
<CFSET Lst_Calendar_ID = ValueList(SearchResults.Ca lendar_ID, '~')>
<CFSET Lst_CalendarDate = ValueList(SearchResults.Ca lendarDate ,'~')>
<CFPARAM NAME="curr_date" DEFAULT="#CreateDate(Year( Now()), Month(Now()), Day(Now()))#">
<!---<CFSET Lst_EventName = "Event 1~Event 2~ Event 3">
<CFSET Lst_EventDescription = "Event 1 Desc~Event 2 Desc~Event 3 Desc">
<CFSET Lst_Calendar_ID = "1~2~3">
<CFSET Lst_CalendarDate = "5/10/2003~10/10/2003~25/1 0/2003">-- ->
<CFSET Lst_CalendarDay = "">
<CFLOOP FROM="1" TO="#ListLen(Lst_CalendarD ate,'~')#" INDEX="day_index">
<CFSET Lst_CalendarDay = ListAppend(Lst_CalendarDay ,day(datef ormat(List GetAt(Lst_ CalendarDa te,day_ind ex,'~'),'d d/mm/yyyy' )),'~')>
</CFLOOP>
<!--- Code for calculating the days format to display --->
<CFSET offset = #dayofweek(monthstart)#>
<CFSET lastslot = #offset# + #daysinmonth(monthstart)#- 1>
<CFSET caldays = (#ceiling(lastslot/7)#)*7>
<CFSET day = 1>
<HTML><HEAD><TITLE>REDCAT: Monthly Calendar</TITLE>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<SCRIPT type=text/javascript>
<!--
function mmLoadMenus() {
if (window.mm_menu_1008112322 _0) return;
window.mm_menu_1008112322_ 0 = new Menu("root",250,16,"Verdan a, Arial, Helvetica, sans-serif",10,"#777777"," #BF121F"," #FFFFFF"," #FFFFFF"," left","mid dle",3,0,1 000,-5,7,t rue,false, true,0,tru e,true);
mm_menu_1008112322_0.addMe nuItem("Mo nthly  ;calendar" ,"location ='http://redcatweb.org/season/monthly.html'");
mm_menu_1008112322_0.addMe nuItem("Se ason overview", "location= 'http://redcatweb.org/season/seasonoverview.html'");
mm_menu_1008112322_0.addMe nuItem("&n bsp; Worl dview  ;Series"," location=' http://redcatweb.org/season/worldviewseries.html'");
mm_menu_1008112322_0.addMe nuItem("&n bsp; Musi cal E xploration s Ser ies","loca tion='http://redcatweb.org/season/musicalexplorations.html'");
mm_menu_1008112322_0.addMe nuItem("&n bsp; Shar on Di sney Lund Dance  ;Series"," location=' http://redcatweb.org/season/lunddance.html'");
mm_menu_1008112322_0.addMe nuItem("&n bsp; Cent er Fo r New Thea ter","loca tion='http://redcatweb.org/season/cnt.html'");
mm_menu_1008112322_0.addMe nuItem("&n bsp; Film and& nbsp;Video Seri es","locat ion='http://redcatweb.org/season/filmvideo.html'");
mm_menu_1008112322_0.addMe nuItem("&n bsp; Comm unity  ;Arts  ;Partnersh ip","locat ion='http://redcatweb.org/season/cap.html'");
mm_menu_1008112322_0.addMe nuItem("&n bsp; Pres ident's&nb sp;Ideas&n bsp;and&nb sp;Dialogu es Se ries","loc ation='http://redcatweb.org/season/presidents.html'");
mm_menu_1008112322_0.hideO nMouseOut= true;
mm_menu_1008112322_0.bgCol or='#55555 5';
mm_menu_1008112322_0.menuB order=1;
mm_menu_1008112322_0.menuL iteBgColor ='#FFFFFF' ;
mm_menu_1008112322_0.menuB orderBgCol or='#77777 7';
window.mm_menu_1008114711_ 0 = new Menu("root",143,16,"Verdan a, Arial, Helvetica, sans-serif",10,"#777777"," #BF121F"," #FFFFFF"," #FFFFFF"," left","mid dle",3,0,1 000,-5,7,t rue,false, true,0,tru e,true);
mm_menu_1008114711_0.addMe nuItem("Ga llery  ;at R EDCAT","lo cation='http://redcatweb.org/gallery/gallery.html'") ;
mm_menu_1008114711_0.addMe nuItem("Cu rrent  ;exhibitio n","locati on='http://redcatweb.org/gallery/current.html'");<!- -Craig-->
mm_menu_1008114711_0.addMe nuItem("Ex hibition&n bsp;schedu le","locat ion='http://redcatweb.org/gallery/exschedule.html'");<! --craig-->
mm_menu_1008114711_0.hideO nMouseOut= true;
mm_menu_1008114711_0.bgCol or='#55555 5';
mm_menu_1008114711_0.menuB order=1;
mm_menu_1008114711_0.menuL iteBgColor ='#FFFFFF' ;
mm_menu_1008114711_0.menuB orderBgCol or='#77777 7';
window.mm_menu_1008115821_ 0 = new Menu("root",158,16,"Verdan a, Arial, Helvetica, sans-serif",10,"#777777"," #BF121F"," #FFFFFF"," #FFFFFF"," left","mid dle",3,0,1 000,-5,7,t rue,false, true,0,tru e,true);
mm_menu_1008115821_0.addMe nuItem("Ti cketing information","location='http://redcatweb.org/tickets/tickets.html'") ;
mm_menu_1008115821_0.addMe nuItem("Ti mes & amp; prices","l ocation='http://redcatweb.org/tickets/timesprices.html'" );
mm_menu_1008115821_0.addMe nuItem("Su bscribe"," location=' http://redcatweb.org/tickets/subscribe.html'");
mm_menu_1008115821_0.addMe nuItem("Co ntact  ;box office","l ocation='http://redcatweb.org/contact.html'" );
mm_menu_1008115821_0.hideO nMouseOut= true;
mm_menu_1008115821_0.bgCol or='#55555 5';
mm_menu_1008115821_0.menuB order=1;
mm_menu_1008115821_0.menuL iteBgColor ='#FFFFFF' ;
mm_menu_1008115821_0.menuB orderBgCol or='#77777 7';
window.mm_menu_1008120230_ 0 = new Menu("root",158,16,"Verdan a, Arial, Helvetica, sans-serif",10,"#777777"," #BF121F"," #FFFFFF"," #FFFFFF"," left","mid dle",3,0,1 000,-5,7,t rue,false, true,0,tru e,true);
mm_menu_1008120230_0.addMe nuItem("Sp onsorship" ,"location ='http://redcatweb.org/participate/sponsorship.html'");
mm_menu_1008120230_0.addMe nuItem("Su pport  ;REDCAT"," location=' http://redcatweb.org/participate/support.html'");
mm_menu_1008120230_0.addMe nuItem("Ge t inv olved","lo cation='http://redcatweb.org/participate/getinvolved.html'") ;
mm_menu_1008120230_0.addMe nuItem("Ar tist opportunit ies","loca tion='http://redcatweb.org/participate/artistopportunities.html'");
mm_menu_1008120230_0.hideO nMouseOut= true;
mm_menu_1008120230_0.bgCol or='#55555 5';
mm_menu_1008120230_0.menuB order=1;
mm_menu_1008120230_0.menuL iteBgColor ='#FFFFFF' ;
mm_menu_1008120230_0.menuB orderBgCol or='#77777 7';
window.mm_menu_1008131452_ 0 = new Menu("root",180,16,"Verdan a, Arial, Helvetica, sans-serif",10,"#777777"," #BF121F"," #FFFFFF"," #FFFFFF"," left","mid dle",3,0,1 000,-5,7,t rue,false, true,0,tru e,true);
mm_menu_1008131452_0.addMe nuItem("Di rectors'&n bsp;statem ent","loca tion='http://redcatweb.org/about/directorsstatement.html'");
mm_menu_1008131452_0.addMe nuItem("Pr esident's& nbsp;messa ge","locat ion='http://redcatweb.org/about/presidentsmessage.html'");
mm_menu_1008131452_0.addMe nuItem("Ac knowledgme nts","loca tion='http://redcatweb.org/about/acknowledgments.html'");
mm_menu_1008131452_0.addMe nuItem("Hi story","lo cation='http://redcatweb.org/about/history.html'") ;
mm_menu_1008131452_0.addMe nuItem("Me dia/Press& nbsp;room" ,"location ='http://redcatweb.org/about/mediapressroom.html'");
mm_menu_1008131452_0.addMe nuItem("Te am RE DCAT","loc ation='http://redcatweb.org/about/team.html'");
mm_menu_1008131452_0.addMe nuItem("Jo b opp ortunities ","locatio n=' http://calarts.edu/about/employment/nonacademic/index.html'");
mm_menu_1008131452_0.addMe nuItem("Co ntact  ;REDCAT"," location=' http://redcatweb.org/contact.html'");
mm_menu_1008131452_0.addMe nuItem("Ab out t his s ite","loca tion='http://redcatweb.org/about/aboutthissite.html'");
mm_menu_1008131452_0.hideO nMouseOut= true;
mm_menu_1008131452_0.bgCol or='#55555 5';
mm_menu_1008131452_0.menuB order=1;
mm_menu_1008131452_0.menuL iteBgColor ='#FFFFFF' ;
mm_menu_1008131452_0.menuB orderBgCol or='#77777 7';
window.mm_menu_1008193622_ 0 = new Menu("root",124,16,"Verdan a, Arial, Helvetica, sans-serif",10,"#777777"," #BF121F"," #FFFFFF"," #FFFFFF"," left","mid dle",3,0,1 000,-5,7,t rue,false, true,0,tru e,true);
mm_menu_1008193622_0.addMe nuItem("Ca lArts  ;website", "location= 'http://calarts.edu/'");
mm_menu_1008193622_0.addMe nuItem("Bo ard o f Tru stees","lo cation='http://calarts.edu/about/trustees.html'") ;
mm_menu_1008193622_0.hideO nMouseOut= true;
mm_menu_1008193622_0.bgCol or='#55555 5';
mm_menu_1008193622_0.menuB order=1;
mm_menu_1008193622_0.menuL iteBgColor ='#FFFFFF' ;
mm_menu_1008193622_0.menuB orderBgCol or='#77777 7';
window.mm_menu_1013175119_ 0 = new Menu("root",148,16,"Verdan a, Arial, Helvetica, sans-serif",10,"#777777"," #BF121F"," #FFFFFF"," #FFFFFF"," left","mid dle",3,0,1 000,-5,7,t rue,false, true,0,tru e,true);
mm_menu_1013175119_0.addMe nuItem("RE DCAT tour","loc ation='http://redcatweb.org/visit/tour.html'");
mm_menu_1013175119_0.addMe nuItem("Lo unge at RE DCAT","loc ation='http://redcatweb.org/visit/lounge.html'");
mm_menu_1013175119_0.addMe nuItem("Me rchandise" ,"location ='http://redcatweb.org/visit/merchandise.html'");
mm_menu_1013175119_0.addMe nuItem("Pu blications ","locatio n='http://redcatweb.org/visit/publications.html'");
mm_menu_1013175119_0.addMe nuItem("Do wntown&nbs p;communit y","locati on='http://redcatweb.org/visit/downtowncommunity.html'");
mm_menu_1013175119_0.addMe nuItem("Di rections&n bsp;&& nbsp;parki ng","locat ion='http://redcatweb.org/visit/directionsparking.html'");
mm_menu_1013175119_0.hideO nMouseOut= true;
mm_menu_1013175119_0.bgCol or='#55555 5';
mm_menu_1013175119_0.menuB order=1;
mm_menu_1013175119_0.menuL iteBgColor ='#FFFFFF' ;
mm_menu_1013175119_0.menuB orderBgCol or='#77777 7';
mm_menu_1013175119_0.write Menus();
} // mmLoadMenus()
<!--
<!--
function newImage(arg) {
if (document.images) {
rslt = new Image();
rslt.src = arg;
return rslt;
}
}
function changeImages() {
if (document.images && (preloadFlag == true)) {
for (var i=0; i<changeImages.arguments.l ength; i+=2) {
document[changeImages.argu ments[i]]. src = changeImages.arguments[i+1 ];
}
}
}
var preloadFlag = false;
function preloadImages() {
if (document.images) {
about_over = newImage("images/home/abou t-over.gif ");
doctors_over = newImage("images/home/doct ors-over.g if");
pated_over = newImage("images/home/pate d-over.gif ");
appreq_over = newImage("images/home/appr eq-over.gi f");
career_over = newImage("images/home/care er-over.gi f");
news_over = newImage("images/home/news -over.gif" );
preloadFlag = true;
}
}
// -->
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x= a[i])&&x.o Src;i++) x.src=x.oSrc;
}
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_pre loadImages .arguments ; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&p arent.fram es.length) {
d=parent.frames[n.substrin g(p+1)].do cument; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length; i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&id.l ayers.leng th;i++) x=MM_findObj(n,d.layers[i] .document) ;
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arg uments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+= 3)
if ((x=MM_findObj(a[i]))!=nul l){documen t.MM_sr[j+ +]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
function MM_showMenu(menu, x, y, child, imgname) {
if (!window.mmWroteMenu) return;
MM_clearTimeout();
if (menu) {
var obj = FIND(imgname) || document.images[imgname] || document.links[imgname] || document.anchors[imgname];
x = moveXbySlicePos (x, obj);
y = moveYbySlicePos (y, obj);
}
if (document.layers) {
if (menu) {
var l = menu.menuLayer || menu;
l.top = l.left = 1;
hideActiveMenus();
if (this.visibility) l = this;
window.ActiveMenu = l;
} else {
var l = child;
}
if (!l) return;
for (var i=0; i<l.layers.length; i++) {
if (!l.layers[i].isHilite) l.layers[i].visibility = "inherit";
if (l.layers[i].document.laye rs.length > 0) MM_showMenu(null, "relative", "relative", l.layers[i]);
}
if (l.parentLayer) {
if (x != "relative") l.parentLayer.left = x || window.pageX || 0;
if (l.parentLayer.left + l.clip.width > window.innerWidth) l.parentLayer.left -= (l.parentLayer.left + l.clip.width - window.innerWidth);
if (y != "relative") l.parentLayer.top = y || window.pageY || 0;
if (l.parentLayer.isContainer ) {
l.Menu.xOffset = window.pageXOffset;
l.Menu.yOffset = window.pageYOffset;
l.parentLayer.clip.width = window.ActiveMenu.clip.wid th +2;
l.parentLayer.clip.height = window.ActiveMenu.clip.hei ght +2;
if (l.parentLayer.menuContain erBgColor && l.Menu.menuBgOpaque ) l.parentLayer.document.bgC olor = l.parentLayer.menuContaine rBgColor;
}
}
l.visibility = "inherit";
if (l.Menu) l.Menu.container.visibilit y = "inherit";
} else if (FIND("menuItem0")) {
var l = menu.menuLayer || menu;
hideActiveMenus();
if (typeof(l) == "string") l = FIND(l);
window.ActiveMenu = l;
var s = l.style;
s.visibility = "inherit";
if (x != "relative") {
s.pixelLeft = x || (window.pageX + document.body.scrollLeft) || 0;
s.left = s.pixelLeft + 'px';
}
if (y != "relative") {
s.pixelTop = y || (window.pageY + document.body.scrollTop) || 0;
s.top = s.pixelTop + 'px';
}
l.Menu.xOffset = document.body.scrollLeft;
l.Menu.yOffset = document.body.scrollTop;
}
if (menu) window.activeMenus[window. activeMenu s.length] = l;
MM_clearTimeout();
}
function MM_startTimeout() {
if( window.ActiveMenu ) {
mmStart = new Date();
mmDHFlag = true;
mmHideMenuTimer = setTimeout("mmDoHide()", window.ActiveMenu.Menu.hid eTimeout);
}
}
//-->
</SCRIPT>
<LINK href="images/redcat/REDCAT MonthlyCal endar_file s/redcat_t ext2.css" type=text/css
rel=stylesheet>
<SCRIPT language=JavaScript
src="images/redcat/REDCATM onthlyCale ndar_files /mm_menu.j s"></SCRIP T>
<META content="MSHTML 5.50.4611.1300" name=GENERATOR></HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<SCRIPT language=JavaScript1.2>mmL oadMenus() ;</SCRIPT>
<TABLE cellSpacing=0 cellPadding=0 width=748 bgColor=#cccccc border=0>
<TBODY>
<TR>
<TD vAlign=top align=left
background="images/redcat/ REDCATMont hlyCalenda r_files/mg secondaryi tems_r5_c1 .gif">
<TABLE cellSpacing=0 cellPadding=0 width=26 bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD><IMG height=582
src="images/redcat/REDCATM onthlyCale ndar_files /mgleftstr ipe.gif" width=26
border=0 name=1></TD>
</TR>
<TR>
<TD><IMG height=700
src="images/redcat/REDCATM onthlyCale ndar_files /mgseconda ryitems_r5 _c1.gif"
width=26 border=0 name=2></TD>
</TR></TBODY></TABLE></TD>
<TD vAlign=top align=left>
<TABLE cellSpacing=0 cellPadding=0 width=722 bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width=722 bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD><IMG height=212
src="images/redcat/REDCATM onthlyCale ndar_files /mgseconda ryitems_r1 _c2.gif"
width=41 border=0 name=3></TD>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width=507 bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD>
<TABLE height=60 cellSpacing=0 cellPadding=0 width=507
bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width=507
border=0>
<TBODY>
<TR>
<TD><IMG height=0
src="images/redcat/REDCATM onthlyCale ndar_files /spacer.gi f"
width=47></TD>
<TD><IMG height=0
src="images/redcat/REDCATM onthlyCale ndar_files /spacer.gi f"
width=4></TD>
<TD><IMG height=0
src="images/redcat/REDCATM onthlyCale ndar_files /spacer.gi f"
width=61></TD>
<TD><IMG height=0
src="images/redcat/REDCATM onthlyCale ndar_files /spacer.gi f"
width=7></TD>
<TD><IMG height=0
src="images/redcat/REDCATM onthlyCale ndar_files /spacer.gi f"
width=49></TD>
<TD><IMG height=0
src="images/redcat/REDCATM onthlyCale ndar_files /spacer.gi f"
width=2></TD>
<TD><IMG height=0
src="images/redcat/REDCATM onthlyCale ndar_files /spacer.gi f"
width=42></TD>
<TD><IMG height=0
src="images/redcat/REDCATM onthlyCale ndar_files /spacer.gi f"
width=4></TD>
<TD><IMG height=0
src="images/redcat/REDCATM onthlyCale ndar_files /spacer.gi f"
width=79></TD>
<TD><IMG height=0
src="images/redcat/REDCATM onthlyCale ndar_files /spacer.gi f"
width=52></TD>
<TD><IMG height=0
src="images/redcat/REDCATM onthlyCale ndar_files /spacer.gi f"
width=63></TD>
<TD><IMG height=0
src="images/redcat/REDCATM onthlyCale ndar_files /spacer.gi f"
width=97></TD>
</TR>
<TR>
<TD colSpan=12><IMG height=19
src="images/redcat/REDCATM onthlyCale ndar_files /menu3_01. gif"
width=507></TD>
</TR>
<TR><!--red fixed link-->
<TD><A
onmouseover="MM_swapImage( 'contact', '','http://calarts.edu/images/redcat/main/contact-over.gif',1)"
onmouseout=MM_swapImgResto re()
href="http://redcatweb.org/contact.html"><IMG
id=Image1 height=15
src="images/redcat/REDCATM onthlyCale ndar_files /contact.g if"
width=47 border=0 name=contact></A></TD>
<TD colSpan=3><A
onmouseover="MM_swapImage( 'mailingli st','','http://calarts.edu/images/redcat/main/mailinglist-over.gif',1)"
onmouseout=MM_swapImgResto re()
href="http://redcatweb.org/mailinglist.html"><IMG
height=15
src="images/redcat/REDCATM onthlyCale ndar_files /mailingli st.gif"
width=72 border=0 name=mailinglist></A></TD>
<TD><A
onmouseover="MM_swapImage( 'sitemap', '','http://calarts.edu/images/redcat/main/sitemap-over.gif',1)"
onmouseout=MM_swapImgResto re()
href="http://redcatweb.org/sitemap.html"><IMG
height=15
src="images/redcat/REDCATM onthlyCale ndar_files /sitemap.g if"
width=49 border=0 name=sitemap></A></TD>
<TD colSpan=3><A
onmouseover="MM_swapImage( 'search',' ','http://calarts.edu/images/redcat/main/search-over.gif',1)"
onmouseout=MM_swapImgResto re()
href="http://redcatweb.org/search.html"><IMG
height=15
src="images/redcat/REDCATM onthlyCale ndar_files /search.gi f"
width=48 border=0 name=search></A></TD>
<TD colSpan=4><IMG height=15
src="images/redcat/REDCATM onthlyCale ndar_files /menu3_06. gif"
width=291></TD>
</TR>
<TR>
<TD colSpan=12><IMG height=5
src="images/redcat/REDCATM onthlyCale ndar_files /menu3_07. gif"
width=507></TD>
</TR>
<TR><!--main navigation-->
<TD colSpan=2><A
onmouseover="MM_showMenu(w indow.mm_m enu_100811 2322_0,-3, 15,null,'s eason1')"
onmouseout=MM_startTimeout ();><IMG height=13
src="images/redcat/REDCATM onthlyCale ndar_files /season1.g if"
width=51 border=0 name=season1></A></TD>
<TD><A
onmouseover="MM_showMenu(w indow.mm_m enu_100811 4711_0,0,1 5,null,'ga llery2')"
onmouseout=MM_startTimeout ();><IMG height=13
src="images/redcat/REDCATM onthlyCale ndar_files /gallery2. gif"
width=61 border=0 name=gallery2></A></TD>
<TD colSpan=3><A
onmouseover="MM_showMenu(w indow.mm_m enu_100811 5821_0,2,1 5,null,'ti ckets3')"
onmouseout=MM_startTimeout ();><IMG height=13
src="images/redcat/REDCATM onthlyCale ndar_files /tickets3. gif"
width=58 border=0 name=tickets3></A></TD>
<TD><A
onmouseover="MM_showMenu(w indow.mm_m enu_101317 5119_0,2,1 5,null,'vi sit7')"
onmouseout=MM_startTimeout ();
href="http://redcatweb.org/season/"><IMG
id=image1 height=13
src="images/redcat/REDCATM onthlyCale ndar_files /visit7.gi f"
width=42 border=0 name=visit7></A></TD>
<TD colSpan=2><A
onmouseover="MM_showMenu(w indow.mm_m enu_100812 0230_0,2,1 5,null,'pa rticipate4 ')"
onmouseout=MM_startTimeout ();><IMG height=13
src="images/redcat/REDCATM onthlyCale ndar_files /participa te4.gif"
width=83 border=0 name=participate4></A></TD >
<TD><A
onmouseover="MM_showMenu(w indow.mm_m enu_100813 1452_0,2,1 5,null,'ab out5')"
onmouseout=MM_startTimeout ();><IMG height=13
src="images/redcat/REDCATM onthlyCale ndar_files /about5.gi f"
width=52 border=0 name=about5></A></TD>
<TD><A
onmouseover="MM_showMenu(w indow.mm_m enu_100819 3622_0,2,1 5,null,'ca larts6')"
onmouseout=MM_startTimeout ();><IMG height=13
src="images/redcat/REDCATM onthlyCale ndar_files /calarts6. gif"
width=63 border=0 name=calarts6></A></TD>
<TD rowSpan=2><IMG height=20
src="images/redcat/REDCATM onthlyCale ndar_files /menu3_15. gif"
width=97></TD>
</TR>
<TR>
<TD colSpan=11><IMG height=7
src="images/redcat/REDCATM onthlyCale ndar_files /menu3_16. gif"
width=410></TD>
</TR></TBODY></TABLE></TD> </TR></TBO DY></TABLE ><!--here- -></TD></T R>
<TR>
<TD><IMG height=152
src="images/redcat/REDCATM onthlyCale ndar_files /mgredcat. gif"
width=507 border=0 name=rc></TD>
</TR></TBODY></TABLE></TD>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width=174 bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD><A
onmouseover="MM_swapImage( 'rc','','http://calarts.edu/images/redcat/mg/mgredcat_f2.gif','rcl','','http://calarts.edu/images/redcat/mg/mgredcatleg_f2.gif',1) ;"
onmouseout=MM_swapImgResto re();
href="http://redcatweb.org/"><IMG height=114
src="images/redcat/REDCATM onthlyCale ndar_files /mgredcatl ogo.gif"
width=174 border=0 name=7></A></TD>
</TR>
<TR>
<TD><IMG height=98
src="images/redcat/REDCATM onthlyCale ndar_files /mgredcatl eg.gif"
width=174 border=0
name=rcl></TD>
</TR></TBODY></TABLE></TD> </TR></TBO DY></TABLE ></TD></TR ></TBODY>< /TABLE><BR >
<TABLE cellSpacing=0 cellPadding=0 width=722 border=0>
<TBODY>
<TR>
<TD vAlign=top align=left width=41> </TD>
<TD vAlign=top align=left width=630><BR>
<TABLE cellSpacing=0 cellPadding=2 width=558 border=0>
<TBODY>
<TR>
<TD align=left><SPAN class=calendarbold_big><cf output>#Da teFormat(C urntDate," MMMM yyyy")#</cfoutput></SPAN>< /TD>
<TD align=right><CFOUTPUT>
<cfset ldate = "#DateFormat(CurntDate,"yy yy/mm/dd") #">
<A href="newlookmonthly2.cfm? MonthChang e=Backward &LastDate= #ldate#">< SPAN class=calendarbold_big>< ;<</SPA N></A>&nbs p; <A href="newlookmonthly2.cfm? MonthChang e=Forward& LastDate=# ldate#"><S PAN class=calendarbold_big>> ;></spa n></A></cf output></T D></TR></T BODY></TAB LE><BR>
<!--- insert calendar table ---><cfoutput>
<TABLE width="600" border="0" cellpadding="0" cellspacing="0"></cfoutput >
<TR>
<TD><table width="600" border="0" cellspacing="0" cellpadding="4">
<tr align="left">
<td valign="top" width="78" height=""><span class="calendarbold"><font color="#000000">S</font></ span></td>
<td valign="top" width="2" height="0"></td>
<td valign="top" width="78" height="0"><span class="calendarbold"><font color="#000000">M</font></ span></td>
<td valign="top" width="2" height="0"></td>
<td valign="top" width="78" height="0"><span class="calendarbold"><font color="#000000">T</font></ span></td>
<td valign="top" width="2" height="0"></td>
<td valign="top" width="78" height="0"><span class="calendarbold"><font color="#000000">W</font></ span></td>
<td valign="top" width="2" height="0"></td>
<td valign="top" width="78" height="0"><span class="calendarbold"><font color="#000000">T</font></ span></td>
<td valign="top" width="2" height="0"></td>
<td valign="top" width="78" height="0"><span class="calendarbold"><font color="#000000">F</font></ span></td>
<td valign="top" width="2" height="0"></td>
<td valign="top" width="78" height="0"><span class="calendarbold"><font color="#000000">S</font></ span></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="left" valign="top" width="78" height="2"></td>
<td align="left" valign="top" width="2" height="2"></td>
<td align="left" valign="top" width="78" height="2"></td>
<td align="left" valign="top" width="2" height="2"></td>
<td align="left" valign="top" width="78" height="2"></td>
<td align="left" valign="top" width="2" height="2"></td>
<td align="left" valign="top" width="78" height="2"></td>
<td align="left" valign="top" width="2" height="2"></td>
<td align="left" valign="top" width="78" height="2"></td>
<td align="left" valign="top" width="2" height="2"></td>
<td align="left" valign="top" width="78" height="2"></td>
<td align="left" valign="top" width="2" height="2"></td>
<td align="left" valign="top" width="78" height="2"></td>
</tr>
<tr>
<!--- just change curr_date value as per date passed --->
<cfset I_ROWCNT = 1>
<cfset I_ROWNO = 1>
<!--- WILL HOLD THE N0 0F ROWS DISPLAYED IN CALENDAR. --->
<cfloop from="1" to="#Evaluate(DayOfWeek(Cr eateDate(Y ear(Curr_D ate), Month(Curr_Date), 1))-1)#" index="i_empty">
<!--- put empty spaces till the first day of month comes eg. in case of May..there would be four empty spaces. --->
<td align="left" valign="top" width="78" height="80"><span class="calendarbold">  ;</span><b r></td>
<td align="left" valign="top" width="2" height="80"> </td>
</cfloop>
<cfset I_ROWCNT = I_EMPTY>
<cfoutput>#Lst_CalendarDay #</cfoutpu t>
<cfloop from="1" to="#DaysInMonth(Curr_Date )#" index="i_day">
<cfif ListFindNoCase(Lst_Calenda rDay,i_day ,'~') NEQ 0>
<td bgcolor="#F1E39E" align="left" valign="top" width="78" height="80"><span class="calendarbold"><cfou tput>#i_da y#</cfoutp ut></span> <br>
<span class="frontcopy"><a href="showevent.cfm?CalID= <CFOUTPUT> #ListGetAt (Lst_Calen dar_ID,Lis tFindNoCas e(Lst_Cale ndarDay,i_ day,'~'),' ~')#</CFOU TPUT>"><cf output>#Li stGetAt(Ls t_EventNam e,ListFind NoCase(Lst _CalendarD ay,i_day,' ~'),'~')#< /cfoutput> </a><br>
</span></td>
<cfelse>
<td align="left" valign="top" width="78" height="80"><span class="calendarbold"><cfou tput>#i_da y#</cfoutp ut></span> <br></td>
</cfif>
<td align="left" valign="top" width="2" height="80"> </td>
<cfif I_ROWCNT MOD 7 EQ 0>
</cfif>
</cfloop>
</tr>
<tr bgcolor="#FFFFFF">
<td align="left" valign="top" colspan="13" height="2"></td>
</tr>
<tr>
<cfset I_ROWNO = IncrementValue(I_ROWNO)>
<cfset I_ROWCNT = IncrementValue(I_ROWCNT)>
</tr>
<cfif I_ROWNO LT 6>
<!--- hide this row in no. of rows is 6 --->
<tr>
<td align="left" valign="top" width="78" height="80"><span class="calendarbold"></spa n><br></td >
<td align="left" valign="top" width="2" height="80"></td>
<td align="left" valign="top" width="78" height="80"><span class="calendarbold"></spa n><br></td >
<td align="left" valign="top" width="2" height="80"></td>
<td align="left" valign="top" width="78" height="80"><span class="calendarbold"></spa n><br></td >
<td align="left" valign="top" width="2" height="80"></td>
<td align="left" valign="top" width="78" height="80"><span class="calendarbold"></spa n><br></td >
<td align="left" valign="top" width="2" height="80"></td>
<td align="left" valign="top" width="78" height="80"><span class="calendarbold"></spa n><br></td >
<td align="left" valign="top" width="2" height="80"></td>
<td align="left" valign="top" width="78" height="80"><span class="calendarbold"></spa n><br></td >
<td align="left" valign="top" width="2" height="80"></td>
<td align="left" valign="top" width="78" height="80"><span class="calendarbold"></spa n><br></td >
</tr>
</cfif>
</table></TD>
</TR>
</TABLE></TD></TR></TBODY> </TABLE>
<CENTER>
<IMG height=359 alt=""
src="images/redcat/REDCATM onthlyCale ndar_files /seasondar kgray.gif" width=640
border=0>
</CENTER></TD></TR></TBODY ></TABLE>< /BODY></HT ML>
http://www.redcatweb2.org/calendar/newlookmonthly2changed.cfm
also, here's the code based on your code that i'm using:
<cfquery name="craigcal" datasource="calartscalenda
SELECT * FROM calendar
</cfquery>
<CFPARAM name="CurntDate" default="#now()#">
<CFIF isdefined("MonthChange")>
<CFIF monthchange is 'forward'>
<CFSET curntdate = createodbcdate(dateadd("m"
<CFELSE>
<CFSET curntdate = createodbcdate(dateadd("m"
</CFIF>
</CFIF>
<CFPARAM name="YearSet" default="#year(CurntDate)#
<CFPARAM name="MonthSet" default="#month(CurntDate)
<!--- Create the date variables to search the Database by. --->
<CFSET monthstart = createdatetime(#yearset#, #monthset#, 1, 0, 0, 0)>
<CFSET monthend = createdatetime(#yearset#, #monthset#, #daysinmonth(monthstart)#,
<CFQUERY datasource="calartscalenda
Select EventName, EventDescription, Calendar_ID, CalendarDate From calendar Where CalendarDate >= #CreateODBCDate(monthstart
</CFQUERY>
<CFSET Lst_EventName = Replace(ValueList(SearchRe
<CFSET Lst_EventDescription = Replace(ValueList(SearchRe
<CFSET Lst_Calendar_ID = ValueList(SearchResults.Ca
<CFSET Lst_CalendarDate = ValueList(SearchResults.Ca
<CFPARAM NAME="curr_date" DEFAULT="#CreateDate(Year(
<!---<CFSET Lst_EventName = "Event 1~Event 2~ Event 3">
<CFSET Lst_EventDescription = "Event 1 Desc~Event 2 Desc~Event 3 Desc">
<CFSET Lst_Calendar_ID = "1~2~3">
<CFSET Lst_CalendarDate = "5/10/2003~10/10/2003~25/1
<CFSET Lst_CalendarDay = "">
<CFLOOP FROM="1" TO="#ListLen(Lst_CalendarD
<CFSET Lst_CalendarDay = ListAppend(Lst_CalendarDay
</CFLOOP>
<!--- Code for calculating the days format to display --->
<CFSET offset = #dayofweek(monthstart)#>
<CFSET lastslot = #offset# + #daysinmonth(monthstart)#-
<CFSET caldays = (#ceiling(lastslot/7)#)*7>
<CFSET day = 1>
<HTML><HEAD><TITLE>REDCAT:
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<SCRIPT type=text/javascript>
<!--
function mmLoadMenus() {
if (window.mm_menu_1008112322
window.mm_menu_1008112322_
mm_menu_1008112322_0.addMe
mm_menu_1008112322_0.addMe
mm_menu_1008112322_0.addMe
mm_menu_1008112322_0.addMe
mm_menu_1008112322_0.addMe
mm_menu_1008112322_0.addMe
mm_menu_1008112322_0.addMe
mm_menu_1008112322_0.addMe
mm_menu_1008112322_0.addMe
mm_menu_1008112322_0.hideO
mm_menu_1008112322_0.bgCol
mm_menu_1008112322_0.menuB
mm_menu_1008112322_0.menuL
mm_menu_1008112322_0.menuB
window.mm_menu_1008114711_
mm_menu_1008114711_0.addMe
mm_menu_1008114711_0.addMe
mm_menu_1008114711_0.addMe
mm_menu_1008114711_0.hideO
mm_menu_1008114711_0.bgCol
mm_menu_1008114711_0.menuB
mm_menu_1008114711_0.menuL
mm_menu_1008114711_0.menuB
window.mm_menu_1008115821_
mm_menu_1008115821_0.addMe
mm_menu_1008115821_0.addMe
mm_menu_1008115821_0.addMe
mm_menu_1008115821_0.addMe
mm_menu_1008115821_0.hideO
mm_menu_1008115821_0.bgCol
mm_menu_1008115821_0.menuB
mm_menu_1008115821_0.menuL
mm_menu_1008115821_0.menuB
window.mm_menu_1008120230_
mm_menu_1008120230_0.addMe
mm_menu_1008120230_0.addMe
mm_menu_1008120230_0.addMe
mm_menu_1008120230_0.addMe
mm_menu_1008120230_0.hideO
mm_menu_1008120230_0.bgCol
mm_menu_1008120230_0.menuB
mm_menu_1008120230_0.menuL
mm_menu_1008120230_0.menuB
window.mm_menu_1008131452_
mm_menu_1008131452_0.addMe
mm_menu_1008131452_0.addMe
mm_menu_1008131452_0.addMe
mm_menu_1008131452_0.addMe
mm_menu_1008131452_0.addMe
mm_menu_1008131452_0.addMe
mm_menu_1008131452_0.addMe
mm_menu_1008131452_0.addMe
mm_menu_1008131452_0.addMe
mm_menu_1008131452_0.hideO
mm_menu_1008131452_0.bgCol
mm_menu_1008131452_0.menuB
mm_menu_1008131452_0.menuL
mm_menu_1008131452_0.menuB
window.mm_menu_1008193622_
mm_menu_1008193622_0.addMe
mm_menu_1008193622_0.addMe
mm_menu_1008193622_0.hideO
mm_menu_1008193622_0.bgCol
mm_menu_1008193622_0.menuB
mm_menu_1008193622_0.menuL
mm_menu_1008193622_0.menuB
window.mm_menu_1013175119_
mm_menu_1013175119_0.addMe
mm_menu_1013175119_0.addMe
mm_menu_1013175119_0.addMe
mm_menu_1013175119_0.addMe
mm_menu_1013175119_0.addMe
mm_menu_1013175119_0.addMe
mm_menu_1013175119_0.hideO
mm_menu_1013175119_0.bgCol
mm_menu_1013175119_0.menuB
mm_menu_1013175119_0.menuL
mm_menu_1013175119_0.menuB
mm_menu_1013175119_0.write
} // mmLoadMenus()
<!--
<!--
function newImage(arg) {
if (document.images) {
rslt = new Image();
rslt.src = arg;
return rslt;
}
}
function changeImages() {
if (document.images && (preloadFlag == true)) {
for (var i=0; i<changeImages.arguments.l
document[changeImages.argu
}
}
}
var preloadFlag = false;
function preloadImages() {
if (document.images) {
about_over = newImage("images/home/abou
doctors_over = newImage("images/home/doct
pated_over = newImage("images/home/pate
appreq_over = newImage("images/home/appr
career_over = newImage("images/home/care
news_over = newImage("images/home/news
preloadFlag = true;
}
}
// -->
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=
}
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_pre
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&p
d=parent.frames[n.substrin
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;
for(i=0;!x&&d.layers&&id.l
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arg
if ((x=MM_findObj(a[i]))!=nul
}
//-->
function MM_showMenu(menu, x, y, child, imgname) {
if (!window.mmWroteMenu) return;
MM_clearTimeout();
if (menu) {
var obj = FIND(imgname) || document.images[imgname] || document.links[imgname] || document.anchors[imgname];
x = moveXbySlicePos (x, obj);
y = moveYbySlicePos (y, obj);
}
if (document.layers) {
if (menu) {
var l = menu.menuLayer || menu;
l.top = l.left = 1;
hideActiveMenus();
if (this.visibility) l = this;
window.ActiveMenu = l;
} else {
var l = child;
}
if (!l) return;
for (var i=0; i<l.layers.length; i++) {
if (!l.layers[i].isHilite) l.layers[i].visibility = "inherit";
if (l.layers[i].document.laye
}
if (l.parentLayer) {
if (x != "relative") l.parentLayer.left = x || window.pageX || 0;
if (l.parentLayer.left + l.clip.width > window.innerWidth) l.parentLayer.left -= (l.parentLayer.left + l.clip.width - window.innerWidth);
if (y != "relative") l.parentLayer.top = y || window.pageY || 0;
if (l.parentLayer.isContainer
l.Menu.xOffset = window.pageXOffset;
l.Menu.yOffset = window.pageYOffset;
l.parentLayer.clip.width = window.ActiveMenu.clip.wid
l.parentLayer.clip.height = window.ActiveMenu.clip.hei
if (l.parentLayer.menuContain
}
}
l.visibility = "inherit";
if (l.Menu) l.Menu.container.visibilit
} else if (FIND("menuItem0")) {
var l = menu.menuLayer || menu;
hideActiveMenus();
if (typeof(l) == "string") l = FIND(l);
window.ActiveMenu = l;
var s = l.style;
s.visibility = "inherit";
if (x != "relative") {
s.pixelLeft = x || (window.pageX + document.body.scrollLeft) || 0;
s.left = s.pixelLeft + 'px';
}
if (y != "relative") {
s.pixelTop = y || (window.pageY + document.body.scrollTop) || 0;
s.top = s.pixelTop + 'px';
}
l.Menu.xOffset = document.body.scrollLeft;
l.Menu.yOffset = document.body.scrollTop;
}
if (menu) window.activeMenus[window.
MM_clearTimeout();
}
function MM_startTimeout() {
if( window.ActiveMenu ) {
mmStart = new Date();
mmDHFlag = true;
mmHideMenuTimer = setTimeout("mmDoHide()", window.ActiveMenu.Menu.hid
}
}
//-->
</SCRIPT>
<LINK href="images/redcat/REDCAT
rel=stylesheet>
<SCRIPT language=JavaScript
src="images/redcat/REDCATM
<META content="MSHTML 5.50.4611.1300" name=GENERATOR></HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<SCRIPT language=JavaScript1.2>mmL
<TABLE cellSpacing=0 cellPadding=0 width=748 bgColor=#cccccc border=0>
<TBODY>
<TR>
<TD vAlign=top align=left
background="images/redcat/
<TABLE cellSpacing=0 cellPadding=0 width=26 bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD><IMG height=582
src="images/redcat/REDCATM
border=0 name=1></TD>
</TR>
<TR>
<TD><IMG height=700
src="images/redcat/REDCATM
width=26 border=0 name=2></TD>
</TR></TBODY></TABLE></TD>
<TD vAlign=top align=left>
<TABLE cellSpacing=0 cellPadding=0 width=722 bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width=722 bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD><IMG height=212
src="images/redcat/REDCATM
width=41 border=0 name=3></TD>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width=507 bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD>
<TABLE height=60 cellSpacing=0 cellPadding=0 width=507
bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width=507
border=0>
<TBODY>
<TR>
<TD><IMG height=0
src="images/redcat/REDCATM
width=47></TD>
<TD><IMG height=0
src="images/redcat/REDCATM
width=4></TD>
<TD><IMG height=0
src="images/redcat/REDCATM
width=61></TD>
<TD><IMG height=0
src="images/redcat/REDCATM
width=7></TD>
<TD><IMG height=0
src="images/redcat/REDCATM
width=49></TD>
<TD><IMG height=0
src="images/redcat/REDCATM
width=2></TD>
<TD><IMG height=0
src="images/redcat/REDCATM
width=42></TD>
<TD><IMG height=0
src="images/redcat/REDCATM
width=4></TD>
<TD><IMG height=0
src="images/redcat/REDCATM
width=79></TD>
<TD><IMG height=0
src="images/redcat/REDCATM
width=52></TD>
<TD><IMG height=0
src="images/redcat/REDCATM
width=63></TD>
<TD><IMG height=0
src="images/redcat/REDCATM
width=97></TD>
</TR>
<TR>
<TD colSpan=12><IMG height=19
src="images/redcat/REDCATM
width=507></TD>
</TR>
<TR><!--red fixed link-->
<TD><A
onmouseover="MM_swapImage(
onmouseout=MM_swapImgResto
href="http://redcatweb.org/contact.html"><IMG
id=Image1 height=15
src="images/redcat/REDCATM
width=47 border=0 name=contact></A></TD>
<TD colSpan=3><A
onmouseover="MM_swapImage(
onmouseout=MM_swapImgResto
href="http://redcatweb.org/mailinglist.html"><IMG
height=15
src="images/redcat/REDCATM
width=72 border=0 name=mailinglist></A></TD>
<TD><A
onmouseover="MM_swapImage(
onmouseout=MM_swapImgResto
href="http://redcatweb.org/sitemap.html"><IMG
height=15
src="images/redcat/REDCATM
width=49 border=0 name=sitemap></A></TD>
<TD colSpan=3><A
onmouseover="MM_swapImage(
onmouseout=MM_swapImgResto
href="http://redcatweb.org/search.html"><IMG
height=15
src="images/redcat/REDCATM
width=48 border=0 name=search></A></TD>
<TD colSpan=4><IMG height=15
src="images/redcat/REDCATM
width=291></TD>
</TR>
<TR>
<TD colSpan=12><IMG height=5
src="images/redcat/REDCATM
width=507></TD>
</TR>
<TR><!--main navigation-->
<TD colSpan=2><A
onmouseover="MM_showMenu(w
onmouseout=MM_startTimeout
src="images/redcat/REDCATM
width=51 border=0 name=season1></A></TD>
<TD><A
onmouseover="MM_showMenu(w
onmouseout=MM_startTimeout
src="images/redcat/REDCATM
width=61 border=0 name=gallery2></A></TD>
<TD colSpan=3><A
onmouseover="MM_showMenu(w
onmouseout=MM_startTimeout
src="images/redcat/REDCATM
width=58 border=0 name=tickets3></A></TD>
<TD><A
onmouseover="MM_showMenu(w
onmouseout=MM_startTimeout
href="http://redcatweb.org/season/"><IMG
id=image1 height=13
src="images/redcat/REDCATM
width=42 border=0 name=visit7></A></TD>
<TD colSpan=2><A
onmouseover="MM_showMenu(w
onmouseout=MM_startTimeout
src="images/redcat/REDCATM
width=83 border=0 name=participate4></A></TD
<TD><A
onmouseover="MM_showMenu(w
onmouseout=MM_startTimeout
src="images/redcat/REDCATM
width=52 border=0 name=about5></A></TD>
<TD><A
onmouseover="MM_showMenu(w
onmouseout=MM_startTimeout
src="images/redcat/REDCATM
width=63 border=0 name=calarts6></A></TD>
<TD rowSpan=2><IMG height=20
src="images/redcat/REDCATM
width=97></TD>
</TR>
<TR>
<TD colSpan=11><IMG height=7
src="images/redcat/REDCATM
width=410></TD>
</TR></TBODY></TABLE></TD>
<TR>
<TD><IMG height=152
src="images/redcat/REDCATM
width=507 border=0 name=rc></TD>
</TR></TBODY></TABLE></TD>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width=174 bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD><A
onmouseover="MM_swapImage(
onmouseout=MM_swapImgResto
href="http://redcatweb.org/"><IMG height=114
src="images/redcat/REDCATM
width=174 border=0 name=7></A></TD>
</TR>
<TR>
<TD><IMG height=98
src="images/redcat/REDCATM
width=174 border=0
name=rcl></TD>
</TR></TBODY></TABLE></TD>
<TABLE cellSpacing=0 cellPadding=0 width=722 border=0>
<TBODY>
<TR>
<TD vAlign=top align=left width=41> </TD>
<TD vAlign=top align=left width=630><BR>
<TABLE cellSpacing=0 cellPadding=2 width=558 border=0>
<TBODY>
<TR>
<TD align=left><SPAN class=calendarbold_big><cf
<TD align=right><CFOUTPUT>
<cfset ldate = "#DateFormat(CurntDate,"yy
<A href="newlookmonthly2.cfm?
<!--- insert calendar table ---><cfoutput>
<TABLE width="600" border="0" cellpadding="0" cellspacing="0"></cfoutput
<TR>
<TD><table width="600" border="0" cellspacing="0" cellpadding="4">
<tr align="left">
<td valign="top" width="78" height=""><span class="calendarbold"><font
<td valign="top" width="2" height="0"></td>
<td valign="top" width="78" height="0"><span class="calendarbold"><font
<td valign="top" width="2" height="0"></td>
<td valign="top" width="78" height="0"><span class="calendarbold"><font
<td valign="top" width="2" height="0"></td>
<td valign="top" width="78" height="0"><span class="calendarbold"><font
<td valign="top" width="2" height="0"></td>
<td valign="top" width="78" height="0"><span class="calendarbold"><font
<td valign="top" width="2" height="0"></td>
<td valign="top" width="78" height="0"><span class="calendarbold"><font
<td valign="top" width="2" height="0"></td>
<td valign="top" width="78" height="0"><span class="calendarbold"><font
</tr>
<tr bgcolor="#FFFFFF">
<td align="left" valign="top" width="78" height="2"></td>
<td align="left" valign="top" width="2" height="2"></td>
<td align="left" valign="top" width="78" height="2"></td>
<td align="left" valign="top" width="2" height="2"></td>
<td align="left" valign="top" width="78" height="2"></td>
<td align="left" valign="top" width="2" height="2"></td>
<td align="left" valign="top" width="78" height="2"></td>
<td align="left" valign="top" width="2" height="2"></td>
<td align="left" valign="top" width="78" height="2"></td>
<td align="left" valign="top" width="2" height="2"></td>
<td align="left" valign="top" width="78" height="2"></td>
<td align="left" valign="top" width="2" height="2"></td>
<td align="left" valign="top" width="78" height="2"></td>
</tr>
<tr>
<!--- just change curr_date value as per date passed --->
<cfset I_ROWCNT = 1>
<cfset I_ROWNO = 1>
<!--- WILL HOLD THE N0 0F ROWS DISPLAYED IN CALENDAR. --->
<cfloop from="1" to="#Evaluate(DayOfWeek(Cr
<!--- put empty spaces till the first day of month comes eg. in case of May..there would be four empty spaces. --->
<td align="left" valign="top" width="78" height="80"><span class="calendarbold"> 
<td align="left" valign="top" width="2" height="80"> </td>
</cfloop>
<cfset I_ROWCNT = I_EMPTY>
<cfoutput>#Lst_CalendarDay
<cfloop from="1" to="#DaysInMonth(Curr_Date
<cfif ListFindNoCase(Lst_Calenda
<td bgcolor="#F1E39E" align="left" valign="top" width="78" height="80"><span class="calendarbold"><cfou
<span class="frontcopy"><a href="showevent.cfm?CalID=
</span></td>
<cfelse>
<td align="left" valign="top" width="78" height="80"><span class="calendarbold"><cfou
</cfif>
<td align="left" valign="top" width="2" height="80"> </td>
<cfif I_ROWCNT MOD 7 EQ 0>
</cfif>
</cfloop>
</tr>
<tr bgcolor="#FFFFFF">
<td align="left" valign="top" colspan="13" height="2"></td>
</tr>
<tr>
<cfset I_ROWNO = IncrementValue(I_ROWNO)>
<cfset I_ROWCNT = IncrementValue(I_ROWCNT)>
</tr>
<cfif I_ROWNO LT 6>
<!--- hide this row in no. of rows is 6 --->
<tr>
<td align="left" valign="top" width="78" height="80"><span class="calendarbold"></spa
<td align="left" valign="top" width="2" height="80"></td>
<td align="left" valign="top" width="78" height="80"><span class="calendarbold"></spa
<td align="left" valign="top" width="2" height="80"></td>
<td align="left" valign="top" width="78" height="80"><span class="calendarbold"></spa
<td align="left" valign="top" width="2" height="80"></td>
<td align="left" valign="top" width="78" height="80"><span class="calendarbold"></spa
<td align="left" valign="top" width="2" height="80"></td>
<td align="left" valign="top" width="78" height="80"><span class="calendarbold"></spa
<td align="left" valign="top" width="2" height="80"></td>
<td align="left" valign="top" width="78" height="80"><span class="calendarbold"></spa
<td align="left" valign="top" width="2" height="80"></td>
<td align="left" valign="top" width="78" height="80"><span class="calendarbold"></spa
</tr>
</cfif>
</table></TD>
</TR>
</TABLE></TD></TR></TBODY>
<CENTER>
<IMG height=359 alt=""
src="images/redcat/REDCATM
border=0>
</CENTER></TD></TR></TBODY
ASKER
also, check out the curr_date strangeness here;
http://www.redcatweb2.org/calendar/newlookmonthly2changed.cfm?MonthChange=Forward&LastDate=2003/10/24
http://www.redcatweb2.org/calendar/newlookmonthly2changed.cfm?MonthChange=Forward&LastDate=2003/10/24
compare this part in your code with my given code, its different
<cfif I_ROWCNT MOD 7 EQ 0><!--- y is this cfif empty, i ahd give some code for that --->
</cfif>
</cfloop>
</tr>
<tr bgcolor="#FFFFFF">
<td align="left" valign="top" colspan="13" height="2"></td>
</tr>
<tr>
<cfset I_ROWNO = IncrementValue(I_ROWNO)>
<cfset I_ROWCNT = IncrementValue(I_ROWCNT)>
and mine was like this
<CFIF I_ROWCNT MOD 7 EQ 0><!--- see the difference --->
</TR>
<TR bgcolor="#FFFFFF">
<TD align="left" valign="top" colspan="13" height="2"></TD>
</TR>
<TR>
<CFSET I_ROWNO = IncrementValue(I_ROWNO)>
</CFIF>
<CFSET I_ROWCNT = IncrementValue(I_ROWCNT)>
</CFLOOP>
</TR>
Regards
Hart
<cfif I_ROWCNT MOD 7 EQ 0><!--- y is this cfif empty, i ahd give some code for that --->
</cfif>
</cfloop>
</tr>
<tr bgcolor="#FFFFFF">
<td align="left" valign="top" colspan="13" height="2"></td>
</tr>
<tr>
<cfset I_ROWNO = IncrementValue(I_ROWNO)>
<cfset I_ROWCNT = IncrementValue(I_ROWCNT)>
and mine was like this
<CFIF I_ROWCNT MOD 7 EQ 0><!--- see the difference --->
</TR>
<TR bgcolor="#FFFFFF">
<TD align="left" valign="top" colspan="13" height="2"></TD>
</TR>
<TR>
<CFSET I_ROWNO = IncrementValue(I_ROWNO)>
</CFIF>
<CFSET I_ROWCNT = IncrementValue(I_ROWCNT)>
</CFLOOP>
</TR>
Regards
Hart
ASKER
Hart -
thank you so much for the help - that totally works! enjoy the points. one quick related question though - did you see
that i'm getting
"15~16~17~18~30~31~1~1~1~1 " in the upper left of the table where the current date is?
this is my code:
<TD align=left><SPAN class=calendarbold_big><cf output>#Da teFormat(C urntDate," MMMM yyyy")#</cfoutput></SPAN>< /TD>
any ideas??
thank you so much for the help - that totally works! enjoy the points. one quick related question though - did you see
that i'm getting
"15~16~17~18~30~31~1~1~1~1
this is my code:
<TD align=left><SPAN class=calendarbold_big><cf
any ideas??
just remove this code from file <cfoutput>#Lst_CalendarDay #</cfoutpu t>
its like this
<cfset I_ROWCNT = I_EMPTY>
<cfoutput>#Lst_CalendarDay #</cfoutpu t>
just remove the cfoutput part then 15~16~17~18~30~31~1~1~1~1 this won't come... :-)
Regards
Hart
its like this
<cfset I_ROWCNT = I_EMPTY>
<cfoutput>#Lst_CalendarDay
just remove the cfoutput part then 15~16~17~18~30~31~1~1~1~1 this won't come... :-)
Regards
Hart
ASKER
thanks again for all the help hart!
ASKER
hi hart,
i just noticed something major in your code: the dates in the calendar are screwed up. ie - november starts on the
wrong day, and, although there are 30 days in november - there are 31 using your code - actually, there are 31 in every
month using your code.
can you take a quick look at the code below and tell me if you see anything?????
i started a new question to make it worth your while:
https://www.experts-exchange.com/questions/20783668/cf-calendar-app-suddenly-rendering-the-wrong-dates-in-the-wrong-places.html
thanks!
i just noticed something major in your code: the dates in the calendar are screwed up. ie - november starts on the
wrong day, and, although there are 30 days in november - there are 31 using your code - actually, there are 31 in every
month using your code.
can you take a quick look at the code below and tell me if you see anything?????
i started a new question to make it worth your while:
https://www.experts-exchange.com/questions/20783668/cf-calendar-app-suddenly-rendering-the-wrong-dates-in-the-wrong-places.html
thanks!
check ur view source of html file and ur final out put of cf file.
they won't match
Regards
Hart