change :
If (DatePart("yyyy",strArtDate) <> DatePart("yyyy",oldArtDate)) Then
Response.Write("<b><font color=""#000000""> " & DatePart("yyyy",oldArtDate) & "</font></b>")
it will probably show one record per year if i read the code right, but it's a step ahead :-P