نمایش رندوم از دیتابیس

[amirlol]

یادمه یکی ازم سوال پزسیده بود ! اینم جوابش
روش به صورت زیر است

1) تعداد کل رکورد دریافت میشه
2) یک عدد از بینشون انتخاب میشه
3)از دیتابیس می خونه و نمایش میده

<%@ Language=VBScript %>

<%
dim conn, rs, connStr, sql, recCount, rec

set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
conn.Open connStr

sql = "Select eComm_ID From tblEComm"
rs.Open sql, conn, 3

'grab the record count using the RecordCount property of the RecordSet
recCount = rs.RecordCount

rs.close
conn.Close
set rs=nothing
set conn=nothing

'Randomize forces the RND() function to use a new sequence of random numbers
randomize

'generate the random number based on the record count
rec = int(rnd * recCount)

set conn=server.CreateObject("adodb.connection")
conn.open connStr

sql = "Select Field1, Field2, Field3 From tblECommerce Order By eComm_ID"
set rs=conn.execute(sql)

rs.MoveFirst

'use the Move property of the RecordSet object to move to the random number
rs.Move rec
%>

<table>
<tr><td><%= rs("Field1") %></td></tr>
<tr><td><%= rs("Field2") %></td></tr>
<tr><td><%= rs("Field3") %></td></tr>
</table>

<%
rs.Close
conn.close
set rs=nothing
set conn=nothing
%>