|
. |
|
|
|
|
. |
|
İnsanları arkadaşları aracılığıyla yeni
insanlarla tanıştıran uluslararası bir
topluluktur. Profilinizi oluşturun,
fotoğraflarınızı, müziğinizi, videolarınızı,
bloglarınızı, anketlerinizi ve haberlerinizi
paylaşın. Hemen Başlayın |
 |
Üye Girişi |
 |
| |
|
|
|
|
|
|
|
|
|
|
|
|
|
. |
 |
<%
SQL="Select top 5 * from uyeler where hafuye=1 and cinsiyet='Bayan' and resim=1 Order by id desc"
Set hu = Conn.ExeCute(SQL)
%>
<%
Do while not hu.eof
xd = xd + 1
SQL="Select * from resimler Where onay=1 and uyeid="&hu("id")&""
Set resim = Conn.ExeCute(SQL)
if resim.eof then
resim="resimyok.gif"
else
resim=resim("resim")
end if
%>
|
|
<%
IF xd mod 5=0 Then Response.Write " "
hu.MoveNext
Loop
hu.Close
Set hu = Nothing
%>
<%
SQL="Select top 5 * from uyeler where hafuye=1 and cinsiyet='Bay' and resim=1 Order by id desc"
Set hu = Conn.ExeCute(SQL)
%>
<%
Do while not hu.eof
xd = xd + 1
SQL="Select * from resimler Where onay=1 and uyeid="&hu("id")&""
Set resim = Conn.ExeCute(SQL)
if resim.eof then
resim="resimyok.gif"
else
resim=resim("resim")
end if
%>
|
|
<%
IF xd mod 5=0 Then Response.Write " "
hu.MoveNext
Loop
hu.Close
Set hu = Nothing
%>
|
|
| |
 |
<%
SQL="Select top 5 * from uyeler where uyeyetki=1 and resim=1 Order by newID()"
Set hu = Conn.ExeCute(SQL)
%>
<%
Do while not hu.eof
xd = xd + 1
SQL="Select * from resimler Where onay=1 and uyeid="&hu("id")&""
Set resim = Conn.ExeCute(SQL)
if resim.eof then
resim="resimyok.gif"
else
resim=resim("resim")
end if
%>
|
|
<%
IF xd mod 5=0 Then Response.Write " "
hu.MoveNext
Loop
hu.Close
Set hu = Nothing
%>
|
|
|
. |
|
 |
|
|
