New topics by time of posting

at line 477 to line 484 replace the code with this:

 

%>
  <td width="31%"><a href="active_topics.asp?SO=T<% = strQsSID2 %>"><% = strTxtTopics %></a><% If Request.QueryString("SO") = "T" Then Response.Write(" <a href=""active_topics.asp?SO=T&OB=" & strSortDirection & strQsSID2 & """><img src=""" & strImagePath & strSortDirection & ".gif"" border=""0"" align=""absmiddle"" alt=""" & strTxtReverseSortOrder & """ /></a>") %></td>
  <td width="25%"><a href="active_topics.asp?SO=T<% = strQsSID2 %>"><% = strTxtForums %></a><% If Request.QueryString("SO") = "T" Then Response.Write(" <a href=""active_topics.asp?SO=T&OB=" & strSortDirection & strQsSID2 & """><img src=""" & strImagePath & strSortDirection & ".gif"" border=""0"" align=""absmiddle"" alt=""" & strTxtReverseSortOrder & """ /></a>") %></td>
  <td width="15%" nowrap><a href="active_topics.asp?SO=A<% = strQsSID2 %>"><% = strTxtThreadStarter %></a><% If Request.QueryString("SO") = "A" Then Response.Write(" <a href=""active_topics.asp?SO=A&OB=" & strSortDirection & strQsSID2 & """><img src=""" & strImagePath & strSortDirection & ".gif"" border=""0"" align=""absmiddle"" alt=""" & strTxtReverseSortOrder & """ /></a>") %></td>
  <td width="7%" align="center" nowrap><a href="active_topics.asp?SO=R<% = strQsSID2 %>"><% = strTxtReplies %></a><% If Request.QueryString("SO") = "R" Then Response.Write(" <a href=""active_topics.asp?SO=R&OB=" & strSortDirection & strQsSID2 & """><img src=""" & strImagePath & strSortDirection & ".gif"" border=""0"" align=""absmiddle"" alt=""" & strTxtReverseSortOrder & """ /></a>") %></td>
  <td width="7%" align="center" nowrap><a href="active_topics.asp?SO=V<% = strQsSID2 %>"><% = strTxtViews %></a><% If Request.QueryString("SO") = "V" Then Response.Write(" <a href=""active_topics.asp?SO=V&OB=" & strSortDirection & strQsSID2 & """><img src=""" & strImagePath & strSortDirection & ".gif"" border=""0"" align=""absmiddle"" alt=""" & strTxtReverseSortOrder & """ /></a>") %></td>
  <td width="25%" align="center"><a href="active_topics.asp<% = strQsSID1 %>"><% = strTxtLastPost %></a><% If Request.QueryString("SO") = "" Then Response.Write(" <a href=""active_topics.asp?OB=" & strSortDirection & strQsSID2 & """><img src=""" & strImagePath & strSortDirection & ".gif"" border=""0"" align=""absmiddle"" alt=""" & strTxtReverseSortOrder & """ /></a>") %></td>
 </tr><%

 

and line 731 (after </td> )add this code:

 

<td>strforumname</td>

 

 

add that code to line 576 :

 

If sarryTopics(1,intCurrentRecord) <> strForumName Then

 

   'Give the forum name the new forum name
   strForumName = sarryTopics(1,intCurrentRecord)

 

End If

 

it must be ok...