function dateformat(x,y,z)
on error resume next
a = mid(x,1,1)
b = mid(x,3,1)
c = mid(x,5,1)
s1 = mid(x,2,1)
s2 = mid(x,4,1)
d = day(cdate
)m = month(cdate
)ms = Array("Ocak","Şubat","Mart","Nisan","Mayıs","Haz iran","Temmuz","Ağustos","Eylül","Ekim","Kasım" ,"Aralık")
if z = true then
m = ms(m-1)
s1 = " "
s2 = " "
end if
y = year(cdate
)tarih = eval(a)&s1&eval(b)&s2&eval(c)
if err.number > 0 then
dateformat = "Hatalı veri girişi yapıldı"
else
dateformat=tarih
end if
end function
%>
<%= dateformat("d.m.y",date,false) %> ' 01.05.2009 şeklinde basar
<%= dateformat("d.m.y",date,true) %> ' 01 Mayıs 2009 şeklinde basar