<table cellspacing="1" cellpadding="3" class="tableBorder" align="center">
 <% If strDatabaseType = "SQLServer" Then %>
 <tr class="tableSubLedger">
    <td width="38%" align="center">Konu</td>
    <td width="19%" align="center">Forum</td>
    <td width="15%" align="center">Yazan</td>
    <td width="21%" align="center">Tarih</td>
    <td width="7%" align="center">Okunma</td>
  </tr>
 
<%
Dim rsEnSonMesajlar
Dim intSay
Dim rsLatestPosts2 
Dim sql2
Dim LastLatestPostsDateTime
Dim LastLatestPostsDate
Dim LastLatestPostsTime
 

Set rsEnSonMesajlar = Server.CreateObject("ADODB.Recordset")
strSql = "Select " & strDbTable & "Topic.Subject, " & strDbTable & "Topic.Topic_ID, " & strDbTable & "Forum.Forum_ID, " & 
strDbTable & "Forum.Forum_name, " & strDbTable & "Topic.Last_Thread_ID, " & strDbTable & "Topic.No_of_views "
strSql = strSql & "From " & strDbTable & "Topic, " & strDbTable & "Forum Where " & strDbTable & "Topic.Hide = False And " & 
strDbTable & "Topic.Forum_ID = " & strDbTable & "Forum.Forum_ID Order By " & strDbTable & "Topic.Last_Thread_ID desc"
rsEnSonMesajlar.Open strSQL, adoCon

For intSay = 1 to 15
if rsEnSonMesajlar.Eof Then Exit For
Set rsLatestPosts2 = Server.CreateObject("ADODB.Recordset")
sql2 = "SELECT tblThread.Thread_ID, tblThread.Topic_ID, tblThread.Message_date, tblAuthor.Username, tblAuthor.Author_ID FROM 
(tblAuthor INNER JOIN tblThread ON tblAuthor.Author_ID = tblThread.Author_ID) WHERE tblThread.Hide = False And Topic_ID= " & 
rsEnSonMesajlar("Topic_ID") & " order by Message_date desc"
rsLatestPosts2.Open sql2, adoCon
LastLatestPostsDateTime = rsLatestPosts2("Message_date")
LastLatestPostsDate = DateFormat(LastLatestPostsDateTime)
LastLatestPostsTime = TimeFormat(LastLatestPostsDateTime)

Response.Write "<tr class=""tableRow""><td><a  href=""forum_posts.asp?TID=" & rsEnSonMesajlar("Topic_ID") & """><img 
border=""0"" src=""" & strImagePath & "right_arrow.gif"" alt=""Konuyu Görüntülemek İçin Tıklayın"" /></a>&nbsp;<a  
href=""forum_posts.asp?TID=" & rsEnSonMesajlar("Topic_ID") & "&get=last#" & rsEnSonMesajlar("Last_Thread_ID") & """ 
title=""Son Mesajı Görüntülemek İçin Tıklayın"">" & rsEnSonMesajlar("Subject") & "</a></td><td><a  
href=""forum_topics.asp?FID=" & rsEnSonMesajlar("Forum_ID") & """ title=""Forum Ana Sayfasını Görüntülemek İçin Tıklayın"">" 
& rsEnSonMesajlar("Forum_name") & "</a></td><td align=""center"">"&rsLatestPosts2("Username") &"</td><td align=""center"">" & 
LastLatestPostsDate & "-" & LastLatestPostsTime & "</td><td align=""center"">" & rsEnSonMesajlar("No_of_views") & 
"</td></tr>"
rsEnSonMesajlar.MoveNext
Next
end if
%>
 
</table>