Arkadaşlar gösterdiğiniz ilgi için teşekkürler.
bolivar Hocam aşağıdaki kodlamayı dediğiniz şeklinde yaptım çalıştı, yanlız hocam resimler biraz yavaş açılıyor, birde her ilanın ilk resmini nasıl alabilirim.
Saygılar.
<%
set rs = server.createobject("ADODB.Recordset")
sql = "select ilan.*,Resim.ad from ilan,Resim where Resim.ana_id = ilan.id and ilan.konu='Kiralık' ORDER BY RAND() limit 0,1"
rs.open sql,db,1,3
%>