|
|
|
 |
Takvim |
 |
| « |
Temmuz - 2008 |
» |
| PT |
SL |
ÇŞ |
PŞ |
CM |
CT |
PZ |
| |
1 |
2 |
3 |
4 |
5 |
6 |
| 7 |
8 |
9 |
10 |
11 |
12 |
13 |
| 14 |
15 |
16 |
17 |
18 |
19 |
20 |
| 21 |
22 |
23 |
24 |
25 |
26 |
27 |
| 28 |
29 |
30 |
31 |
|
 |
|
|
|
|
|
|
|
|
|
|
 |
|
|
Blog |
|
|
Son Yorumlanan Konular |
|
|
v2.1 veya daha alt sürümleri kullananlar vurguladığım yeri
<td width="100%"><a href="index.asp?blog=devam&id=<%=blog("id")%>"><%=blog("konu")%></a></td>
olarak değiştirip kullanabilirler.
Bu Şekilde 10 Kayıt Gösterir. 10 yazan yere kendi belirlediğiniz sayıyı yazabilirsiniz.
v2.1.1 kullananlar direkt kullanabilirler.
<%
set yorum = Server.CreateObject("ADODB.RecordSet")
SQL = "SELECT blog_id FROM yorum where onay=0 GROUP BY blog_id order by Max(tarih) desc"
yorum.open SQL,data,1,3
if not yorum.eof then
%>
<div align="center">
<table border="0" width="100%" id="table1" cellpadding="0" style="border-collapse: collapse">
<%
For p = 1 To 10
if yorum.eof Then exit For
set blog = Server.CreateObject("ADODB.RecordSet")
SQL = "select konu,id from blog where id="&yorum("blog_id")&""
blog.open SQL,data,1,3
%>
<tr onmouseover="this.style.backgroundColor='#ffffff';" onmouseout="this.style.backgroundColor='';">
<td width="100%"><a href="<%=blog("id")%>-<%=CreateURL(blog("konu"))%>.html"><%=blog("konu")%></a></td>
</tr>
<%
blog.close : set blog = nothing
yorum.Movenext
Next
%>
</table>
</div>
<%
Else
response.write "<center><b><font class=""orta"">Yorumlanan Konu Yok</font></b></center>"
end if
yorum.close : set yorum=nothing
%> |
|
|
|
|
|
|
|
|
 |
|
