<%
Set bir =Server.CreateObject("ADODB.Recordset")
strSQL="SELECT * from arkadaslik where ekleyen="&session("id")&" and onay=""T"""
bir.Open strSQL,baglanti2,1,3
if not bir.eof then
sql = ""
for i = 1 to bir.recordcount

gelingari = bir("eklenen")

if sql = "" then
sql = "where id <> "&gelingari
else
sql = sql & " and id <> "&gelingari
end if



bir.movenext
next

set iki = baglanti.execute("SELECT * FROM uyeler "&sql)
while not iki.eof

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

iki.movenext()
wend

else
response.write "Kayıt yok"
end if

%>