|
|
|
 |
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 %> |
|
|
|
|
|
|
|
|
 |
|