[LASSO_COMMENT] Next line is content (IMAGE) background of the current day. should be light [VAR_Set:'Thisday'='/images/callogo.jpg'] Set the customer ID and forms paths for this calendar [Var_Set:'Custid'="SJL"] [VAR_SET:'formlocation'='/calendar.dhtm'] [VAR_SET:'editformlocation'='/Secure_SJL_Forms/editcal.dhtm'] [VAR_SET:'calbackground'='/images/background.jpg'] [/LASSO_COMMENT]

Calendar of Events
[LASSO_COMMENT] [LIST_FROMSTRING:'events','||||||||||||||||||||||||||||||',ListDelimiter='|'] [LIST_FROMSTRING:'links', '||||||||||||||||||||||||||||||',ListDelimiter='|'] [List_FromString:'day_of_week','Sun Mon Tue Wed Thu Fri Sat', ListDelimiter=' '] [List_FromString:'month_of_year','January February March April May June July August September October November December', ListDelimiter=' '] LOAD FROM THE YEAR+MONTH FILE IF IT EXISTS INTO THE 31 element,event list and link list, FIELDS ARE DAY,EVENT,LINK Day= Position to change in lists... [IF:(FORM_PARAM:'mon')=""|(FORM_PARAM:'year')=""] [VARIABLE_SET:'workingdate'=(Server_date)] [ELSE] [VARIABLE_SET:'workingdate'=(Date: Month=(FORM_PARAM:'mon'), Day='1', Year=(FORM_PARAM:'year'))] [/IF] [Variable_Set:'year'=(Date_GetYear:(VAR:'workingdate'))] [Variable_Set:'month'=(Date_GetMonth: (VAR:'workingdate'))] [Variable_Set:'today'=(Date_GetDay:(VAR:'workingdate'))] [Variable_Set:'weekday'=(Date_GetDayOfWeek:(VAR:'workingdate'),DateShortName)] [Variable_Set:'DAYS_OF_WEEK'=7, 'DAYS_OF_MONTH'=31, 'todaysdate'=(Date_Format: (Server_date), DateFormat='%m/%d/%Y')] [VAR_SET:'prevmonth'=(DATE_SUBTRACT:(VAR:'workingdate'),day='1')] [VAR_SET:'prevyear'=(Date_GetYear:(VAR:'prevmonth'))] [VAR_SET:'nextmonth'=(DATE_ADD:(VAR:'workingdate'),day='31')] [VAR_SET:'nextyear'=(Date_GetYear:(VAR:'nextmonth'))] [/Lasso_comment] [inline:-Database='WebCalendar',-Table='web',-response='cal.dhtm',op='eq','CUSTID'=(Var:'Custid'),op='eq','YEAR'=(Variable:'year'),op='eq','MONTH'=(Variable:'month'),-sortfield='DAY',-Search] [RECORDS] [IF:(FIELD:'EVENTLINK')!=''] [IF:(FIELD:'EVENTLINK')='showdetail'] [Var_SET:'eventlink'=(STRING_CONCATENATE:'/dispcaldetail.dhtm?therecid=',(recordid_value))] [ELSE] [Var_SET:'eventlink'=(FIELD:'EVENTLINK',encoderaw)] [/IF] [VAR_SET:'lstart'=(STRING_CONCATENATE:'<','A HREF=',(VAR:'eventlink',encoderaw),'>',encoderaw),encoderaw] [VAR_SET:'lend'='',encoderaw] [ELSE] [VAR_SET:'lstart'='','lend'=''] [/IF] [IF:(FIELD:'ISAGRAPHIC')="Y"] [VAR_SET:'CALCEVENT'=(STRING_CONCATENATE,(FIELD:'GRAPHIC',encoderaw),encoderaw)] [ELSE] [VAR_SET:'CALCEVENT'=(FIELD:'EVENTTITLE',encoderaw)] [/IF] [List_ReplaceItem:'events',ListIndex=(Field:'DAY'), (STRING_CONCATENATE:(List_GetItem:'events',ListIndex=(FIELD:'day'),encoderaw),(VAR:'lstart',encoderaw),(VAR:'CALCEVENT',encoderaw),(VAR:'lend',encoderaw),'
',encoderaw),encoderaw] [/RECORDS] [/INLINE]
[LASSO_COMMENT] FIND THE DAY OF THE FIRST DAY OF THIS MONTH FILL IN BLANK DAYS UNTIL THIS DAY [/LASSO_COMMENT] [VARIABLE_SET:'fday'=(Date_GetDayOfWeek:(Date: Month=(VAR:'month'), Day='1', Year=(VAR:'year')),dateshortname)] [Loop:'8'] [VAR_SET:'startat'=(loopcount)] [If:(List_GetItem:'day_of_week',ListIndex=(LoopCount))=(Var:'fday')][LoopAbort][/If] [/Loop][LASSO_COMMENT] FILL IN THE CALENDAR [/LASSO_COMMENT][Loop:(VAR:'DAYS_OF_MONTH')][VAR_SET:'currentdate'=(Date: Month=(VAR:'month'), Day=(loopcount), Year=(VAR:'year'))][VARIABLE_SET:'theday'=(Date_GetDayOfWeek:(VAR:'currentdate'),dateshortname)][Variable_set:'thedaynum'=(Date_GetDayOfWeek:(VAR:'currentdate'))] [IF:(VAR:'theday')=="Sun"] [/IF] [IF:(Date_GetMonth: (Date_Add: (VAR:'currentdate'), Day='1'))>(VAR:'month')] [LoopAbort] [/IF] [/Loop] [Loop:7] [IF:(MATH_ADD:(VAR:'thedaynum'),(loopcount))>7] [LoopAbort] [ELSE] [/IF][/LOOP]

[List_GetItem:'month_of_year',ListIndex=(VAR:'month')] [VAR:'year']

Sunday

Monday

Tuesday

Wednesday

Thursday

Friday

Saturday

.

[loopcount]
[List_GetItem:'events',ListIndex=(LoopCount),encoderaw]

.

Update Calendar (authorized use only)