<%startnew=0
endnews=2000
cn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("temp.mdb")
set rstemp=server.CreateObject("adodb.recordset")
sql="select title from xlink"
rstemp.open sql,cn,1,1
for i=1 to 20
randomize
step=int(rnd()*rstemp.recordcount)
rstemp.move step
newsno=startnews+int(rnd()*(endnews-startnews))
response.write "