böyle denesen bir.

<%
Set bir =Server.CreateObject("ADODB.Recordset")
strSQL="SELECT arkadaslik.ekleyen,arkadaslik.onay,uyeler.id from arkadaslik,uyeler where uyeler.id=arkadaslik.ekleyen and arkadaslik.onay=""T"" order by arkadaslik.id desc"
bir.Open strSQL,baglanti2,1,3

do while no bir.eof

response.write "uyeid: "&bir(2)&" - Ekleyenid: "&bir(0)&"<br>")

bir.movenext
loop


%>