dim rs_commend,sql_commend,s
sql_commend="select count(commid),commtitle as rcount from food_commend"
set rs_commend=conn.execute(sql_commend)
s=rs_commend("Rcount")
randomize
dim sjs(7)
for j=o to 7
sjs(j)=int(rnd*s+1)
set rs2=server.CreateObject("adodb.recordset")
sql2="select * from food_commend where commid="&sjs(j)&""
rs2.open sql2,conn,1,1
sHomepage="FoodCommDetail.asp?id="&rs2("CommID")
next