<% 
  emlak = Request.QueryString("emlak") 
  Set ii = Server.CreateObject("ADODB.Recordset") 
  nere = "Select * From files order by hit desc;" 
  ii.Open nere, conn, 1, 3 
  toplamscript = ii.Recordcount 
  Set yn = Server.CreateObject("ADODB.Recordset") 
  nere = "Select * From files order by file_id desc;" 
  yn.Open nere, conn, 1, 3 
  Set ed = Server.CreateObject("ADODB.Recordset") 
  nere = "Select * from files where tavsiyeli = True" 
  ed.Open nere, conn, 1, 3  
  if not ed.EOF then 
  edx = ed.Recordcount 
  Randomize 
  id = (Int(edx * rnd)+0) 
  ed.Move(id) 
  end if 
  Set rs = Server.CreateObject("ADODB.Recordset") 
  nere = "Select * From files where file_id= "&emlak 
  rs.Open nere, conn, 1, 3 
  rs("hit") = rs("hit") + 1 
   
   
  id=Request.QueryString("id")  
   
  Set son= Server.CreateObject("ADODB.Recordset")  
  SQL = " Select * from yazili where id="& id  
  son.Open SQL , Baglanti,1,3  
   
   
  %>