Türkçe tarih

<%
var1 = date
Response.Write Day(var1)
Response.Write " "
' Ayları sayalım
if Month(var1) = 1 then
response.Write "Ocak"
end if
if Month(var1) = 2 then
response.Write "Şubat"
end if
if Month(var1) = 3 then
response.Write "Mart"
end if
if Month(var1) = 4 then
response.Write "Nisan"
end if
if Month(var1) = 5 then
response.Write "Mayıs"
end if
if Month(var1) = 6 then
response.Write "Haziran"
end if
if Month(var1) = 7 then
response.Write "Temmuz"
end if
if Month(var1) = 8 then
response.Write "Ağustos"
end if
if Month(var1) = 9 then
response.Write "Eylül"
end if
if Month(var1) = 10 then
response.Write "Ekim"
end if
if Month(var1) = 11 then
response.Write "Kasım"
end if
if Month(var1) = 12 then
response.Write "Aralık"
end if
'Ayları sayma bitti.
Response.Write " " 
Response.Write Year(var1)
Response.Write " "
'Günleri sayalım
if WeekDay(var1, 1) = 1 then
Response.Write "Pazar"
end if 
if WeekDay(var1, 1) = 2 then
Response.Write "Pazartesi"
end if
if WeekDay(var1, 1) = 3 then
Response.Write "Salı"
end if
if WeekDay(var1, 1) = 4 then
Response.Write "Çarşamba"
end if
if WeekDay(var1, 1) = 5 then
Response.Write "Perşembe"
end if
if WeekDay(var1, 1) = 6 then
Response.Write "Cuma"
end if
if WeekDay(var1, 1) = 7 then
Response.Write "Cumartesi"
end if
'Günleri sayma bitti.
Response.Write "<br>" & date & "<br>"
%>