strSQL = strSQL & "WHERE ((tblForum.Password) Is Null) and Start_date = Last_entry_date "

Full code for displaying latest topic on any page - NOT depending on replies:

<%
Dim rsLastestPosts
Dim strPosts
Dim adoCon
Dim strCon
Dim strSQL

'Create a connection odject
Set adoCon = Server.CreateObject("ADODB.Connection")

'Database connection info and driver
strCon = "DRIVER={Microsoft Access Driver (*.mdb)};uid=;pwd=; DBQ=" & Server.MapPath("../forum/admin/database/XXX.mdb")

'Set an active connection to the Connection object
adoCon.Open strCon

Set rsLastestPosts = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT Top 15 tblTopic.*, tblForum.* "
strSQL = strSQL & "FROM tblForum INNER JOIN tblTopic ON tblForum.Forum_ID = tblTopic.Forum_ID " 
strSQL = strSQL & "WHERE ((tblForum.Password) Is Null) and Start_date = Last_entry_date "
strSQL = strSQL & "ORDER BY tblTopic.Last_entry_date DESC;"

rsLastestPosts.Open strSQL, strCon

If rsLastestPosts.EOF Then Response.Write "Ingen nye indlæg"

Do while NOT rsLastestPosts.EOF

If len(rsLastestPosts("Subject"))>14 then
     strPosts = left(rsLastestPosts("Subject"),14) & "... "
Else
     strPosts = rsLastestPosts("Subject")
End If


%>
<a href="forum_posts.asp?TID=<% = rsLastestPosts("Topic_ID") %>" target="_self"><% = strPosts %></a>

<%     
rsLastestPosts.MoveNext
Loop
rsLastestPosts.Close
Set rsLastestPosts = Nothing
adoCon.Close
Set adoCon = Nothing
Set strCon = Nothing
%>

Hope someone else can use it! :O)