Case kullanark günleri türkçelestir……
Case kullanark günleri türkçelestir……
Case kullanark günleri türkçelestir…..
codeDivStart()
<%@ Language=VBScript codepage="1254" %>
<% Option Explicit %>
<html>
<head>
<meta name="VI60_defaultClientScript" content="VBScript">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<meta http-equiv="Content-Language" content="tr">
<style type=text/css>
TD {
font-size: 10pt; font-family: Arial, Helvetica, sans-serif
}
BODY {font-family:Verdana,Arial;font-size="10"}
A:link {text-decoration: underline; color: #1D3074}
A:visited {text-decoration: underline; color: #000000}
A:hover {text-decoration: none; color: #5B89DF}
A:active {text-decoration: none; color: #9B9BEE}
</style>
<title> || Tahir BAL || </title>
</head>
<body>
<%
dim gun_tarih, ay, yil, ayadi, gun_sayi, gun_adi
gun_sayi=Weekday(date)
gun_tarih= Day(date)
ay=Month(date)
yil=Year(date)
Select Case(ay)
Case 1
ayadi="Ocak"
Case 2
Ayadi="Şubat"
Case 3
Ayadi="Mart"
Case 4
Ayadi="Nisan"
Case 5
Ayadi="Mayıs"
Case 6
Ayadi="Haziran"
Case 7
Ayadi="Temmuz"
Case 8
Ayadi="Ağustos"
Case 9
Ayadi="Eylül"
Case 10
Ayadi="Ekim"
Case 11
Ayadi="Kasım"
Case 12
Ayadi="Aralık"
End Select
Select Case(gun_sayi)
Case 1
gun_adi="Pazar"
Case 2
gun_adi="Pazartesi"
Case 3
gun_adi="Salı"
Case 4
gun_adi="Çarşamba"
Case 5
gun_adi="Perşembe"
Case 6
gun_adi="Cuma"
Case 7
gun_adi="Cumartesi"
End Select
Response.Write "<font style=" "font:14pt/16pt verdana; color:#4e4e4e" ">Bugün : " & gun_tarih &" " & ayadi &" " & yil &" " & gun_adi &"</font>"
%>
</body>