| |
| .:Şükür
Köşesi |
|
 Siz
de Şükürlerinizi Paylaşmak İster misiniz?
|
| Allah'ım
sana şükürler olsun ki ... |
<%
i=1
set Rs_sukur = Server.CreateObject("ADODB.Recordset")
sql_sukur = "Select * from sukur as d where d.onay = 1 order by d.SukurId desc "
Rs_sukur.open sql_sukur,conn,1,3
if Rs_sukur.EOF then
Response.write ""
Else
do while not Rs_sukur.eof
%>
 <%=Rs_sukur("icerik")%> |
| Gönderen : <%
i=i+1
if Rs_sukur("UyeId") = 0 then
Response.write Rs_sukur("isim")
else
set Rs_gonderen = Server.CreateObject("ADODB.Recordset")
sql_gonderen = "Select kullaniciadi from uye as u where u.KullaniciId = "&Rs_sukur("UyeId")
Rs_gonderen.open sql_gonderen,conn,1,3
if Rs_gonderen.EOF then
Response.write ""
Else
do while not Rs_gonderen.eof
response.write Rs_gonderen("kullaniciadi")
Rs_gonderen.movenext
loop
end if
end if
'response.write Rs_sukur("kullaniciadi")
if rs_sukur("tarih") <> "" then
%>
- (<%=rs_sukur("tarih")%>)
<%END if%>
|
| |
<%
Rs_sukur.movenext
loop
end if
%>
|
