adding leading zero to date using DatePart

[cic]

I am having problems making the month and date two digits. I have tried "mm" and "dd" however I get the following error.

Invalid procedure call or argument: 'DatePart'

TodayDate = Cstr(DatePart("m",date)) + Cstr(DatePart("d",date)) + Cstr(DatePart("yyyy",date))

please help

 

[BG12424]

<%
' get each date component
thisMonth = datepart(&quot;m&quot;,date)
thisDay = datepart(&quot;d&quot;,date)
thisYear = datepart(&quot;yyyy&quot;,date)

' check for the length of the month and day components
if len(thisMonth) < 2 then thisMonth = &quot;0&quot; & thisMonth
if len(thisDay) < 2 then thisDay = &quot;0&quot; & thisDay

' Create the date in your format you posted above
TodayDate = thisMonth & thisDay & thisYear

' write out the new formatted date
response.write TodayDate

' You can also do this, but the format will be mm/dd/yyyy
response.write FormatDateTime(date(),vbShortDate)
%> regards,
Brian
AOL IM: FreelanceGaines