mudança:
Se (DatePart (“yyyy”, strArtDate) <> DatePart (“yyyy”, oldArtDate)) Então
Response.Write (“ ” & DatePart (“yyyy”, oldArtDate) & "")
mostrará provavelmente um registro por o ano se eu leio a direita do código, mas é uma etapa adiante: - P