<!-- #include virtual="/asp/public.asp" -->
<%
  Dim StartTime
  StartTime = Timer
  dim SQLCount
  SetConnObject conn,rs
  '1. Yöntem
  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
  Response.Write("1. Yöntem" & Timer-StartTime &" saniye sürmüştür. Random ID" & rs("FIELDNAME") & "<BR>")
  rs.close
  '2. Yöntem
  StartTime = Timer
  sql="SELECT top 1 PK,FIELDNAME FROM TABLENAME ORDER BY RAND(PK), FIELDNAME"
  rs.open sql,conn
  Response.Write("2. Yöntem" & Timer-StartTime &" saniye sürmüştür. Random ID" & rs("FIELDNAME") & "<BR>")
  rs.close
  '3. Yötenm
  StartTime = Timer
  sql = "SELECT * FROM TABLENAME"
  rs.Open sql, conn,1,3
  Randomize Timer
  intRnd = (Int(RND * rs.RecordCount))
  rs.Move intRnd
  Response.Write("3. Yöntem" & Timer-StartTime &" saniye sürmüştür. Random ID" & rs("FIELDNAME") & "<BR>")
  rs.close
  FreeConnection conn,rs
%>

Buda bütün yollar ve bu sayfanın çalıştırılması sonucunda ise aşağıdaki sonuçlar görüntülendi.

Toplam Kayıt : 80575646
1. Yöntem 0.04 saniye sürmüştür. Random ID0011897281
2. Yöntem 19,26611 saniye sürmüştür. Random ID0011879701
3. Yöntem Timeout expired