sql = "SELECT rows AS TABLECOUNT FROM sysindexes WHERE id = OBJECT_ID('TABLENAME') AND indid < 2"
  rs.open sql,conn
  SQLCount = rs("TABLECOUNT ")
  Response.Write ("Toplam Kayıt : " & SQLCount &"<br>")
  rs.close
  Randomize Timer
  intRnd = (Int(RND * SQLCount))
  sql = "SELECT * FROM TABLENAME WHERE PK ="&intRnd
  rs.open sql,conn