<% Function Tarih() bugun= Day(date) ay=Month(date) yil=Year(date) aylar = Array("yok","Ocak","Subat","Mart","Nisan","Mayıs", "Haziran","Temmuz","Agustos","Eylul","Ekim","Kasim","Aralik") ayname = aylar(ay) gun = Weekday(Weekday(date)) gunler = Array("yok","Pazar","Pazartesi","Salı","Çarşamba", "Perşembe","Cuma","Cumartesi") Tarih = "" & gunler(gun) & ", " & bugun &" " & ayname &" " & yil End Function Pg = request.querystring("Pg") Select Case Pg Case "Home" Pg = "Home" MenuBgPic1 = "background=""img/activemenuback.gif""" Case "About" Pg = "About" MenuBgPic2 = "background=""img/activemenuback.gif""" Case "Services" Pg = "Services" MenuBgPic3 = "background=""img/activemenuback.gif""" Case "Referances" Pg = "Referances" MenuBgPic4 = "background=""img/activemenuback.gif""" Case "Contact" Pg = "Contact" MenuBgPic5 = "background=""img/activemenuback.gif""" Case Else Pg = "Home" MenuBgPic1 = "background=""img/activemenuback.gif""" End Select %> artescorp.com | Artes Bilişim Bilgisayar
 
<% if pg="Home" then %> <%end if%> <% if pg="About" then %> <%end if%> <% if pg="Services" then %> <%end if%> <% if pg="Referances" then %> <%end if%> <% if pg="Contact" then %> <%end if%>
 
<%=Tarih%>
 
 
 
 

<% Select Case Pg Case "Home"%> <%Case "About"%> <%Case "Services"%> <%Case "Referances"%> <%Case "Contact"%> <% Case Else%> <%End Select%>
* Artes  Webcam
* Artes  Adsl   Modem
* Artes Mp4 Player
* Artes İnternal 3.5 Kart Okuyucu
* Artes Bluetooth
* Artes Anakart
Ana Sayfa | Hakkımızda | Sürücüler | Ürünlerimiz | İletişim

2008 © Telif Hakkı Artescorp İnternet  Hizmetleri' ne aittir. Tüm hakları saklıdır. Bilgi için info@artescorp.com