<% 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 %>
  TurkZeka at Other Sites   
 



                        TURKZEKA AT OTHER  SITES    

 

 Puzzle Ratings
      25.02.2005      
    
14.05.2005

 ►Sakura

 ►Puzzle Can(n)on

 ►higherpi

 ►TVBS - Pop Blog

 Joky Pencil Puzzles World

 

World!Of Numbers

Croco Puzzle Links

Ken's Puzzle Links

Ken.Duisenberg

Logicke Zagonetke

Janko.at

PuzzleMochalov

 
 

(c) TurkZeka.Com

<% rs.MoveNext Next %><% end if %>