Programalama > ASP

ASP / Case Kullanark Günleri Türkçelestir......

Case Kullanark Günleri Türkçelestir.....

Etiketler: case, kullanark, günleri, türkçelestir......

Ort. 0

Puan ver:

hazirkod 19 June 19:32 0

0 kişiden 0 puan aldı

5341

<%@ 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> 
</html>