كيف يتم عرض مقال عشوائي من قاعدة البيانات؟؟

[aja]

السلام عليكم و رحمة الله و بركاته

كل عام و انتم بخير

عندي قاعدة بيانات تحتوي على جدول tab1 يحتوي على حقلين id, body

id : يعني رقم المقال
body : يعني محتوى المقال

المطلوب سكربت يقوم بعرض المقالات المخزنة في الجدول بطريقة عشوائية دون ترتيب

جزاكم الله خير الجزاء

[Wael Hindam]

<%
Randomize
For counter = 1 to 5
random_number = Int(26 * Rnd + 97)
random_letter = Chr(random_number)
password = password & random_letter
Next
%>

دا الكود المخصص لانشاء مجموعة من الحروف العشوائية مكمن انت تطوره و تربطه بقاعدة البيانات بحيث يستخرج مقالات عشوائية بواسطة دالة Randomize

[Blue_Red]

اذا سيرفرك Mssql استخدم :

select top 25 from tab1 order by newid()

[Blue_Red]

و كل عام و انت بخير

[aja]

شكرا لكم على الردود و كل عام و انتم بخير

ولكني انا استخدم قاعدة بيانات اكسيس ؟؟!!!


وجدت هذا الكود و لا اعرف ان كان هناك اسهل منه

عوما مشي الحال معاي و هاهو الكود للفائدة

<%
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
%>