<% SM=CStr(Month(Date())) IF Len(SM)=1 Then SM="0"+SM End IF SD=CStr(Day(Date())) IF Len(SD)=1 Then SD="0"+SD End IF SYMD=CStr(Year(Date()))+SM+SD %>