When you search for archived topics, it display results, but when follow the links, it returns error. You need to add "archive=true" (or blank) and the links will work. Here is the fixed.
Starting at line 262 (in Hurw's version), you need to replace:
& rs("TOPIC_ID") &
with
& rs("TOPIC_ID") & "&ARCHIVE=" & ArchiveView &
<% currForum = rs("FORUM_ID")
end if
if currTopic <> rs("TOPIC_ID") then
Response.Write " <tr>" & vbNewline
' Response.Write " <td width=""20"" bgcolor=" & strForumCellColor & "> </td>"
if rsCFStatus("CAT_STATUS") <> 0 and rsCFstatus("F_STATUS") <> 0 and rs("T_STATUS") <> 0 then
' DEM --> Added if statement to display topic status properly
if rs("T_STATUS") = 2 then
Response.Write " <td bgcolor=""" & _
strForumCellColor & """ align=""center"">" & _
"<a href=""topic.asp?TOPIC_ID=" & rs("TOPIC_ID") & "&ARCHIVE=" & ArchiveView & _
"""><img src=""" & strImageURL & "icon_folder_unmoderated.gif""" & _
" alt=""Topic Unmoderated""" & _
"border=""0""></a></td>" & vbNewline
elseif rs("T_STATUS") = 3 then
Response.Write " <td bgcolor=""" & _
strForumCellColor & """ align=""center"">" & _
"<a href=""topic.asp?TOPIC_ID=" & rs("TOPIC_ID") & "&ARCHIVE=" & ArchiveView & _
"""><img src=""" & strImageURL & "icon_folder_hold.gif""" & _
" alt=""Topic Held""" & _
"border=""0""></a></td>" & vbNewline
else
Response.Write " <td bgcolor=""" & _
strForumCellColor & """ align=""center"">" & _
"<a href=""topic.asp?TOPIC_ID=" & rs("TOPIC_ID") & "&ARCHIVE=" & ArchiveView & _
""">" & ChkIsNew(rs("T_LAST_POST")) & "</a></td>" & vbNewline
end if
else
Response.Write " <td bgcolor=""" & _
strForumCellColor & """ align=""center"">" & _
"<a href=""topic.asp?TOPIC_ID=" & rs("TOPIC_ID") & "&ARCHIVE=" & ArchiveView & _
"""><img src=""" & strImageURL & "icon_folder_locked.gif"""
if rsCFStatus("CAT_STATUS") = 0 then
Response.Write ("alt='Category Locked'")
elseif rsCFStatus("F_STATUS") = 0 then
Response.Write ("alt='Forum Locked'")
else
Response.Write ("alt='Topic Locked'")
end if
Response.Write "border=""0""></a></td>" & vbNewline
end if %>
<td bgcolor="<% =strForumCellColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="topic.asp?TOPIC_ID=<% =rs("TOPIC_ID") %>&ARCHIVE=<%=ArchiveView%>"><% =ChkString(left(rs("T_SUBJECT"), 50),"display") %></a> </font><% if strShowPaging = "1" then TopicPaging() end if%></td>
<td bgcolor="<% =strForumCellColor %>" valign="center" align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strForumFontColor %>"><% =ChkString(rs("M_NAME"),"display") %></font></td>
Topic Locked
Posted - 16 April 2002 : 12:12:29
