%'@LANGUAGE="VBSCRIPT" CodePage="1254" %>
<%'Session.Lcid=2057
p=request.querystring("p")
a=month(date)
gun=day(date)
yil=year(date)
if a=1 then
ay=" Ocak "
else if a=2 then
ay=" Şubat "
else if a=3 then
ay=" Mart "
else if a=4 then
ay=" Nisan "
else if a=5 then
ay=" Mayıs "
else if a=6 then
ay=" Haziran "
else if a=7 then
ay=" Temmuz "
else if a=8 then
ay=" Ağustos "
else if a=9 then
ay=" Eylül "
else if a=10 then
ay=" Ekim "
else if a=11 then
ay=" Kasım "
else if a=12 then
ay=" Aralık "
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
tarih=gun&ay&yil
%>