|
|
|
<%
Set Rsyorum=Server.CreateObject("Adodb.Recordset")
Rsyorum.Open "SELECT * FROM yorum where yorum_onay='Evet' order by tarih desc", cilem, 1, 3
yorumsayisi= Rsyorum.recordcount%><%if yorumsayisi="" or yorumsayisi="0" then %>
Henüz Yorum Yapılmamış<% else %><%
cilemyeni = Request.QueryString("cilemyeni")
If cilemyeni="" Then cilemyeni=1
Rsyorum.pagesize = 10
Rsyorum.absolutepage = cilemyeni
cilemyeni_sayfa = Rsyorum.pagecount
for i=1 to Rsyorum.pagesize
if Rsyorum.eof then
exit for
end if
%>
" href="haberdetay.asp?bolum=<%=Rsyorum("bolum")%>&uyeid=<%=Rsyorum("uyeid")%>"><%=Rsyorum("konu")%>
<%
Rsyorum.movenext
Next
end if%>
|
|
<%
Set Rs=Server.CreateObject("Adodb.Recordset")
Rs.Open "SELECT * FROM haber where haberonay='Evet' and koseyazisi=false order by puan desc", cilem, 1, 3
habersayisi = rs.recordcount%><%if habersayisi="" or habersayisi="0" then %>
Henüz Haber Eklenmemiş<% else %><%
cilemyeni = Request.QueryString("cilemyeni")
If cilemyeni="" Then cilemyeni=1
rs.pagesize = 10
rs.absolutepage = cilemyeni
cilemyeni_sayfa = rs.pagecount
for i=1 to rs.pagesize
if rs.eof then
exit for
end if
%>
&uyeid=<%=rs("uyeid")%>"><%=rs("baslik")%>
<%
rs.movenext
Next
end if%> |