<%
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(""&vt_yol&"")
Randomize()
RSayi= Int (100*Rnd)+1
Set rs=Server.CreateObject("Adodb.Recordset")
sor="Select * from programlar order by Rnd(" & -1 * (RSayi) & "*id)"...