% function ad() if DatePart("m",Date) < 10 then ad = DatePart("yyyy",Date) & "-0" & DatePart("m",Date) & ".jpg" else ad = DatePart("yyyy",Date) & "-" & DatePart("m",Date) & ".jpg" end if end function %>