| |
| .:Dua
Köşesi |
| |
<%
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
%>
 ..." 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
%>
|
| |
<%
Rs_dualar.movenext
loop
end if
%>
|
