<%
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")

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

iki.movenext()
wend



bir.movenext
next


%>