Alıntı
<%
Set doktur = Server.CreateObject("ADODB.Recordset")
doktur.open "SELECT * FROM tabloadi",baglantidegiskeni,1,3
%>

<%
emin = doktur.recordcount

randomize
sayi = int((emin * rnd) + 0)
%>

<%
Set sonuc = Server.CreateObject("ADODB.Recordset")
sonuc.open "SELECT * FROM tabloadi WHERE id = " & sayi & "",baglantidegiskeni,1,3
%>

<%=sonuc("eposta")%>
Kodları deneme vaktim olmadı. Makinemdede Local şu anda yüklü değil PHP deseydin hemen denemeli yazardım. Sıkıntı olursa düzenleyebilirim.

Saygılarımla
Emin ÖZTÜRK