<%
Dim theDay, theMonth, theYear, theDate
theDay = Day(now())
if cstr(theDay) < 2 then
theDay = "0" & theDay
end if
theMonth = Month(now())
if cstr(theMonth) < 2 then
theMonth = "0" & theMonth
end if
theYear = Year(now())
theDate = theYear & theMonth & theDay '(swap these around for how you want it)
response.write(theDate)
%>
Hope that helps