Arakdaşlar kullanmak isteyenler için sorunsuz çalışıyor;

<%
dim i
For i=1 to 3 %>
<%

Response.ContentType="text/html"
Response.Charset="UTF-8"
Response.Codepage=65001
set vt=server.createobject("adodb.connection")
vt.open"Provider=Microsoft.Jet.oledb.4.0;Data source="&Server.Mappath("vt.mdb")

set rs = server.createobject("ADODB.Recordset")
sql = "select * from tabloadi"
rs.open sql,vt,1,3


Randomize
rastgele = Int((rs.RecordCount * Rnd)+ 0)
Randomize

%>

<%
Rs.Move(rastgele)
%>
<%=rs("sütunadi")%>

<% next %>
<%
vt.Close
Set vt = Nothing
%>