Last topic displayed for each forum on default.asp - Web Wiz Support and Community Forums

first define a veriable named strSubject

dim strSubject

find that code;

'Write the HTML of the forum descriptions and hyperlinks to the forums

and paste that code after it:

'Write the HTML of the forum descriptions and hyperlinks to the forums

     'Son mesajlar
     strSQL = "SELECT" & strDBTop1 & " " & strDbTable & "Topic.Subject FROM " & strDbTable & "Topic" & strDBNoLock & ", " & strDbTable & "Thread" & strDBNoLock & " " & _
      "WHERE " & strDbTable & "Topic.Topic_ID = " & strDbTable & "Thread.Topic_ID AND " & strDbTable & "Topic.Forum_ID=" & intForumID & " AND " & strDbTable & "Topic.Hide=" & strDBFalse & " " & _
       "AND " & strDbTable & "Thread.Hide=" & strDBFalse & " ORDER BY " & strDbTable & "Thread.Message_date DESC" & strDBLimit1 & ";"
      rsCommon.Open strSQL, adoCon
      if NOT rsCommon.EOF then
      If len(rsCommon("Subject"))>30 Then
       strSubject = "<a href=""get_last_post.asp?FID=" &intForumID & """ class=""link_1"">" & left(rsCommon("Subject"),30) &"..."& "</a>"
      else
       strSubject = "<a href=""get_last_post.asp?FID=" &intForumID & """ class=""link_1"">" & rsCommon("Subject")& "</a>"
      End If
      end if
      rsCommon.Close
        'Son Mesajlar

finally find and change this code:

     If lngNumberOfPosts <> 0 Then
        'Don't disply last post details if there are none
      Response.Write(DateFormat(dtmLastEntryDate) & " " & strTxtAt & " " & TimeFormat(dtmLastEntryDate) & _
      "<br/>" & strTxtBy & " <a href=""member_profile.asp?PF=" & lngLastEntryUserID & strQsSID2 & """ class=""smLink"">" & strLastEntryUser & "</a> <a href=""get_last_post.asp?FID=" & intLastForumEntryID & strQsSID2 & """><img src=""" & strImagePath & "right_arrow.gif"" align=""absmiddle"" border=""0"" alt=""" & strTxtViewLastPost & """ /></a>")
     End If

to this;

     If lngNumberOfPosts <> 0 Then
        'Don't disply last post details if there are none
      Response.Write(strSubject & "<br />" & DateFormat(dtmLastEntryDate) & " " & strTxtAt & " " & TimeFormat(dtmLastEntryDate) & _
      "<br/>" & strTxtBy & " <a href=""member_profile.asp?PF=" & lngLastEntryUserID & strQsSID2 & """ class=""smLink"">" & strLastEntryUser & "</a> <a href=""get_last_post.asp?FID=" & intLastForumEntryID & strQsSID2 & """><img src=""" & strImagePath & "right_arrow.gif"" align=""absmiddle"" border=""0"" alt=""" & strTxtViewLastPost & """ /></a>")
     End If

thats all....