<% @Language=VBScript %> <%session.codepage=1254%> <% Set Sur = Server.CreateObject("ADODB.Connection") Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/database.mdb") '** Database bağlantısı Set zenta = Server.CreateObject("ADODB.Recordset") sor = "Select * from haber ORDER BY id DESC" zenta.Open sor,Sur,1,3 '** Sayfalar arası geçiş kuralı git = Request.QueryString("git") if git="" then git=1 end if %> <%Set bag = Server.CreateObject("ADODB.Connection") bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("sayac.mdb")%> <% bugun="BUGUN" Set RS=server.createObject("ADODB.Recordset") sor = "select*from sayac " RS.open sor,Bag,1,3 rs.movefirst if rs("tarih") = date then RS.fields("ziyaret") = rs.fields("ziyaret") + 1 saybugun=rs("ziyaret") else rs("tarih")=date rs("ziyaret") = 1 saybugun=1 end if rs.getrows(1) rs("tarih") = date rs("ziyaret") = rs("ziyaret") + 1 saytoplam=rs("ziyaret") RS.update%> <% sure=1 ip=Request.ServerVariables("REMOTE_ADDR") Set kset = Server.Createobject("ADODB.Recordset") sql = "SELECT * FROM online where ip='"& ip &"'" kset.open sql, bag, 1, 3 ip=Request.ServerVariables("REMOTE_ADDR") Set kset = Server.Createobject("ADODB.Recordset") sql = "SELECT * FROM online where ip='"& ip &"'" kset.open sql, bag, 1, 3 If kset.eof Then kset.addnew kset("ip")=ip kset("tarih")=now else kset("tarih")=now end if kset.update kset.Close Set kset = Nothing Set kset = Server.Createobject("ADODB.Recordset") sql = "SELECT * FROM online" kset.open sql, bag, 1, 3 Do While Not kset.eof zaman=datediff("n",kset("tarih"),now) if zaman > sure then sql = "DELETE FROM online WHERE ip = '"&kset("ip")&"'" Set sil = bag.execute(sql) Set sil = Nothing end if kset.movenext Loop online = kset.RecordCount kset.Close Set kset = Nothing bag.Close Set bag = Nothing%> <%dim num%> HİTİT BİLGİSAYAR-AÇIKÖĞRETİM KURSLARI

<% Set zenta = Server.CreateObject("ADODB.Recordset") sor = "Select * from haber order by id desc" zenta.Open sor,Sur,1,3 for i = 1 to 3 '** Son kaç haber görüntülensin if zenta.eof then exit for %>
  &islem=oku" title="<%=zenta("ilk_yazi")%> (<%=zenta("tarih_gun")%>.<%=zenta("tarih_ay")%>.<%=zenta("tarih_yil")%> <%=adddate%>)"><%=Left(zenta("baslik"), 160)%>...
                                          Devamı için
<% zenta.movenext Next zenta.close set zenta = Nothing %>


   

   
         
     
Toplam Ziyaretçi:     <%Response.Write "" & saytoplam & ""%>  

BİLGİSAYAR SATIŞI

İşletmemizde Markalı ve Markasız tüm konfigürasyonda bilgisayar satışı yapılmaktadır.

Aşağıdaki linkleri kullanarak bilgisayarınızın özelliklerini kendiniz belirleyebilirsiniz ya da fiyat listemizi görebilirsiniz. Tüm satışı yapılan ürünler Üretici, Distribitör Firma ve firmamız garantilidir.

OEM Fiyat Listenizi Görmek İstiyorum.

Hazır PC' ler

Bilgisayarımın özelliklerini Kendim Belirlemek İstiyorum.

HP Kartuş ve Toner Fiyat Listesi

BİLGİSAYAR BAKIM VE ONARIMI

  • Bilgisayarlarınınızın her türlü arızaları tespit edilir.
  • Program kurulumları yapılır.
  • Sürücülerin (ekran kartı, ses kartı, modem vs.) tanıtımı yapılır.
  • Virüs tespiti ve temizleme işlemleri yapılır.
  • Ev ya da işlerlerinizde bilgisayarlarınızın bakımı ve program yükleme işlemleri yapılır.

Tüm bu işlemler uygun ücretlerle yapılmaktadır.

 
Güncelleme:26.07.2005