LePaul,
I will email you the complete default.asp.
Here are the lines I changed:
---------------- create holder for subject "topic name"
' MOD: to display Topic Name in Last Post column
Dim strLastEntrySubject 'Holds the subject of the last entry
---------------- Add the Subject column to the SELECT statement in the Access query
' strSQL = "SELECT Top 1 " & strDbTable & "Author.Username, " & strDbTable & "Author.Author_ID, " & strDbTable & "Thread.Topic_ID, " & strDbTable & "Thread.Thread_ID, " & strDbTable & "Thread.Message_date "
' MOD: to display Topic Name in Last Post column
strSQL = "SELECT Top 1 " & strDbTable & "Author.Username, " & strDbTable & "Author.Author_ID, " & strDbTable & "Thread.Topic_ID, " & strDbTable & "Thread.Thread_ID, " & strDbTable & "Thread.Message_date, " & strDbTable & "Topic.Subject "
---------------- Add an INNER JOIN to the Access query to include the Subject from the Topic table
' strSQL = strSQL & "FROM " & strDbTable & "Author "
' MOD: to display Topic Name in Last Post column
strSQL = strSQL & "FROM " & strDbTable & "Author, " & strDbTable & "Thread INNER JOIN " & strDbTable & "Topic ON " & strDbTable & "Topic.Topic_ID = " & strDbTable & "Thread.Topic_ID "
---------------- populate the strLastEntrySubject from the query results
' MOD: to display Topic Name in Last Post column
strLastEntrySubjec t = rsCommon("Subject")
---------------- Add the link to the last entry using the Subject as the hypertext
' Response.Write(""" background=""" & strTableBgImage & """ width=""29%"" class=""smText"" align=""right"" nowrap=""nowrap"">" & DateFormat(dtmLastEntryDate, saryDateTimeData) & " " & strTxtAt & " " & TimeFormat(dtmLastEntryDate, saryDateTimeData) & "" & _
' MOD: to display Topic Name in Last Post column
Response.Write(""" background=""" & strTableBgImage & """ width=""29%"" class=""smText"" align=""right"" nowrap=""nowrap""><a href=""forum_posts.asp?TID=" & lngLastEntryTopicID & "&get=last#" & lngLastEntryMeassgeID & """ target=""_self"">" & strLastEntrySubject & "</a>" & vbCrLf & " <br />" & DateFormat(dtmLastEntryDate, saryDateTimeData) & " " & strTxtAt & " " & TimeFormat(dtmLastEntryDate, saryDateTimeData) & "" & _
Edited by jimdmurphy