<%
function datetc(datetime,isD)
dim mydatetime
mydatetime=cdate(datetime)
myyear=DatePart("yyyy",mydatetime)
mymonth=DatePart("m",mydatetime)
if len(mymonth)=1 then
mymonth="0" & mymonth
end if
myday=DatePart("d",mydatetime)
if len(myday)=1 then
myday="0" & myday
end if
myhour=DatePart("h",mydatetime)
mymin=DatePart("n",mydatetime)
mysec=DatePart("s",mydatetime)
dim result
result=myyear & "-" & mymonth & "-" & myday
' if not isD then
' result= result & " " & myhour & ":" & mymin & ":" & mysec
' end if
datetc=result
end function
%>