dim thedate
thedate=""
thedate=thedate&year(now())
if len(month(now()))="2" then
thedate=thedate&month(now())
else
thedate=thedate&"-"&"0"&month(now())
end if
if len(day(now()))="2" then
thedate=thedate&"-"&day(now())
else
thedate=thedate&"-"&"0"&day(now())
end if