<% Response.Buffer = True %> <% Set Sur = Server.CreateObject("ADODB.Connection") Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/xxyexx.mdb") Set gir = server. CreateObject("ADODB.Recordset") kayit = "Select * from haberler where onay = False order by tarih" gir.Open kayit,sur,1,3 if gir.recordcount>0 then if gir("tarih")< now() then gir("onay") = True gir.Update gir.close end if %> <% Set Sur2 = Server.CreateObject("ADODB.Connection") Sur2.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/kare.mdb") Set gir2 = server. CreateObject("ADODB.Recordset") kayit2 = "Select * from KARE where onay = False order by kimlik" gir2.Open kayit2,sur2,1,3 if gir2.recordcount>0 then if gir2("tarih")< now() then gir2("onay") = True gir2.Update gir2.close end if %> <% set rsx = Server.CreateObject("ADODB.RecordSet") SQL="select * from haberler where onay = True order by haber_id desc" rsx.open SQL,Baglantim,3,3 git = Request.QueryString("git") if git="" then git=1 end if %> <% if rsx.eof or rsx.bof then response.write "
Hiç Soru Yok !
" else %> <% rsx.pagesize = asp("A_NEWS_RECORD") rsx.absolutepage = git sayfa = rsx.pagecount for i=1 to rsx.pagesize if rsx.eof or rsx.bof then exit for %>
  Bizden Bahsedenler   
 



                        BİZDEN BAHSEDEN SİTELER
     

     ►Haber Sağlık

   ►Akıl Oyunları Dergisi

   ►Puzzle Ratings
       ► 25.02.2005      
       ► 14.05.2005

   ►Sakura

   ►Puzzle Can(n)on

   ►higherpi

   ►İmge Kitabevi

   ►SoruCevap.Com

   ►Yeni Sayfa

   ►SiberDevlet

   ►Web-Reyting

   ►Ek$i Sözlük

   ►ODTÜ - ZOT

   ►Yapay-Zeka.Org  

   ►TVBS - Pop Blog

   ►Turk Internet Haber

   ►BT Insan

   ►Bölge Gazetesi

   ►Teknobilgi Bilişim Portalı

   ►T.C.Başbakanlık Basın-Yayın Enf. Gen. Müdürlüğü

   ►Yonja Shop

   ►İlk Nokta

   ►Bilim.Org

 

 

 ►World!Of Numbers

►Croco Puzzle Links

►Ken's Puzzle Links

►Otuz Oyun
    ► Zekablog 

►MarketingTürkiye

►BTNet

►Pandora Kitabevi

►Weblebi

►SayıCell

►Ultima.Online.Hileleri.Sitesi.Org

►Sarajevo-x

►Bilelim.Net

►Bilim.Org/Forum

►Ken.Duisenberg

►Joky Pencil Puzzles World

►Logicke Zagonetke

►Otomatik Portakal

►Çözümlü Linklerimiz - Zeka

►Beceriksizler.Org

►Sokakta

►KitapYurdu.Com

►KitapBilgi.Com

►Janko.at-Nonograms

►PuzzleMochalov
 
 

(c) TurkZeka.Com
<% rs.MoveNext Next %><% end if %>