Add this just above where it displays the time and the time of your last visit on the forum homepage.
<%
Response.Write("<b>" & strMainForumName & " Latest News: ")
strSQL = "SELECT Top 1 " & strDbTable & "Topic.Topic_ID, " & strDbTable & "Topic.Subject, " & strDbTable & "Forum.Forum_ID "
strSQL = strSQL & "FROM " & strDbTable & "Forum INNER JOIN " & strDbTable & "Topic ON " & strDbTable & "Forum.Forum_ID = " & strDbTable & "Topic.Forum_ID "
strSQL = strSQL & "WHERE ((" & strDbTable & "Forum.Password) Is Null) "
strSQL = strSQL & "ORDER BY " & strDbTable & "Topic.Last_entry_date DESC;"
rsCommon.Open strSQL, adoCon
If rsCommon.EOF Then
Response.Write "No Posts Made"
Else
Do while NOT rsCommon.EOF
If len(rsCommon("Subject"))>18 then
strTopicSubject = left(rsCommon("Subject"),18) & "..."
Else
strTopicSubject = rsCommon("Subject")
End If
Response.Write("<a href=""forum_posts.asp?TID=" & rsCommon("Topic_ID") & "&PN=1"">" & strTopicSubject & "</a>")
rsCommon.MoveNext
Loop
End If
Response.Write("</b><br>")
rsCommon.Close
%>
If your forum is in another language then you will have to do the translation yourself.