<% set Rs_dualar = Server.CreateObject("ADODB.Recordset") sql_dualar = "Select * from dua as d where d.onay = 1 order by d.DuaId desc " Rs_dualar.open sql_dualar,conn,1,3 if Rs_dualar.EOF then Response.write "" Else do while not Rs_dualar.eof %> <% Rs_dualar.movenext loop end if %>
 
 .:Dua Köşesi
 
  ..." href="duaDetay.asp?duano=<%=Rs_dualar("DuaId")%>&Baslik=<%=linkDuzelt(Rs_dualar("Baslik"))%>"><%=Rs_dualar("baslik")%>
 <%=left(Rs_dualar("icerik"),100)%>
 Gönderen : <% if isnull(rs_dualar("UyeId")) then Response.write "Ziyaretci" else duaId =Rs_dualar("uyeId") Set Rs_dua3 = Server.CreateObject("ADODB.Recordset") Sql_dua3="Select u.* From uye as u where u.KullaniciId = " & Rs_dualar("UyeId") & " " Rs_dua3.open Sql_dua3,conn,1,3 if rs_dua3.eof then Response.write "Ziyaretci" else do while not rs_dua3.eof Response.write rs_dua3("kullaniciadi") rs_dua3.movenext loop end if end if %>
 

Siz de Duanızı Paylaşmak İster misiniz?