<% Dim yy yy = DatePart("yyyy",Now()) %>