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