<% dim objRS dim strSQL dim bolNewsEOF dim arrNewsItems dim intCnt dim intPreYear set objSecure = server.createobject("InetSolution.Secure") set objRS = server.CreateObject("ADODB.RecordSet") strSQL = "select REF,HEADLINE,TEASER,INSERTDATE,PUBLISHDATE from NEWSARTICLES where PUBLISHED <> '0' order by PUBLISHDATE DESC" objRS.Open strSQL,objSecure.Conn, adOpenForwardOnly,adLockReadOnly,adCmdText if not objRS.EOF then arrNewsItems = objRS.GetRows bolNewsEOF = False else bolNewsEOF = true end if objRS.Close set objRS = Nothing %> John J. Boyd

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("") end if else response.write("") end if next else %>

No news articles are currently in the archive.

<% end if %>