Add whats in red. This is a patch. . . not a fix.
if Request.Querystring("TOPIC_ID") <> "" Then
set rst = my_conn.execute("SELECT FORUM_ID,TOPIC_ID, T_SUBJECT FROM " & strTablePrefix & "TOPICS WHERE TOPIC_ID = " & Request.Querystring("TOPIC_ID"))
if rst.EOF or rst.BOF then
strOnlineLocation = "Viewing Error Message"
else
Topic_Subject = rst("T_SUBJECT")
intOnlineForumType = rst("FORUM_ID")
rst.close
set rst = nothing
if ChkForumType(intOnlineForumType) then
strOnlineLocation = "Viewing Topic: <a href=""link.asp?TOPIC_ID=" & Request.QueryString("TOPIC_ID") & """>"
strOnlineLocation = strOnlineLocation & Topic_Subject
else
strOnlineLocation = "Viewing Topic in: <a href=""link.asp?TOPIC_ID=" & Request.QueryString("TOPIC_ID") & """>Private Forums"
end if
end if
end if
Nathan Bales
Snitz Exchange | Do's and Dont's