شكرا لكم على الردود و كل عام و انتم بخير
ولكني انا استخدم قاعدة بيانات اكسيس ؟؟!!!
وجدت هذا الكود و لا اعرف ان كان هناك اسهل منه
عوما مشي الحال معاي و هاهو الكود للفائدة
كود:
<%
set cn =server.createObject("adodb.connection")
cn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &server.MapPath("data.mdb")
set rs = cn.execute("select count(*) from tab1")
countOfRec = rs(0)
randomize
random_number = int(rnd * countOfRec)+1
rs.close
set rs = nothing
Set rs = Server.createObject ("ADODB.Recordset")
rs.CursorLocation = 3
rs.Open "select * from tab1", cn, 3,1
if not rs.eof then
rs.PageSize = 1
rs.AbsolutePage = random_number
response.write "Random Number: " & random_number & ""
response.write rs("id") & " - " & rs("body")
end if
rs.Close
set rs = Nothing
cn.Close
set cn = Nothing
%>