bir("eklenen") alanı nedir sayımı text mi?
data örneği verebilirmisin.

birde şöyle dene

<%
Set bir =Server.CreateObject("ADODB.Recordset")
strSQL="SELECT * from arkadaslik where ekleyen="&session("id")&" and onay=""T"""
bir.Open strSQL,baglanti2,1,3
for i = 1 to bir.recordcount
gelingari = bir("eklenen")
set iki = baglanti.execute("SELECT * FROM uyeler where id = "&gelingari&" order by id desc")

if not iki.eof then
response.write iki("id")&"<br>"
end if


bir.movenext
next


%>