PageRenderTime 40ms CodeModel.GetById 1ms RepoModel.GetById 0ms app.codeStats 1ms

/members_only/include/calendar/include/Copy of calendar_functions.asa

https://github.com/evizitei/bcfpd_asp
ASP | 1067 lines | 904 code | 86 blank | 77 comment | 6 complexity | dd73978b69d4fc86eb61fdbb38806835 MD5 | raw file
    

  1. <!-- #include virtual="/include/constants/database.asa"-->

    2. 

  2. <!--#include file="times.asa"-->

    3. 

  3. 

    4. 

  4. 

    5. 

  5. <style type="text/css">

    6. 

  6. 		

    7. 

  7. 	.DayBar {background-color: #CC0000;}	

    8. 

  8. 	.CurrentDay {background-color: #CCCCFF;}

    9. 

  9. 	.SmallCurrentDay {background-color: #330099;}

    10. 

  10. 	.AllDayEvent {background-color: #BDF8DD;}

    11. 

  11. 	.ViewTab {background-color: #b0c4de;}

    12. 

  12. 	.MonthBar {background-color: white;}

    13. 

  13. 	.SelectedDay {background-color: #BDF8DD;}

    14. 

  14. 	.ExtraDays {background-color: #dddddd;}

    15. 

  15. 	.DateText {color: #CC0000;}

    16. 

  16. 	.borders {background-color: #444444;}

    17. 

  17. 	

    18. 

  18. 	.TextField {font-family: "Trebuchet MS"; border-width: 1; border-style: solid}

    19. 

  19. 	.TextAreaField {font-family: "Trebuchet MS"; border-width: 1; border-style: solid}

    20. 

  20. 	.ComboField {font-family: "Trebuchet MS"; border-width: 1; border-style: solid}

    21. 

  21. 

    22. 

  22. 	td{

    23. 

  23. 		font-family:arial;

    24. 

  24. 	}

    25. 

  25. 	td.daysOfWeekBar{

    26. 

  26. 		font-family:arial;

    27. 

  27. 		background-color: #330099;

    28. 

  28. 	}

    29. 

  29. 		

    30. 

  30. 	a.date{

    31. 

  31. 		color: #330099;

    32. 

  32. 		font-family:arial;

    33. 

  33. 		text-decoration:underline;

    34. 

  34. 	}

    35. 

  35. 	a.date:hover{

    36. 

  36. 		color: #330099;

    37. 

  37. 		font-family:arial;

    38. 

  38. 		text-decoration:none;

    39. 

  39. 	}

    40. 

  40. 	a.Todaydate{

    41. 

  41. 		color: #CC0000;

    42. 

  42. 		font-family:arial;

    43. 

  43. 		text-decoration:underline;

    44. 

  44. 	}

    45. 

  45. 	a.Todaydate:hover{

    46. 

  46. 		color: #CC0000;

    47. 

  47. 		font-family:arial;

    48. 

  48. 		text-decoration:none;

    49. 

  49. 	}

    50. 

  50. 	

    51. 

  51. 	a.updateLinks{

    52. 

  52. 		color: blue;

    53. 

  53. 		font-family:arial;

    54. 

  54. 		text-decoration:underline;

    55. 

  55. 	}

    56. 

  56. 	a.updateLinks:hover{

    57. 

  57. 		color: blue;

    58. 

  58. 		font-family:arial;

    59. 

  59. 		text-decoration:none;

    60. 

  60. 	}

    61. 

  61. 	

    62. 

  62. 	a.eventLinks{

    63. 

  63. 		color: blue;

    64. 

  64. 		font-family:arial;

    65. 

  65. 		text-decoration:underline;

    66. 

  66. 	}

    67. 

  67. 	a.eventLinks:hover{

    68. 

  68. 		color: blue;

    69. 

  69. 		font-family:arial;

    70. 

  70. 		text-decoration:none;

    71. 

  71. 	}

    72. 

  72. 	

    73. 

  73. 	a.smallCalendarDate{

    74. 

  74. 		color: #C00002;

    75. 

  75. 		font-family:arial;

    76. 

  76. 		text-decoration:none;

    77. 

  77. 	}

    78. 

  78. 	a.smallCalendarDate:hover{

    79. 

  79. 		color: #C00002;

    80. 

  80. 		font-family:arial;

    81. 

  81. 		text-decoration:underline;

    82. 

  82. 	}

    83. 

  83. 	a.smallCalendarCurrentDate{

    84. 

  84. 		color: white;

    85. 

  85. 		font-family:arial;

    86. 

  86. 		text-decoration:none;

    87. 

  87. 	}

    88. 

  88. 	a.smallCalendarCurrentDate:hover{

    89. 

  89. 		color: white;

    90. 

  90. 		font-family:arial;

    91. 

  91. 		text-decoration:underline;

    92. 

  92. 	}

    93. 

  93. 	

    94. 

  94. 	a.Black{

    95. 

  95. 		color: Black;

    96. 

  96. 		}

    97. 

  97. 	a.Toolbar{

    98. 

  98. 		color: White;

    99. 

  99. 		font-family:arial;

    100. 

  100. 		text-decoration:none;		

    101. 

  101. 		}

    102. 

  102. 	a.Toolbar:hover{

    103. 

  103. 		color: White;

    104. 

  104. 		font-family:arial;

    105. 

  105. 		text-decoration:underline;		

    106. 

  106. 		}			

    107. 

  107. 	a.tabLink{

    108. 

  108. 		color: white;

    109. 

  109. 		font-family:arial;

    110. 

  110. 		text-decoration:none;		

    111. 

  111. 	}

    112. 

  112. 	a.tabLink:hover{

    113. 

  113. 		color: whites;

    114. 

  114. 		font-family:arial;

    115. 

  115. 		text-decoration:underline;		

    116. 

  116. 	}

    117. 

  117. 	

    118. 

  118. 		

    119. 

  119. </style>

    120. 

  120. 

    121. 

  121. <script language="JavaScript">

    122. 

  122. //This function deletes records from current form

    123. 

  123. 	function Delete() {

    124. 

  124. 	if (confirm("Are you sure that you want to delete these items?")){

    125. 

  125. 		document.CalendarForm.submit() ;

    126. 

  126. 	}

    127. 

  127. 	

    128. 

  128. 	}

    129. 

  129. 	

    130. 

  130. 		

    131. 

  131. </script>

    132. 

  132. 

    133. 

  133. <script language="JavaScript">

    134. 

  134. //File must enter a Title.

    135. 

  135. 	function Verify() {

    136. 

  136. 		

    137. 

  137. 		if(document.all.Title.value == "") {

    138. 

  138. 			alert("You must enter a Title before continuing.");

    139. 

  139. 		}

    140. 

  140. 		else {

    141. 

  141. 			document.CalendarForm.submit()

    142. 

  142. 		}

    143. 

  143. 		

    144. 

  144. 	}

    145. 

  145. </script>		

    146. 

  146. <%'This function opens up the printable calendar in the new browser

    147. 

  147. 'With Response

    148. 

  148. '

    149. 

  149. '	.Write "<script language=""javascript"">" & vbCrLf

    150. 

  150. '	 

    151. 

  151. '	.Write "	function printMonth(){"  & vbCrLf

    152. 

  152. '	If Request("Date")<>"" Then

    153. 

  153. '	.Write "		window.open(""/news/calendars/printable.asp?Name=" & Server.URLEncode(Name) & "&Node_ID=" & Node_ID & "&Date=" & Request("Date") & "&view=printMonth"", ""new"", ""titlebar=no,scrollbars=yes,status=no,width=500,height=600,location=no,directories=no"")" & vbCrLf

    154. 

  154. '	Else

    155. 

  155. '	.Write "		window.open(""/news/calendars/printable.asp?Name=" & Server.URLEncode(Name) & "&Node_ID=" & Node_ID & "&Date=" & Date() & "&view=printMonth"", ""new"", ""titlebar=no,scrollbars=yes,status=no,width=500,height=600,location=no,directories=no"")" & vbCrLf

    156. 

  156. '	End If	

    157. 

  157. '	.Write "		}" & vbCrLf

    158. 

  158. '	.Write "</script>" & vbCrLf & vbCrLf

    159. 

  159. 'End With

    160. 

  160. %>

    161. 

  161. 

    162. 

  162. <%

    163. 

  163. 'With Response

    164. 

  164. 

    165. 

  165. '	.Write "<script language=""javascript"">" & vbCrLf

    166. 

  166. '	 

    167. 

  167. '	.Write "	function printYear(){" & vbCrLf

    168. 

  168. '	

    169. 

  169. '	If Request("Date")<>"" Then

    170. 

  170. '	.Write "		window.open(""/news/calendars/printable.asp?Name=" & Server.URLEncode(Name) & "&Node_ID=" & Node_ID & "&Date=" & Request("Date") & "&view=printYear"", ""new"", ""titlebar=no,scrollbars=yes,status=no,width=500,height=600,location=no,directories=no"")" & vbCrLf

    171. 

  171. '	Else

    172. 

  172. '	.Write "		window.open(""/news/calendars/printable.asp?Name=" & Server.URLEncode(Name) & "&Node_ID=" & Node_ID & "&Date=" & Date() & "&view=printYear"", ""new"", ""titlebar=no,scrollbars=yes,status=no,width=500,height=600,location=no,directories=no"")" & vbCrLf

    173. 

  173. '	End If	

    174. 

  174. '	.Write "		}" & vbCrLf

    175. 

  175. '	.Write "</script>" & vbCrLf & vbCrLf

    176. 

  176. 'End With

    177. 

  177. 

    178. 

  178. 

    179. 

  179. Set rsCalendar = Server.CreateObject ("ADODB.RecordSet")

    180. 

  180. 

    181. 

  181. '*************CONSTANTS******************

    182. 

  182. bgColor = Array("dedede", "efefef")

    183. 

  183. Dim tabsOutside, inactiveTab, activeTab, fontSize

    184. 

  184. 

    185. 

  185. tabsOutside = "white"

    186. 

  186. inactiveTab = "#330099"

    187. 

  187. activeTab = "white"

    188. 

  188. fontSize = "2"

    189. 

  189. 

    190. 

  190. 

    191. 

  191. '****************************************

    192. 

  192. 						

    193. 

  193. 'The following functions take a date as an argument and return a modified date.  The date is modified as each

    194. 

  194. 'function name implies.

    195. 

  195. Public Function SubtractOneYear(dDate)

    196. 

  196. 	SubtractOneYear = DateAdd("yyyy", -1, dDate)

    197. 

  197. End Function

    198. 

  198. 

    199. 

  199. Function AddOneYear(dDate)

    200. 

  200. 	AddOneYear = DateAdd("yyyy", 1, dDate)

    201. 

  201. End Function

    202. 

  202. 

    203. 

  203. Public Function SubtractOneMonth(dDate)

    204. 

  204. 	SubtractOneMonth = DateAdd("m", -1, dDate)

    205. 

  205. End Function

    206. 

  206. 

    207. 

  207. Function AddOneMonth(dDate)

    208. 

  208. 	AddOneMonth = DateAdd("m", 1, dDate)

    209. 

  209. End Function

    210. 

  210. 

    211. 

  211. Public Function SubtractOneDay(dDate)

    212. 

  212. 	SubtractOneDay = DateAdd("d", -1, dDate)

    213. 

  213. End Function

    214. 

  214. 

    215. 

  215. Function AddOneDay(dDate)

    216. 

  216. 	AddOneDay = DateAdd("d", 1, dDate)

    217. 

  217. End Function

    218. 

  218. 

    219. 

  219. 'takes a numeric value representing an hour as an argument and returns a numeric value appended with an AM or PM

    220. 

  220. Function hourFunc(xHour)

    221. 

  221. 	Dim mHour

    222. 

  222. 	If xHour > 11 Then

    223. 

  223. 		mHour = CStr(xHour - 12)

    224. 

  224. 		endStr = " PM"

    225. 

  225. 	Else

    226. 

  226. 		mHour = xHour

    227. 

  227. 		endStr = " AM"

    228. 

  228. 	End If

    229. 

  229. 	

    230. 

  230. 	If mHour = 0 Then

    231. 

  231. 		mHour = "12"

    232. 

  232. 	End If

    233. 

  233. 	

    234. 

  234. 	hourFunc = mHour & endStr

    235. 

  235. End Function

    236. 

  236. 

    237. 

  237. 'This function takes a date as an argument and returns the number of days in that month

    238. 

  238. 'Leap years are accounted for

    239. 

  239. Public Function daysInMonth(dDate)

    240. 

  240. 	Select Case Month(dDate)

    241. 

  241. 		Case 1, 3, 5, 7, 8, 10, 12

    242. 

  242. 			daysInMonth = 31

    243. 

  243. 		Case 4, 6, 9, 11

    244. 

  244. 			daysInMonth = 30

    245. 

  245. 		Case 2

    246. 

  246. 			If Year(dDate) mod 4 = 0 Then 'checking for leap year

    247. 

  247. 				daysInMonth = 29

    248. 

  248. 			Else

    249. 

  249. 				daysInMonth = 28

    250. 

  250. 			End If

    251. 

  251. 	End Select

    252. 

  252. End Function%>

    253. 

  253. 

    254. 

  254. <%'Takes a date as an argument and builds a small month view calendar

    255. 

  255. Public Sub makeSmallMonth(dDate)%>

    256. 

  256. 

    257. 

  257. 			<table border="0" width="100%">

    258. 

  258. 				<tr>

    259. 

  259. 				    <td class="borders">

    260. 

  260. 					  <table border="0" cellpadding="0" cellspacing="0" width="100%">

    261. 

  261. 							<tr>

    262. 

  262. 								<td colspan="7" align="center" bgcolor="white"><font color="#330099" size="2"><a href="<%Request.ServerVariables("SCRIPT_NAME")%>?View=Day&amp;Date=<%=SubtractOneMonth(dDate)%>&amp;Node_ID=<%=Node_ID%>"><img src="/images/calendar/7arrowleft.gif" border="0" WIDTH="7" HEIGHT="7"></a>&nbsp;&nbsp;<%=MonthName(Month(dDate))%>&nbsp;<%=DatePart("yyyy",dDate)%>&nbsp;&nbsp;<a href="<%Request.ServerVariables("SCRIPT_NAME")%>?View=Day&amp;Date=<%=AddOneMonth(dDate)%>&amp;Node_ID=<%=Node_ID%>"><img src="/images/calendar/7arrowRight.gif" border="0" WIDTH="7" HEIGHT="7"></a></font></td>

    263. 

  263. 							</tr>

    264. 

  264. 							<tr>

    265. 

  265. 								<td class="DayBar" align="center"><font color="white" size="1">S</font></td>

    266. 

  266. 								<td class="DayBar" align="center"><font color="white" size="1">M</font></td>

    267. 

  267. 								<td class="DayBar" align="center"><font color="white" size="1">T</font></td>

    268. 

  268. 								<td class="DayBar" align="center"><font color="white" size="1">W</font></td>

    269. 

  269. 								<td class="DayBar" align="center"><font color="white" size="1">T</font></td>

    270. 

  270. 								<td class="DayBar" align="center"><font color="white" size="1">F</font></td>

    271. 

  271. 								<td class="DayBar" align="center"><font color="white" size="1">S</font></td>

    272. 

  272. 							</tr>

    273. 

  273. 							<%

    274. 

  274. 							'Determine the day of the week the month starts on

    275. 

  275. 							mstDate = WeekDay(CDate(Month(dDate) & "/1/" & Year(dDate))) 

    276. 

  276. 							'This is the date that we start printing on the calendar

    277. 

  277. 							eDate = DateAdd("d", -mstDate + 1,CDate(Month(dDate) & "/1/" & Year(dDate)))

    278. 

  278. 							

    279. 

  279. 							'Determine how many rows in the calendar we need based on the number of days in the month

    280. 

  280. 							If (daysInMonth(dDate) + mstDate - 1)/7  > 5 Then

    281. 

  281. 								n = 6

    282. 

  282. 							ElseIf (daysInMonth(dDate) + mstDate - 1)/7  > 4 Then

    283. 

  283. 								n = 5

    284. 

  284. 							Else

    285. 

  285. 								n = 4

    286. 

  286. 							End If

    287. 

  287. 											

    288. 

  288. 							For x = 1 to n%>

    289. 

  289. 								<tr>

    290. 

  290. 								<%For y = 1 to 7

    291. 

  291. 								  If eDate = Date() Then%>

    292. 

  292. 									<td class="SmallCurrentDay" valign="top" align="center">	

    293. 

  293. 								<%ElseIf Month(eDate) = Month(dDate) Then%>

    294. 

  294. 									<td bgcolor="White" valign="top" align="center">

    295. 

  295. 								<%Else%>

    296. 

  296. 									<td class="ExtraDays" valign="top" align="center">

    297. 

  297. 								<%End If%>

    298. 

  298. 									<font size="1"><a <%If eDate = Date() Then%>class="smallCalendarCurrentDate"<%else%>class="smallCalendarDate"<%end if%> href="<%Request.ServerVariables("SCRIPT_NAME")%>?View=Day&amp;Date=<%=eDate%>&amp;Node_ID=<%=Node_ID%>"><%=Day(eDate)%></a>

    299. 

  299. 									</td>

    300. 

  300. 								<%eDate = eDate + 1

    301. 

  301. 								  Next%>

    302. 

  302. 								</tr>

    303. 

  303. 								<%Next%>

    304. 

  304. 						</table>

    305. 

  305. 					</td>

    306. 

  306. 				</tr>							

    307. 

  307. 			</table>

    308. 

  308. 

    309. 

  309. <%End Sub%>

    310. 

  310. 

    311. 

  311. 

    312. 

  312. <%Public Sub UpdateRec (Table, IDName, IDVal, cnn)

    313. 

  313. 'Update the Records From A Page

    314. 

  314. 'Any field starting with an "_" will not be updated

    315. 

  315. 	Set rs = Server.CreateObject ("ADODB.Recordset")

    316. 

  316. 		aDate = Request.Form("a1")

    317. 

  317. 		aHour = Request.Form("a2")

    318. 

  318. 		aExtra = Request.Form("a3")

    319. 

  319. 		aMin = Request.Form("a4")

    320. 

  320. 		aMerge =  aDate & " " & aHour & ":" & aMin & aExtra

    321. 

  321. 		

    322. 

  322. 		durHour = Request.Form("b1")

    323. 

  323. 		durMin = Request.Form("b2")

    324. 

  324. 		durExtra = Request.Form("b3")

    325. 

  325. 		durMerge =  durHour & ":" & durMin & durExtra

    326. 

  326. 		

    327. 

  327. 	rs.Open "Select * From " & Table & " Where Title = '" & Request.Form("Title") & "' AND Date='" & aMerge & "' AND End_Date='" & durMerge & "'", cnnMain, 3, 3

    328. 

  328. 	If rs.EOF Then

    329. 

  329. 	rs.Close

    330. 

  330. 	rs.Open "Select * From " & Table & " Where " & IDName & "='" & IDVal & "'", cnnMain, 3, 3

    331. 

  331. 		If rs.EOF Then

    332. 

  332. 			rs.AddNew

    333. 

  333. 		End If

    334. 

  334. 		

    335. 

  335. 		rs("Node_ID") = Request.Form("Node_ID")

    336. 

  336. 		rs("Title") = Request.Form("Title")

    337. 

  337. 		rs("Description") = Request.Form("Description")

    338. 

  338. 		rs("Link") = Request.Form("Link")

    339. 

  339. 		

    340. 

  340. 		rs("Date") = aMerge

    341. 

  341. 		rs("End_Date") = durMerge

    342. 

  342. 		

    343. 

  343. 		If Request.Form("Event") = Checked Then

    344. 

  344. 			rs("Event") = 0

    345. 

  345. 		Else

    346. 

  346. 			rs("Event") = 1

    347. 

  347. 		End If			

    348. 

  348. 	rs.Update

    349. 

  349. 	End If

    350. 

  350. 	rs.Close

    351. 

  351. End Sub

    352. 

  352. 

    353. 

  353. Public Sub DeleteRec (Table, ID, cnn)

    354. 

  354. 'If there is a request to delete, delete the record.

    355. 

  355. 	Set rs = Server.CreateObject ("ADODB.Recordset")

    356. 

  356. 	rs.Open Table, cnnMain, 3, 3

    357. 

  357. 		Do While Not rs.EOF

    358. 

  358. 			If Request.Form("Delete" & rs(ID)) Then

    359. 

  359. 				rs.Delete

    360. 

  360. 			End If

    361. 

  361. 		rs.MoveNext

    362. 

  362. 		Loop

    363. 

  363. 	rs.Close

    364. 

  364. End Sub	

    365. 

  365. 

    366. 

  366. 'Displays a month view of a calendar for the given date

    367. 

  367. 'The calendar to be displayed is indicated by the Node_ID passed

    368. 

  368. Public Sub dispMonth (byVal Node_ID, dDate)

    369. 

  369. %>

    370. 

  370. <div align="left">

    371. 

  371. <table border="0" cellpadding="0" cellspacing="0" width="500">

    372. 

  372.     <!--<tr>

    373. 

  373. 	  <td colspan="2" nowrap align="right"><font size="1">Print events for this <a href="javascript:printMonth()">month</a> or this <a href="javascript:printYear()">year</a>.</font></td>

    374. 

  374. 	</tr>-->

    375. 

  375.  	<tr>

    376. 

  376.  	  <td valign="top"><%dispMonthToolbar Node_ID, dDate%></td>

    377. 

  377. 	  <td valign="top">

    378. 

  378. 		<table border="0" cellpadding="0" cellspacing="0">

    379. 

  379. 		  <tr>

    380. 

  380. 		    <td><%dispTabs Node_ID, dDate, "month"%></td>

    381. 

  381. 		  </tr>

    382. 

  382. 		  

    383. 

  383. 		  <tr>

    384. 

  384. 		    <td>

    385. 

  385. 				<table border="0" cellpadding="0" cellspacing="0" width="400">	

    386. 

  386. 				  <tr>

    387. 

  387. 					<td bgcolor=#CCCCFF>

    388. 

  388. 					  <table border="0" cellpadding="1" cellspacing="1" width="100%">	

    389. 

  389. 						<tr>

    390. 

  390. 							<td align="center" width="14%" class="daysOfWeekBar"><font size="2" color="white">Sun</font></td>

    391. 

  391. 							<td align="center" width="14%" class="daysOfWeekBar"><font size="2" color="white">Mon</font></td>

    392. 

  392. 							<td align="center" width="14%" class="daysOfWeekBar"><font size="2" color="white">Tue</font></td>

    393. 

  393. 							<td align="center" width="14%" class="daysOfWeekBar"><font size="2" color="white">Wed</font></td>

    394. 

  394. 							<td align="center" width="14%" class="daysOfWeekBar"><font size="2" color="white">Thu</font></td>

    395. 

  395. 							<td align="center" width="14%" class="daysOfWeekBar"><font size="2" color="white">Fri</font></td>

    396. 

  396. 							<td align="center" width="14%" class="daysOfWeekBar"><font size="2" color="white">Sat</font></td>

    397. 

  397. 						</tr>	

    398. 

  398. 							<%

    399. 

  399. 							'Determine the day of the week the month starts on

    400. 

  400. 							mstDate = WeekDay(CDate(Month(dDate) & "/1/" & Year(dDate))) 

    401. 

  401. 							'This is the date that we start printing on the calendar

    402. 

  402. 							tDate = DateAdd("d", -mstDate + 1,CDate(Month(dDate) & "/1/" & Year(dDate)))

    403. 

  403. 							

    404. 

  404. 							'Determine how many rows in the calendar we need based on the number of days in the month

    405. 

  405. 							If (daysInMonth(dDate) + mstDate - 1)/7  > 5 Then

    406. 

  406. 								n = 6

    407. 

  407. 							ElseIf (daysInMonth(dDate) + mstDate - 1)/7  > 4 Then

    408. 

  408. 								n = 5

    409. 

  409. 							Else

    410. 

  410. 								n = 4

    411. 

  411. 							End If

    412. 

  412. 							%>

    413. 

  413. 						

    414. 

  414. 						<%For x = 1 to n%>

    415. 

  415. 						<tr>

    416. 

  416. 						<%For y = 1 to 7

    417. 

  417. 						  If tDate = Date() Then%>

    418. 

  418. 							<td height="100" class="CurrentDay" valign="top" width="10%">&nbsp	

    419. 

  419. 						<%ElseIf Month(tDate) = Month(dDate) Then%>

    420. 

  420. 							<td height="100" bgcolor="White" valign="top" width="10%">

    421. 

  421. 						<%Else%>

    422. 

  422. 							<td height="100" class="ExtraDays" valign="top" width="10%">

    423. 

  423. 						<%End If%>		

    424. 

  424. 							<font size="2"><a class="date" href="<%=Request.ServerVariables("SCRIPT_NAME")%>?View=Day&amp;Date=<%=tDate%>&amp;Node_ID=<%=Node_ID%>"><strong><%=Day(tDate)%></strong></a></font><br>

    425. 

  425. 								<%rsCalendar.MaxRecords = 4

    426. 

  426. 								rsCalendar.Open "Select * From calendar Where DatePart(mm,Date) = " & Month(tDate) & " And DatePart(dd,Date) = " & Day(tDate) & " And DatePart(yy,Date) = " & Year(tDate) & " And Node_ID = " & Node_ID & "Order by Date",cnnMain, 3%>

    427. 

  427. 								<%Do While Not rsCalendar.EOF%>

    428. 

  428. 								  <img src="/images/calendar/7arrowRight.gif" WIDTH="7" HEIGHT="7"><font size="1"><%=rsCalendar("Title")%></font><br>

    429. 

  429. 								

    430. 

  430. 								<%rsCalendar.MoveNext

    431. 

  431. 								  Loop

    432. 

  432. 								  If rsCalendar.RecordCount > 3 Then%>

    433. 

  433. 								    <img src="/images/Calendar/7arrowDOWN.gif" WIDTH="7" HEIGHT="7"><font size="1"><a href="<%=Request.ServerVariables("SCRIPT_NAME")%>?View=Day&amp;Date=<%=tDate%>&amp;Node_ID=<%=Node_ID%>">more info</a></font>

    434. 

  434. 								<%End If

    435. 

  435. 								  rsCalendar.Close%>		

    436. 

  436. 							</td>

    437. 

  437. 							<%tDate = tDate + 1

    438. 

  438. 							Next%>

    439. 

  439. 						</tr>

    440. 

  440. 						<%Next%>

    441. 

  441. 					  </table>

    442. 

  442. 				</td>

    443. 

  443. 			  </tr>

    444. 

  444. 		    </table>

    445. 

  445. 	      </td>

    446. 

  446. 	    </tr>	

    447. 

  447. 	  </table>	

    448. 

  448. 	</td>

    449. 

  449.   </tr>

    450. 

  450. </table>

    451. 

  451. </div>									

    452. 

  452. 

    453. 

  453. <%End Sub%>

    454. 

  454. 

    455. 

  455. <%'Displays a calendar with a day view for a particular date.  

    456. 

  456.   'The calendar to be displayed is indicated by the Node_ID passed

    457. 

  457.   'The Admin argument is a boolean value that specifies whether the user has editing abilities

    458. 

  458. Public Sub dispDay (byVal Node_ID, dDate, Admin)

    459. 

  459. z = 8

    460. 

  460. %>

    461. 

  461. <div align="left">

    462. 

  462. <table border="0" width="500" cellspacing="2" cellpadding="0">

    463. 

  463.   <tr>

    464. 

  464.     <td valign="top" width="13%" align="center">

    465. 

  465. 	  <span class="DateText"><font size="4"><strong><%=MonthName(Month(dDate))%><br><%=Day(dDate)%><br><%=Year(dDate)%></strong></font></span><p>

    466. 

  466. 			<%dispToolbar Node_ID, dDate, Admin%>

    467. 

  467. 	</td>

    468. 

  468. 	<td>

    469. 

  469. 	  <table border="0" width="100%" cellpadding="0" cellspacing="0">

    470. 

  470. 		<tr>

    471. 

  471. 		  <td><%dispTabs Node_ID, dDate, "day"%></td>

    472. 

  472. 		<tr>

    473. 

  473. 		<tr>

    474. 

  474. 		  <td valign="top" class="DayBar">

    475. 

  475. 			<table border="0" width="100%" cellspacing="0" cellpadding="0">

    476. 

  476. 			  <tr>

    477. 

  477. 				<td class="borders" colspan="3">

    478. 

  478. 					<table border="0" cellspacing="1" cellpadding="2" width="100%">

    479. 

  479. 						<%

    480. 

  480. 						strCal ="SELECT * FROM calendar Where DatePart(mm,Date) = " & Month(dDate) & " And DatePart(dd,Date) = " & Day(dDate) & " And DatePart(yy,Date) = " & Year(dDate) & " And Event = 1 And Node_ID = " & Node_ID 

    481. 

  481. 						rsCalendar.Open strCal, cnnMain, 3

    482. 

  482. 						Do While Not rsCalendar.EOF

    483. 

  483. 						%>

    484. 

  484. 						<tr>

    485. 

  485. 							<td valign="top" class="AllDayEvent" colspan="2"><font size="2">

    486. 

  486. 							<%If Admin Then%>				

    487. 

  487. 								<a class="eventLinks" href="<%=Request.ServerVariables("SCRIPT_NAME")%>?Edit=<%=rsCalendar("Calendar_ID")%>&amp;Node_ID=<%=Node_ID%>&amp;Date=<%=dDate%>&amp;startTime=ignore"><%=rsCalendar("Title")%></a></font>

    488. 

  488. 							<%Else

    489. 

  489. 							    If rsCalendar("Link") <> "" Then%>

    490. 

  490. 								<a class="eventLinks" href="http://<%=rsCalendar("Link")%>" target="_new"><%=rsCalendar("Title")%></a>

    491. 

  491. 							  <%Else

    492. 

  492. 								Response.Write rsCalendar("Title")

    493. 

  493. 								End If%>

    494. 

  494. 							<%End If%>

    495. 

  495. 							<%If rsCalendar("Description") <> "" Then%>

    496. 

  496. 								<font size="2">- <%=rsCalendar("Description")%></font>

    497. 

  497. 							<%End If%>

    498. 

  498. 																											

    499. 

  499. 							</td>

    500. 

  500. 						</tr>

    501. 

  501. 						<%

    502. 

  502. 						rsCalendar.MoveNext

    503. 

  503. 						Loop

    504. 

  504. 						rsCalendar.Close 

    505. 

  505. 						For x = 0 to 23

    506. 

  506. 							HourPart = CStr(x)

    507. 

  507. 							If HourPart = "0" Then

    508. 

  508. 								HourPart = "00"

    509. 

  509. 							End If

    510. 

  510. 															

    511. 

  511. 							rsCalendar.Open "SELECT * FROM calendar Where DatePart(mm,Date) = " & Month(dDate) & " And DatePart(dd,Date) = " & Day(dDate) & " And DatePart(yy,Date) = " & Year(dDate) & " And DatePart(hh, Date)=" & HourPart & " And Event = 0 And Node_ID = " & Node_ID & " Order By Date", cnnMain, 3

    512. 

  512. 							If Not rsCalendar.EOF Or (x > 7 AND x < 20) Then

    513. 

  513. 								%>

    514. 

  514. 								<tr>

    515. 

  515. 								<%

    516. 

  516. 								If Admin Then%>

    517. 

  517. 								<td bgcolor="white" valign="top" width="15%"><font size="2"><a class="updateLinks" href="<%=Request.ServerVariables("SCRIPT_NAME")%>?Edit=0&amp;Date=<%=dDate%>&amp;Node_ID=<%=Node_ID%>&amp;startTime=<%=x%>"><%=hourFunc(x)%></a></font></td>

    518. 

  518. 								<%Else%>

    519. 

  519. 								<td bgcolor="white" valign="top" width="15%"><font size="2"><%=hourFunc(x)%></a></font></td>

    520. 

  520. 								<%End If%>

    521. 

  521. 								<td bgcolor="white" width="88%">&nbsp;<% 

    522. 

  522. 										Do While Not rsCalendar.EOF 

    523. 

  523. 											If CInt(Left(FormatDateTime(rsCalendar("Date"), vbShortTime),2)) = x Then%>

    524. 

  524. 												<font size="2">

    525. 

  525. 												<%If Admin Then%>

    526. 

  526. 												<a class="eventLinks" href="<%=Request.ServerVariables("SCRIPT_NAME")%>?Edit=<%=rsCalendar("Calendar_ID")%>&amp;Node_ID=<%=Node_ID%>&amp;Date=<%=dDate%>&amp;startTime=ignore"><%=rsCalendar("Title")%></a>

    527. 

  527. 												<%Else

    528. 

  528. 												  If rsCalendar("Link") <> "" Then%>

    529. 

  529. 												<a class="eventLinks" href="http://<%=rsCalendar("Link")%>" target="_new"><%End If%><%=rsCalendar("Title")%></a>

    530. 

  530. 												<%End If

    531. 

  531. 												  If rsCalendar("Description") <> "" Then%>

    532. 

  532. 												- <%Response.Write rsCalendar("Description")

    533. 

  533. 												  End If%>

    534. 

  534. 												&nbsp;<%endPartDate  = Right(FormatDateTime(rsCalendar("Date"),vbLongTime), 2)

    535. 

  535. 												        endPartEndDate  = Right(FormatDateTime(rsCalendar("End_Date"),vbLongTime), 2)%>

    536. 

  536. 												(<%=Left(FormatDateTime(rsCalendar("Date"),vbLongTime), InStrRev(FormatDateTime(rsCalendar("Date"),vbLongTime),":")-1) & " " & endPartDate & " "%>-<%=Left(FormatDateTime(rsCalendar("End_Date"),vbLongTime), InStrRev(FormatDateTime(rsCalendar("End_Date"),vbLongTime),":")-1) & " " & endPartEndDate%>)

    537. 

  537. 												</font>

    538. 

  538. 												<br>

    539. 

  539. 											<%End If

    540. 

  540. 										rsCalendar.MoveNext

    541. 

  541. 										Loop

    542. 

  542. 									  %>

    543. 

  543. 								</td>	 

    544. 

  544. 								</tr>

    545. 

  545. 								<%	

    546. 

  546. 								End If

    547. 

  547. 																													

    548. 

  548. 							rsCalendar.Close														

    549. 

  549. 																											

    550. 

  550. 						Next%>

    551. 

  551. 														

    552. 

  552. 					</table>

    553. 

  553. 			    </td>

    554. 

  554. 			  </tr>

    555. 

  555. 			</table>		

    556. 

  556. 		  </td>

    557. 

  557. 		</tr>

    558. 

  558. 	  </table>

    559. 

  559.     </td>

    560. 

  560.   </tr>

    561. 

  561. </table>

    562. 

  562. </div>														

    563. 

  563. <%End Sub%>

    564. 

  564. 

    565. 

  565. <%'Displays the form for adding or editing an event in a calendar

    566. 

  566.   'Node_ID		- (int)indeicates the calendar to edit 

    567. 

  567.   'Calendar_ID	- (int) this is the unique identifier for the event record to be editted; if no event exists, then

    568. 

  568.   '				  a new one is created 

    569. 

  569.   'dDate		- (datetime) the date of the event 

    570. 

  570.   'startTime	- (string) takes a string that is a number represntinf the start time; if no start time 

    571. 

  571.   '               is to be specified, then the value should be "ignore"; when the value is "ignore" the default

    572. 

  572.   '				  start and end time is 12 AM

    573. 

  573. Public Sub dispEdit(byVal Node_ID, Calendar_ID, dDate, startTime)%>

    574. 

  574. 

    575. 

  575. <form method="POST" action="<%=Request.ServerVariables("SCRIPT_NAME")%>?View=Day&amp;Date=<%=dDate%>&amp;Node_ID=<%=Node_ID%>" name="CalendarForm">

    576. 

  576. 	<input type="hidden" name="Calendar_ID" value="<%=Request.QueryString("Edit")%>">

    577. 

  577. <!--	<input type="hidden" name="Calendar_ID" value="<%=Calendar_ID%>"> -->

    578. 

  578. 	<input type="hidden" name="Node_ID" value="<%=Node_ID%>">

    579. 

  579. 	<input type="hidden" name="updateAction" value="update">

    580. 

  580. 	

    581. 

  581. 	<table border="0" width="720" cellpadding="5">

    582. 

  582. 		<tr>

    583. 

  583. 			<td colspan="7"><strong>Edit Screen</strong>

    584. 

  584. 			<table border="0" cellspacing="0">

    585. 

  585. 			<tr>

    586. 

  586. 					<td bgcolor="#F2F2F2">	

    587. 

  587. 						<table border="0" width="100%">

    588. 

  588. 							<tr>

    589. 

  589. 								<td colspan="2">

    590. 

  590. 									<font size="2">click save to add event information</font>

    591. 

  591. 								</td>

    592. 

  592. 								<td colspan="5" align="right"><a href="javascript:history.go(-1)"><strong>Cancel</strong></a></td>

    593. 

  593. 							</tr>	

    594. 

  594. 							<tr>

    595. 

  595. 								<td colspan="7" align="right"><a href="javascript:Verify()"><strong>Save</strong></a></td>

    596. 

  596. 							</tr>

    597. 

  597. 							<tr>

    598. 

  598. 								<td valign="top"><strong>Title</strong></td>

    599. 

  599. 								<td><input class="TextField" type="text" name="Title" size="53" value="<%=rsCalendar("Title")%>"></td>

    600. 

  600. 								<td><strong>Start Time</strong></td>

    601. 

  601. 								<td><select NAME="a2" class="ComboField">

    602. 

  602. 										<%For x = 0 to UBound(strTimeHr)%>

    603. 

  603. 												<%'Find the value to set the selected time when the edit screen appears

    604. 

  604. 												  If startTime <> "ignore" Then

    605. 

  605. 												    selHour = trim(startTime)

    606. 

  606. 												  Else

    607. 

  607. 												    selHour = Hour(rsCalendar("Date"))

    608. 

  608. 												  End If

    609. 

  609. 												  

    610. 

  610. 												  If selHour = 0 Then

    611. 

  611. 													selHour = 12

    612. 

  612. 												  ElseIf selHour = 12 Then

    613. 

  613. 													pm = true												  

    614. 

  614. 												  ElseIf selHour < 12 Then

    615. 

  615. 												    pm = false

    616. 

  616. 												  Else

    617. 

  617. 												    If selHour > 12 Then

    618. 

  618. 													  selHour = selHour - 12

    619. 

  619. 													  pm = true

    620. 

  620. 												    End If

    621. 

  621. 												  End If%>

    622. 

  622. 												<option value="<%=strTimeHr(x)%>" <%If strTimeHr(x) = selHour Then%> Selected <%End If%>><%=strTimeHr(x)%>	

    623. 

  623. 										<%Next%>

    624. 

  624. 									</select>

    625. 

  625. 								</td>

    626. 

  626. 								<td><font size="2">hr</font></td>

    627. 

  627. 								<td><select NAME="a4" class="ComboField">

    628. 

  628. 										<%For x = 0 to UBound(strTimeMin)%>

    629. 

  629. 												<option value="<%=strTimeMin(x)%>" <%If strTimeMin(x) = Minute(rsCalendar("Date")) Then%> Selected <%End If%>><%=strTimeMin(x)%>	

    630. 

  630. 										<%Next%>

    631. 

  631. 									</select>

    632. 

  632. 								</td>

    633. 

  633. 								<td><font size="2">min</font></td>

    634. 

  634. 								<td><select name="a3" class="ComboField">

    635. 

  635. 										<option <%If Left(FormatDateTime(rsCalendar("Date"), vbShortTime),2) >= 0 Then%> Selected <%End If%>>AM</option>

    636. 

  636. 										<option <%If Left(FormatDateTime(rsCalendar("Date"), vbShortTime),2) >= 12 or pm Then%> Selected <%End If%>>PM</option>

    637. 

  637. 									</select>

    638. 

  638. 								</td>		

    639. 

  639. 							</tr>

    640. 

  640. 							<tr>

    641. 

  641. 								<td rowspan="3" valign="top" rowspan="2"><strong>Description</strong></td>

    642. 

  642. 								<td rowspan="3"><textarea class="TextAreaField" cols="52" rows="5" name="Description"><%=rsCalendar("Description")%></textarea></td>	

    643. 

  643. 								<td valign="top"><strong>End Time</strong></td>

    644. 

  644. 								<td valign="top"><select NAME="b1" class="ComboField">

    645. 

  645. 										<%For x = 0 to UBound(strTimeHr)

    646. 

  646. 										    'Find the value to set the selected time when the edit screen appears

    647. 

  647. 										    If startTime <> "ignore" Then

    648. 

  648. 											  selHour = startTime

    649. 

  649. 											Else

    650. 

  650. 											  selHour = Hour(rsCalendar("End_Date"))

    651. 

  651. 											End If

    652. 

  652. 											

    653. 

  653. 											If selHour = 0 Then

    654. 

  654. 												selHour = 12

    655. 

  655. 											Else 

    656. 

  656. 												If  selHour > 12 Then

    657. 

  657. 													selHour = selHour - 12

    658. 

  658. 												End If

    659. 

  659. 											End If%>

    660. 

  660. 												<option value="<%=strTimeHr(x)%>" <%If strTimeHr(x) = selHour Then%> Selected <%End If%>><%=strTimeHr(x)%>	

    661. 

  661. 										<%Next%>

    662. 

  662. 											</select>

    663. 

  663. 								</td>

    664. 

  664. 								<td><font size="2">hr</font></td>

    665. 

  665. 								<td valign="top"><select NAME="b2" class="ComboField">

    666. 

  666. 										<%For x = 0 to UBound(strTimeMin)%>

    667. 

  667. 												<option value="<%=strTimeMin(x)%>" <%If strTimeMin(x) = Minute(rsCalendar("End_Date")) Then%> Selected <%End If%>><%=strTimeMin(x)%>	

    668. 

  668. 										<%Next%>

    669. 

  669. 									</select>

    670. 

  670. 								</td>

    671. 

  671. 								<td><font size="2">min</font></td>

    672. 

  672. 								<td valign="top"><select name="b3" class="ComboField">

    673. 

  673. 										<option <%If Left(FormatDateTime(rsCalendar("Date"), vbShortTime),2) >= 0 Then%> Selected <%End If%>>AM</option>

    674. 

  674. 										<option <%If Left(FormatDateTime(rsCalendar("Date"), vbShortTime),2) >= 12 or pm Then%> Selected <%End If%>>PM</option>

    675. 

  675. 									</select>

    676. 

  676. 								</td>	

    677. 

  677. 							</tr>	

    678. 

  678. 							<tr>

    679. 

  679. 								<td align="right" valign="top"><input type="checkbox" name="Event" value="true" <%If rsCalendar("Event") Then%>Checked<%End If%>></td>

    680. 

  680. 								<td valign="top" colspan="4"><font size="1">All Day Event</font></td>

    681. 

  681. 							</tr>

    682. 

  682. 							<tr>

    683. 

  683. 								<td colspan="5">&nbsp;</td>

    684. 

  684. 								

    685. 

  685. 							</tr>	

    686. 

  686. 							<tr>

    687. 

  687. 								<td><strong>Date</strong></td>

    688. 

  688. 								<td colspan="6"><%If Request.QueryString("Edit") = 0 Then%>

    689. 

  689. 								<input class="TextField" type="text" name="a1" value="<%=dDate%>">

    690. 

  690. 								<%Else%>

    691. 

  691. 								<input class="TextField" type="text" name="a1" value="<%=FormatDateTime(rsCalendar("Date"), vbShortDate)%>">

    692. 

  692. 								<%End If%></td>

    693. 

  693. 							</tr>

    694. 

  694. 							<tr>

    695. 

  695. 								<td><strong>Link</strong><br><font size="2">i.e. www.test.com</font></td>

    696. 

  696. 								<td valign="top"><input class="TextField" type="text" name="Link" size="40" value="<%=rsCalendar("Link")%>"></td>

    697. 

  697. 							</tr>	

    698. 

  698. 						</table>

    699. 

  699. 					</table>

    700. 

  700. 				</td>

    701. 

  701. 			</tr>

    702. 

  702. 		</table>

    703. 

  703. 	</td>

    704. 

  704. 	</tr>

    705. 

  705. 	</table>

    706. 

  706. </form>						

    707. 

  707. 	

    708. 

  708. <%End Sub%>

    709. 

  709. 

    710. 

  710. <%'Displays a screen that allows the administrator to choose which events to delete from the database

    711. 

  711.   'Node_ID		- (int) specifies the calendar the events are associated with

    712. 

  712.   'Calendar_ID  - (int) a unique ID of the event record to be deleted

    713. 

  713.   'dDate		- (datetime) the date used to specify a range of records to delete

    714. 

  714.   'dispType		- (string) takes a string indicating which records to display

    715. 

  715.   '						"day" - displays records for the given day

    716. 

  716.   '						"month" - displays records for the given month

    717. 

  717.   '						"year" - displays records for the given year

    718. 

  718. Public Sub dispDelete(byVal Node_ID, Calendar_ID, dDate, dispType)%>

    719. 

  719. 	<form method="POST" action="<%=Request.ServerVariables("SCRIPT_NAME")%>?Action=Delete&amp;Date=<%=dDate%>&amp;Node_ID=<%=Node_ID%>" name="CalendarForm">

    720. 

  720. 

    721. 

  721. 	<table border="0" width="100%">

    722. 

  722. 		<tr>

    723. 

  723. 			<td><strong>Delete Screen</strong>

    724. 

  724. 			<table border="0" cellspacing="0" bordercolor="#F2F2F2">

    725. 

  725. 				<tr>

    726. 

  726. 					<td bgcolor="#F2F2F2">

    727. 

  727. 						<table border="0" width="100%">

    728. 

  728. 								<tr>

    729. 

  729. 									<td><font size="2">click delete to delete an event</font></td>

    730. 

  730. 									<td align="right"><a href="<%Request.ServerVariables("SCRIPT_NAME")%>?View=Day&amp;Date=<%=dDate%>&amp;Node_ID=<%=Node_ID%>"><strong>Cancel</strong></a></td>

    731. 

  731. 								</tr>

    732. 

  732. 								<tr>

    733. 

  733. 									<td colspan="2"> 

    734. 

  734. 									<table border="0" width="100%">

    735. 

  735. 											<tr>

    736. 

  736. 												<td colspan="2" align="right"><a href="javascript:Delete();"><strong>Delete</strong></a></td>

    737. 

  737. 											</tr>

    738. 

  738. 											<tr>

    739. 

  739. 												<td colspan="2">

    740. 

  740. 													<table border="0" width="100%">

    741. 

  741. 													<%'Build the query string based on whether they want it displayed by day, month, or year

    742. 

  742. 													  If dispType = "day" Then

    743. 

  743. 														strCal = "SELECT * FROM calendar WHERE DatePart(mm,Date) = " & Month(dDate) & " And DatePart(dd,Date) = " & Day(dDate) & " And DatePart(yy,Date) = " & Year(dDate) & " And Node_ID = " & Node_ID & " Order By Date Asc"%>

    744. 

  744. 														<input type="hidden" name="View" value="Day">														

    745. 

  745. 													  <%ElseIf dispType = "month" Then

    746. 

  746. 														strCal = "SELECT * FROM calendar WHERE DatePart(mm,Date) = " & Month(dDate) & " And DatePart(yy,Date) = " & Year(dDate) & " And Node_ID = " & Node_ID & " Order By Date Asc"%>

    747. 

  747. 														<input type="hidden" name="View" value="Month">

    748. 

  748. 													  <%Else	'dispType = year

    749. 

  749. 														strCal = "SELECT * FROM calendar WHERE Node_ID= " & Node_ID & " Order By Date Asc"%>

    750. 

  750. 														<input type="hidden" name="View" value="Year">

    751. 

  751. 													  <%End If%>

    752. 

  752. 													

    753. 

  753. 													

    754. 

  754. 													<%'open the recordset and display the events records with a checkbox to mark for deletion

    755. 

  755. 													  rsCalendar.Open strCal,cnnMain, 3, 3

    756. 

  756. 													  Do While Not rsCalendar.EOF%>

    757. 

  757. 														<tr><%If MonthName(DatePart("m",rsCalendar("Date"))) <> x Then%>

    758. 

  758. 															<td colspan="3" bgcolor="Lavender"><strong><em><%=MonthName(DatePart("m",rsCalendar("Date")))%></em></strong></td>

    759. 

  759. 															<%End If%>

    760. 

  760. 														</tr>

    761. 

  761. 														<%x = MonthName(DatePart("m",rsCalendar("Date")))%>

    762. 

  762. 														<tr>

    763. 

  763. 															<td ><input class="CheckField" type="checkbox" name="Delete<%=rsCalendar("Calendar_ID")%>" value="true"></td>

    764. 

  764. 															<td ><font size="2"><%if rsCalendar("Event") then%>

    765. 

  765. 																					<%="All Day"%>

    766. 

  766. 																				<%else%>

    767. 

  767. 																					<%=FormatDateTime(rsCalendar("Date"),vbLongDate) & "<br>" & FormatDateTime(rsCalendar("Date"),vbLongTime)%>

    768. 

  768. 																				<%end if %></font></td>

    769. 

  769. 															<td  bgcolor="#<%=bgColor(0)%>"><font size="2"><%=rsCalendar("Title")%></font></td>

    770. 

  770. 														</tr>

    771. 

  771. 														<tr>

    772. 

  772. 															<td colspan="2">&nbsp;</td>

    773. 

  773. 															<td width bgcolor="#<%=bgColor(1)%>"><ul><font size="2"><%=rsCalendar("Description")%></font></td>

    774. 

  774. 														</tr>

    775. 

  775. 														<%rsCalendar.MoveNext

    776. 

  776. 														  Loop%>

    777. 

  777. 														<input type="hidden" name="updateAction" value="delete">

    778. 

  778. 													</table>

    779. 

  779. 												</td>

    780. 

  780. 											</tr>			  		

    781. 

  781. 										</table>

    782. 

  782. 										</td>

    783. 

  783. 								</tr>			

    784. 

  784. 						</table>

    785. 

  785. 					</td>

    786. 

  786. 				</tr>

    787. 

  787. 			</table>

    788. 

  788. 			</td>

    789. 

  789. 		</tr>

    790. 

  790. 	</table>								

    791. 

  791. </form>

    792. 

  792. 	

    793. 

  793. <%End Sub%>

    794. 

  794. 

    795. 

  795. <%'This builds a toolbarthat can go on the side of a calendar.  The most logical calendar to add it to is

    796. 

  796.   'the day view but it could be used on others.  It uses the makeSmallMonth function to build a small month

    797. 

  797.   'calendar.  Then it will display links to add or delete events if the user is an administrator

    798. 

  798.   '

    799. 

  799.   'Node_ID		- (int) specifies which calendar is being used

    800. 

  800.   'dDate		- (datetime) the date to build the display for

    801. 

  801.   'Admin		- (boolean) indicates whether the user is an administrator

    802. 

  802. Public Sub dispToolbar(byVal Node_ID, dDate, Admin)

    803. 

  803. tDate = dDate

    804. 

  804. %>

    805. 

  805. 	<input type="hidden" value="Month" name="View">

    806. 

  806. 	<table border="0" width="125" cellpadding="0" cellspacing="0">

    807. 

  807. 	  <tr>

    808. 

  808. 	    <td colspan="2">

    809. 

  809. 			<%makeSmallMonth dDate%>

    810. 

  810. 	    </td>

    811. 

  811. 	  </tr>

    812. 

  812. 	  <%If Admin Then%>

    813. 

  813. 	  <tr>

    814. 

  814. 	    <td>&nbsp;</td>

    815. 

  815. 	  </tr>

    816. 

  816. 	  <tr>

    817. 

  817. 		<td colspan="2" align="left"><font size="2"><strong><a class="updateLinks" href="<%=Request.ServerVariables("SCRIPT_NAME")%>?Edit=0&amp;Date=<%=dDate%>&amp;Node_ID=<%=Node_ID%>&amp;startTime=ignore">Add Event</a></strong></font></td>

    818. 

  818. 	  </tr>

    819. 

  819. 	  <tr>

    820. 

  820. 		<td colspan="2" align="left"><font size="2"><strong><a class="updateLinks" href="<%=Request.ServerVariables("SCRIPT_NAME")%>?updateAction=dispDeletePage&amp;Date=<%=tDate%>&amp;Node_ID=<%=Node_ID%>&amp;dispType=day">Delete Event(s)</a></strong></font></td>

    821. 

  821. 	  </tr>

    822. 

  822. 	  <%End If%>			

    823. 

  823. 	</table>

    824. 

  824. 	

    825. 

  825. <%End Sub%>

    826. 

  826. 

    827. 

  827. <%'Builds a toolbar that has a list of months on it for the user to quickly navigate to another month in the 

    828. 

  828.   'current year.  It also has the year on it with navigation arrows so that the user can skip to the previous

    829. 

  829.   'or next year.  Finally, it displays a link to the current day called "today."

    830. 

  830.   Public Sub dispMonthToolbar(byVal Node_ID, dDate)%>

    831. 

  831. 

    832. 

  832. 						<table border="0" cellpadding="0" cellspacing="0" width="125">

    833. 

  833. 						  <tr>

    834. 

  834. 						    <td align="right">

    835. 

  835. 							<table border="0" cellpadding="1" cellspacing="1">

    836. 

  836. 								<tr>

    837. 

  837. 									<td bgcolor="CC0000">

    838. 

  838. 										<table border="0" cellpadding="1" cellspacing="0">

    839. 

  839. 											<tr>

    840. 

  840. 											  <td bgcolor="white" colspan="3" align="center"><font size="5" face="verdana" color="#CC0000 "><strong><%=UCase((MonthName(Month(dDate), TRUE)))%></strong></font></td>

    841. 

  841. 											</tr>

    842. 

  842. 											<tr>

    843. 

  843. 											    <td bgcolor="white" valign="middle"><a href="<%Request.ServerVariables("SCRIPT_NAME")%>?View=Month&amp;Date=<%=SubtractOneYear(dDate)%>&amp;Node_ID=<%=Node_ID%>"><img src="/images/calendar/7arrowleft.gif" border="0" width="7" height="7"></a></td>

    844. 

  844. 												<td bgcolor="white" align="center"><font size="2" face="arial" color="#CC0000 "><%=DatePart("yyyy",dDate)%></font></td>

    845. 

  845. 												<td bgcolor="white" valign="middle"><a href="<%Request.ServerVariables("SCRIPT_NAME")%>?View=Month&amp;Date=<%=AddOneYear(dDate)%>&amp;Node_ID=<%=Node_ID%>"><img src="/images/calendar/7arrowRight.gif" border="0" width="7" height="7"></a></td>

    846. 

  846. 											</tr>

    847. 

  847. 											<tr>

    848. 

  848. 											  <td colspan="3">

    849. 

  849. 											    <table border="0" cellpadding="3" cellspacing="0">

    850. 

  850. 											      <tr>

    851. 

  851. 											        <td>

    852. 

  852. 											          <table border="0" cellpadding="1" cellspacing="0">

    853. 

  853. 											          <%For x = 1 to 6

    854. 

  854. 														xDate = CDate(x & "/" & 1 & "/" & Year(dDate))%>

    855. 

  855. 														<tr>

    856. 

  856. 														  <td align="center" colspan="3"><a class="Toolbar" href="<%=Request.ServerVariables("SCRIPT_NAME")%>?View=Month&amp;Date=<%=xDate%>&amp;Node_ID=<%=Node_ID%>"><font size="1" face="arial"><%=UCase(MonthName(x,True))%></font></a></td>

    857. 

  857. 														</tr>

    858. 

  858. 														<%Next%>

    859. 

  859. 											          </table>

    860. 

  860. 											        </td>

    861. 

  861. 											        <td>

    862. 

  862. 											          <table border="0" cellpadding="1" cellspacing="0">

    863. 

  863. 											          <%For x = 7 to 12

    864. 

  864. 														xDate = CDate(x & "/" & 1 & "/" & Year(dDate))%>

    865. 

  865. 														<tr>

    866. 

  866. 														  <td align="center" colspan="3"><a class="Toolbar" href="<%=Request.ServerVariables("SCRIPT_NAME")%>?View=Month&amp;Date=<%=xDate%>&amp;Node_ID=<%=Node_ID%>"><font size="1" face="arial"><%=UCase(MonthName(x,True))%></font></a></td>

    867. 

  867. 														</tr>

    868. 

  868. 														<%Next%>

    869. 

  869. 											          </table>

    870. 

  870. 											        </td>

    871. 

  871. 											      </tr>

    872. 

  872. 											    </table>

    873. 

  873. 											  </td>

    874. 

  874. 											</tr>

    875. 

  875. 											<tr>

    876. 

  876. 											  <td colspan="3" bgcolor="white" align="center"><font size="2"><strong><a class="Todaydate" href="<%=Request.ServerVariables("SCRIPT_NAME")%>?View=Day&amp;Date=<%=Date%>&amp;Node_ID=<%=Node_ID%>">Today</a></font></strong></td>

    877. 

  877. 											</tr>

    878. 

  878. 										</table>

    879. 

  879. 									</td>

    880. 

  880. 								</tr>			

    881. 

  881. 							</table>

    882. 

  882. 						    </td>

    883. 

  883. 						  </tr>

    884. 

  884. 						</table>

    885. 

  885. 	

    886. 

  886. <%End Sub%>

    887. 

  887. 

    888. 

  888. <%'This displays the tabs for all three view types.  

    889. 

  889.   'tabView	- (string) Indicates which view to display the tabs for. 

    890. 

  890.   '					"day" - day tab is selected; month and year tabs are active links 

    891. 

  891.   '					"month" - month tab is selected; day and year tabs are active links

    892. 

  892.   '					"year" - year tab is selected; day and month tabs are active links

    893. 

  893. Public Sub dispTabs(byVal Node_ID, dDate, tabView)%>

    894. 

  894. 		  

    895. 

  895.   <%If tabView = "day" Then%>  

    896. 

  896. <TABLE CELLPADDING="0" CELLSPACING="0" HEIGHT="17" WIDTH="100%" BORDER="0">

    897. 

  897. 		<TR ALIGN="center" BGCOLOR="<%=inactiveTab%>">

    898. 

  898. 			<TD WIDTH="5" BGCOLOR="<%=tabsOutside%>" ROWSPAN="2"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="5" HEIGHT="16"></TD>

    899. 

  899. 			<TD WIDTH="1" ROWSPAN="3"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="17"></TD>

    900. 

  900. 			<TD HEIGHT="1" NOWRAP><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>

    901. 

  901. 			<TD WIDTH="1" ROWSPAN="2"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="16"></TD>

    902. 

  902. 			<TD WIDTH="5" BGCOLOR="<%=tabsOutside%>" ROWSPAN="2"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="5" HEIGHT="16"></TD>

    903. 

  903. 			<TD WIDTH="1" ROWSPAN="2"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="16"></TD>

    904. 

  904. 			<TD HEIGHT="1" NOWRAP><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>

    905. 

  905. 			<TD WIDTH="1" ROWSPAN="2"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="16"></TD>

    906. 

  906. 			<TD WIDTH="5" BGCOLOR="<%=tabsOutside%>" ROWSPAN="2"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="5" HEIGHT="16"></TD>

    907. 

  907. 			<TD WIDTH="1" ROWSPAN="2"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="16"></TD>

    908. 

  908. 			<TD HEIGHT="1" NOWRAP><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>

    909. 

  909. 			<TD WIDTH="1" ROWSPAN="2"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="16"></TD>

    910. 

  910. 			<TD WIDTH="100%" BGCOLOR="<%=tabsOutside%>" NOWRAP ROWSPAN="2" align="right"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="1">

    911. 

  911. 			<a href="<%=Request.ServerVariables("SCRIPT_NAME")%>?View=Day&amp;Date=<%=SubtractOneDay(dDate)%>&amp;Node_ID=<%=Node_ID%>"><img src="/images/calendar/7arrowleft.gif" border="0" WIDTH="7" HEIGHT="7"></a>

    912. 

  912. 			        <font size="2" face="verdana"><strong><%=MonthName(Month(dDate)) & " " & Day(dDate) & ", " & Year(dDate)%></strong></font>

    913. 

  913. 			        <a href="<%=Request.ServerVariables("SCRIPT_NAME")%>?View=Day&amp;Date=<%=AddOneDay(dDate)%>&amp;Node_ID=<%=Node_ID%>"><img src="/images/calendar/7arrowRight.gif" border="0" WIDTH="7" HEIGHT="7"></a>

    914. 

  914. 			</TD>

    915. 

  915. 		</TR>

    916. 

  916. 		<TR ALIGN="center" BGCOLOR="<%=inactiveTab%>">

    917. 

  917. 			<TD BGCOLOR="<%=activeTab%>" HEIGHT="15" NOWRAP>&nbsp;&nbsp;<FONT size="<%=fontSize%>" color="<%=inactiveTab%>"><STRONG>Day</STRONG></FONT>&nbsp;&nbsp;</TD>

    918. 

  918. 			<TD HEIGHT="15" NOWRAP>&nbsp;&nbsp;<A class="tabLink" href="<%=Request.ServerVariables("SCRIPT_NAME")%>?View=Month&amp;Date=<%=dDate%>&amp;Node_ID=<%=Node_ID%>"><FONT size="<%=fontSize%>"><strong>Month</strong></FONT></A>&nbsp;&nbsp;</TD>

    919. 

  919. 			<TD HEIGHT="15" NOWRAP>&nbsp;&nbsp;<A class="tabLink" href="<%=Request.ServerVariables("SCRIPT_NAME")%>?View=Year&amp;Date=<%=dDate%>&amp;Node_ID=<%=Node_ID%>"><FONT size="<%=fontSize%>"><strong>Year</strong></FONT></A>&nbsp;&nbsp;</TD>

    920. 

  920. 		</TR>

    921. 

  921. 		<TR ALIGN="center" BGCOLOR="<%=inactiveTab%>">

    922. 

  922. 			<TD WIDTH="5" HEIGHT="1" NOWRAP><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>

    923. 

  923. 			<TD BGCOLOR="<%=activeTab%>" HEIGHT="1" NOWRAP><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>

    924. 

  924. 			<TD WIDTH="7" COLSPAN="3"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="7" HEIGHT="1"></TD>

    925. 

  925. 			<TD HEIGHT="1" NOWRAP><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>

    926. 

  926. 			<TD WIDTH="7" COLSPAN="3"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="7" HEIGHT="1"></TD>

    927. 

  927. 			<TD HEIGHT="1" NOWRAP COLSPAN="2"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>

    928. 

  928. 			<TD WIDTH="100%" HEIGHT="1" NOWRAP><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>

    929. 

  929. 		</TR>

    930. 

  930. 		<TR BGCOLOR="<%=tabsOutside%>">

    931. 

  931. 			<TD HEIGHT="3" COLSPAN="17"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="3" HEIGHT="3"></TD>

    932. 

  932. 		</TR>

    933. 

  933. </TABLE>

    934. 

  934. 		

    935. 

  935. 	<%ElseIf tabView = "month" Then  'View = day%>	

    936. 

  936. <TABLE CELLPADDING="0" CELLSPACING="0" HEIGHT="17" WIDTH="100%" BORDER="0">

    937. 

  937. 		<TR ALIGN="center" BGCOLOR="<%=inactiveTab%>">

    938. 

  938. 			<TD WIDTH="5" BGCOLOR="<%=tabsOutside%>" ROWSPAN="2"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="5" HEIGHT="16"></TD>

    939. 

  939. 			<TD WIDTH="1" ROWSPAN="3"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="17"></TD>

    940. 

  940. 			<TD HEIGHT="1" NOWRAP><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>

    941. 

  941. 			<TD WIDTH="1" ROWSPAN="2"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="16"></TD>

    942. 

  942. 			<TD WIDTH="5" BGCOLOR="<%=tabsOutside%>" ROWSPAN="2"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="5" HEIGHT="16"></TD>

    943. 

  943. 			<TD WIDTH="1" ROWSPAN="2"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="16"></TD>

    944. 

  944. 			<TD HEIGHT="1" NOWRAP><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>

    945. 

  945. 			<TD WIDTH="1" ROWSPAN="2"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="16"></TD>

    946. 

  946. 			<TD WIDTH="5" BGCOLOR="<%=tabsOutside%>" ROWSPAN="2"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="5" HEIGHT="16"></TD>

    947. 

  947. 			<TD WIDTH="1" ROWSPAN="2"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="16"></TD>

    948. 

  948. 			<TD HEIGHT="1" NOWRAP><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>

    949. 

  949. 			<TD WIDTH="1" ROWSPAN="2"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="16"></TD>

    950. 

  950. 			<TD WIDTH="100%" BGCOLOR="<%=tabsOutside%>" NOWRAP ROWSPAN="2" align="right"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="1">

    951. 

  951. 			<a href="<%=Request.ServerVariables("SCRIPT_NAME")%>?View=Month&amp;Date=<%=SubtractOneMonth(dDate)%>&amp;Node_ID=<%=Node_ID%>"><img src="/include/calendar/images/7arrowleft.gif" border="0" WIDTH="7" HEIGHT="7"></a>

    952. 

  952. 			        <font size="2" face="verdana"><strong><%=(MonthName(Month(dDate))) & ", " & DatePart("yyyy",dDate)%></strong></font>

    953. 

  953. 			        <a href="<%=Request.ServerVariables("SCRIPT_NAME")%>?View=Month&amp;Date=<%=AddOneMonth(dDate)%>&amp;Node_ID=<%=Node_ID%>"><img src="/include/calendar/images/7arrowRight.gif" border="0" WIDTH="7" HEIGHT="7"></a>

    954. 

  954. 			</TD>

    955. 

  955. 		</TR>

    956. 

  956. 		<TR ALIGN="center" BGCOLOR="<%=inactiveTab%>">

    957. 

  957. 			<TD HEIGHT="15" NOWRAP>&nbsp;&nbsp;<A class="tabLink" href="<%=Request.ServerVariables("SCRIPT_NAME")%>?View=Day&amp;Date=<%=dDate%>&amp;Node_ID=<%=Node_ID%>"><FONT size="<%=fontSize%>"><strong>Day</strong></FONT></A>&nbsp;&nbsp;</TD>

    958. 

  958. 			<TD BGCOLOR="<%=activeTab%>" HEIGHT="15" NOWRAP>&nbsp;&nbsp;<FONT size="<%=fontSize%>" color="<%=inactiveTab%>"><STRONG>Month</STRONG></FONT>&nbsp;&nbsp;</TD>

    959. 

  959. 			<TD HEIGHT="15" NOWRAP>&nbsp;&nbsp;<A class="tabLink" href="<%=Request.ServerVariables("SCRIPT_NAME")%>?View=Year&amp;Date=<%=dDate%>&amp;Node_ID=<%=Node_ID%>"><FONT size="<%=fontSize%>"><strong>Year</strong></FONT></A>&nbsp;&nbsp;</TD>

    960. 

  960. 		</TR>

    961. 

  961. 		<TR ALIGN="center" BGCOLOR="<%=inactiveTab%>">

    962. 

  962. 			<TD WIDTH="5" HEIGHT="1" NOWRAP><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>

    963. 

  963. 			<TD HEIGHT="1" NOWRAP><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>

    964. 

  964. 			<TD WIDTH="7" COLSPAN="3"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="7" HEIGHT="1"></TD>

    965. 

  965. 			<TD BGCOLOR="<%=activeTab%>" HEIGHT="1" NOWRAP><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>

    966. 

  966. 			<TD WIDTH="7" COLSPAN="3"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="7" HEIGHT="1"></TD>

    967. 

  967. 			<TD HEIGHT="1" NOWRAP COLSPAN="2"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>

    968. 

  968. 			<TD WIDTH="100%" HEIGHT="1" NOWRAP><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>

    969. 

  969. 		</TR>

    970. 

  970. 		<TR BGCOLOR="<%=tabsOutside%>">

    971. 

  971. 			<TD HEIGHT="3" COLSPAN="17"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="3" HEIGHT="3"></TD>

    972. 

  972. 		</TR>

    973. 

  973. </TABLE>

    974. 

  974. 	<%Else 'View = year%>

    975. 

  975. <TABLE CELLPADDING="0" CELLSPACING="0" HEIGHT="17" WIDTH="100%" BORDER="0">

    976. 

  976. 		<TR ALIGN="center" BGCOLOR="<%=inactiveTab%>">

    977. 

  977. 			<TD WIDTH="5" BGCOLOR="<%=tabsOutside%>" ROWSPAN="2"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="5" HEIGHT="16"></TD>

    978. 

  978. 			<TD WIDTH="1" ROWSPAN="3"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="17"></TD>

    979. 

  979. 			<TD HEIGHT="1" NOWRAP><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>

    980. 

  980. 			<TD WIDTH="1" ROWSPAN="2"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="16"></TD>

    981. 

  981. 			<TD WIDTH="5" BGCOLOR="<%=tabsOutside%>" ROWSPAN="2"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="5" HEIGHT="16"></TD>

    982. 

  982. 			<TD WIDTH="1" ROWSPAN="2"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="16"></TD>

    983. 

  983. 			<TD HEIGHT="1" NOWRAP><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>

    984. 

  984. 			<TD WIDTH="1" ROWSPAN="2"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="16"></TD>

    985. 

  985. 			<TD WIDTH="5" BGCOLOR="<%=tabsOutside%>" ROWSPAN="2"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="5" HEIGHT="16"></TD>

    986. 

  986. 			<TD WIDTH="1" ROWSPAN="2"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="16"></TD>

    987. 

  987. 			<TD HEIGHT="1" NOWRAP><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>

    988. 

  988. 			<TD WIDTH="1" ROWSPAN="2"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="16"></TD>

    989. 

  989. 			<TD WIDTH="100%" BGCOLOR="<%=tabsOutside%>" NOWRAP ROWSPAN="2" align="right"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="1">

    990. 

  990. 					<a href="<%=Request.ServerVariables("SCRIPT_NAME")%>?View=Year&amp;Date=<%=SubtractOneYear(dDate)%>&amp;Node_ID=<%=Node_ID%>"><img src="/include/calendar/images/7arrowleft.gif" border="0" WIDTH="7" HEIGHT="7"></a>

    991. 

  991. 			        <font size="2" face="verdana"><strong><%=Year(dDate)%></strong></font>

    992. 

  992. 			        <a href="<%=Request.ServerVariables("SCRIPT_NAME")%>?View=Year&amp;Date=<%=AddOneYear(dDate)%>&amp;Node_ID=<%=Node_ID%>"><img src="/include/calendar/images/7arrowRight.gif" border="0" WIDTH="7" HEIGHT="7"></a>

    993. 

  993. 			</TD>

    994. 

  994. 		</TR>

    995. 

  995. 		<TR ALIGN="center" BGCOLOR="<%=inactiveTab%>">

    996. 

  996. 			<TD HEIGHT="15" NOWRAP>&nbsp;&nbsp;<A class="tabLink" href="<%=Request.ServerVariables("SCRIPT_NAME")%>?View=Day&amp;Date=<%=dDate%>&amp;Node_ID=<%=Node_ID%>"><FONT size="<%=fontSize%>"><strong>Day</strong></FONT></A>&nbsp;&nbsp;</TD>

    997. 

  997. 			<TD HEIGHT="15" NOWRAP>&nbsp;&nbsp;<A class="tabLink" href="<%=Request.ServerVariables("SCRIPT_NAME")%>?View=Month&amp;Date=<%=dDate%>&amp;Node_ID=<%=Node_ID%>"><FONT size="<%=fontSize%>"><strong>Month</strong></FONT></A>&nbsp;&nbsp;</TD>

    998. 

  998. 			<TD BGCOLOR="<%=activeTab%>" HEIGHT="15" NOWRAP>&nbsp;&nbsp;<FONT size="<%=fontSize%>" color="<%=inactiveTab%>"><STRONG>Year</STRONG></FONT>&nbsp;&nbsp;</TD>

    999. 

  999. 		</TR>

    1000. 

  1000. 		<TR ALIGN="center" BGCOLOR="<%=inactiveTab%>">

    1001. 

  1001. 			<TD WIDTH="5" HEIGHT="1" NOWRAP><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>

    1002. 

  1002. 			<TD HEIGHT="1" NOWRAP><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>

    1003. 

  1003. 			<TD WIDTH="7" COLSPAN="3"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="7" HEIGHT="1"></TD>

    1004. 

  1004. 			<TD HEIGHT="1" NOWRAP><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>

    1005. 

  1005. 			<TD WIDTH="7" COLSPAN="3"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="7" HEIGHT="1"></TD>

    1006. 

  1006. 			<TD BGCOLOR="<%=activeTab%>" HEIGHT="1" NOWRAP COLSPAN="2"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>

    1007. 

  1007. 			<TD WIDTH="100%" HEIGHT="1" NOWRAP><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="1" HEIGHT="1"></TD>

    1008. 

  1008. 		</TR>

    1009. 

  1009. 		<TR BGCOLOR="<%=tabsOutside%>">

    1010. 

  1010. 			<TD HEIGHT="3" COLSPAN="17"><IMG SRC="/include/calendar/images/spacer.gif" WIDTH="3" HEIGHT="3"></TD>

    1011. 

  1011. 		</TR>

    1012. 

  1012. </TABLE>

    1013. 

  1013. 	<%End If%>

    1014. 

  1014. 	

    1015. 

  1015. <%End Sub%>

    1016. 

  1016. 

    1017. 

  1017. <%'Builds a page full of monthly calendars for the particular year

    1018. 

  1018. Public Sub dispYear (byVal Node_ID, dDate)%>

    1019. 

  1019. 

    1020. 

  1020. <div align="left">

    1021. 

  1021. <table cellspacing="0" cellpadding="0" border="0">

    1022. 

  1022.   <tr>

    1023. 

  1023.     <!--This first column is only here to make the year view consistent with the month and day views-->

    1024. 

  1024.     <td width="125">&nbsp</td>

    1025. 

  1025.     <td>

    1026. 

  1026. 		<table cellspacing="2" cellpadding="2" border="0">

    1027. 

  1027. 		<tr>

    1028. 

  1028. 		  <td><%dispTabs Node_ID, dDate, "year"%></td>

    1029. 

  1029. 		</tr>

    1030. 

  1030. 		<tr>

    1031. 

  1031. 		  <td>

    1032. 

  1032. 			<table cellspacing="2" cellpadding="2" border="0">

    1033. 

  1033. 			  <%'The month index will represent each month, starting with January.  Then a table will be built

    1034. 

  1034. 			    'that has 4 rows and 3 columns to hold each monthly calendar.

    1035. 

  1035. 			    monthIndex = 1

    1036. 

  1036. 			    For y = 1 to 4%>

    1037. 

  1037. 			  <tr>

    1038. 

  1038. 			    <%For x = 1 to 3

    1039. 

  1039. 			      newDate = monthIndex & "/1/" & Year(dDate)%>

    1040. 

  1040. 				<td valign="top">

    1041. 

  1041. 			  

    1042. 

  1042. 					<table border="0" cellpadding="2" cellspacing="0" width="100%">

    1043. 

  1043. 						<tr>

    1044. 

  1044. 							<td colspan="7" align="center" bgcolor="white"><font size="2"><a class="Date" href="<%=Request.ServerVariables("SCRIPT_NAME")%>?View=Month&amp;Date=<%=newDate%>&amp;Node_ID=<%=Node_ID%>"><%=MonthName(monthIndex)%></a></font></td>

    1045. 

  1045. 						</tr>

    1046. 

  1046. 						<tr>

    1047. 

  1047. 							<td class="DayBar" align="center"><font color="white" size="1">S</font></td>

    1048. 

  1048. 							<td class="DayBar" align="center"><font color="white" size="1">M</font></td>

    1049. 

  1049. 							<td class="DayBar" align="center"><font color="white" size="1">T</font></td>

    1050. 

  1050. 							<td class="DayBar" align="center"><font color="white" size="1">W</font></td>

    1051. 

  1051. 							<td class="DayBar" align="center"><font color="white" size="1">T</font></td>

    1052. 

  1052. 							<td class="DayBar" align="center"><font color="white" size="1">F</font></td>

    1053. 

  1053. 							<td class="DayBar" align="center"><font color="white" size="1">S</font></td>

    1054. 

  1054. 						</tr>

    1055. 

  1055. 						<%'Find the weekday of the first day of the month

    1056. 

  1056. 						  mstDate = WeekDay(CDate(newDate))

    1057. 

  1057. 		  				  'eDate is the day that the monthly calendar needs to start on - it may be the first day

    1058. 

  1058. 		  				  'of the current month, or it may be one of the last days of the previous months

    1059. 

  1059. 		  				  eDate = DateAdd("d", -mstDate + 1,CDate(newDate))%>

    1060. 

  1060. 						<%'Build the calendar - Builds a default 6 rows for each calendar.  If there is no data in the 

    1061. 

  1061. 						  'first or last row then it won't matter because the background will be white

    1062. 

  1062. 						  For row = 1 to 6%>

    1063. 

  1063. 							<tr>

    1064. 

  1064. 							<%For column = 1 to 7%>

    1065. 

  1065. 							<%If eDate = Date() Then 'highlite the current day%>

    1066. 

  1066. 								<td class="CurrentDay" valign="top" align="center">

    1067. 

  1067. 									<font size="1"><a class="smallCalendarDate" href="<%Request.ServerVariables("SCRIPT_NAME")%>?View=Day&amp;
    1068.