şö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 NOT IN ("&gelingari&") order by id desc")

while not iki.eof

response.write iki("id")&"<br>"

iki.movenext
wend


bir.movenext
next


%>