What's New

<% if not bolNewsEOF then for intCnt = 0 to UBound(arrNewsItems,2) if CInt(datepart("yyyy",arrNewsItems(4,intCnt))) <> intPreYear then response.write("

" & datepart("yyyy",arrNewsItems(4,intCnt)) &"

") response.write("

" & vbCrLf) end if response.write("
• " & datepart("m",arrNewsItems(4,intCnt)) &"/" & datepart("d",arrNewsItems(4,intCnt)) &" - ") response.write("") response.write(trim(arrNewsItems(1,intCnt)) &"
") intPreYear = CInt(datepart("yyyy",arrNewsItems(4,intCnt))) if intCnt+1 <= UBound(arrNewsItems,2) then if CInt(datepart("yyyy",arrNewsItems(4,intCnt+1))) <> intPreYear then response.write("

") end if else response.write("") end if next else %>

No news articles are currently in the archive.

<% end if %>