Another little lame MOD. No files here, just some code changes.
If you apply the changes below you will be able to place smilies in the topics of your posts and not just in the bodies.
Note: I probably forgot to change some files, so if you discover that is the case just post a reply with the additional necessary changes.
Enjoy
The necessary changes:
forum.asp line 533
before
Response.Write "<span class=""spnMessageText""><a href=""topic.asp?" & ArchiveLink & "TOPIC_ID=" & Topic_ID & """>" & ChkString(Topic_Subject,"title") & "</a></span> </font>" & vbNewLine
after
Response.Write "<span class=""spnMessageText""><a href=""topic.asp?" & ArchiveLink & "TOPIC_ID=" & Topic_ID & """>" & formatStr(ChkString(Topic_Subject),"title") & "</a></span> </font>" & vbNewLine
search.asp line 526
before
Response.Write "<span class=""spnMessageText""><a href=""topic.asp?TOPIC_ID=" & Topic_ID & SearchLink & """>" & ChkString(left(Topic_Subject, 50),"display") & "</a></span> </font>" & vbNewLine
after
Response.Write "<span class=""spnMessageText""><a href=""topic.asp?TOPIC_ID=" & Topic_ID & SearchLink & """>" & formatStr(ChkString(left(Topic_Subject, 50),"display")) & "</a></span> </font>" & vbNewLine
pop_profile.asp line 455
before
Response.Write " <td bgcolor=""" & strPopUpTableColor & """ align=""left"" valign=""middle"" width=""95%""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """> <a href=""topic.asp?TOPIC_ID=" & rs2("TOPIC_ID") & """>" & ChkString(rs2("T_SUBJECT"),"display") & "</a> </font></td>" & vbNewLine & _
after
Response.Write " <td bgcolor=""" & strPopUpTableColor & """ align=""left"" valign=""middle"" width=""95%""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """> <a href=""topic.asp?TOPIC_ID=" & rs2("TOPIC_ID") & """>" & formatStr(ChkString(rs2("T_SUBJECT"),"display")) & "</a> </font></td>" & vbNewLine & _
topic.asp line 429
before
if Request.QueryString("SearchTerms") <> "" then
Response.Write SearchHiLite(ChkString(Topic_Subject,"title"))
else
Response.Write ChkString(Topic_Subject,"title")
end if
after
if Request.QueryString("SearchTerms") <> "" then
Response.Write SearchHiLite(formatStr(ChkString(Topic_Subject,"title")))
else
Response.Write formatStr(ChkString(Topic_Subject,"title"))
end if
active.asp line 537
before
Response.Write "<span class=""spnMessageText""><a href=""topic.asp?TOPIC_ID=" & Topic_ID & """>" & ChkString(Topic_Subject,"title") & "</a></span> </font>" & vbNewline
after
Response.Write "<span class=""spnMessageText""><a href=""topic.asp?TOPIC_ID=" & Topic_ID & """>" & formatStr(ChkString(Topic_Subject,"title")) & "</a></span> </font>" & vbNewline