Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/Code)
 MOD: Smilies in topic
 New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

yossik
Starting Member

Israel
14 Posts

Posted - 11 September 2002 :  09:26:32  Show Profile  Visit yossik's Homepage
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


Edited by - yossik on 11 September 2002 09:30:22

Etymon
Advanced Member

United States
2385 Posts

Posted - 11 September 2002 :  21:34:12  Show Profile  Visit Etymon's Homepage

Nice addition.

Thanks for the MOD!

Etymon
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 15 September 2002 :  15:26:00  Show Profile
quote:

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








Should say:

Response.Write "<span class=""spnMessageText""><a href=""topic.asp?" & ArchiveLink & "TOPIC_ID=" & Topic_ID & """>" & formatStr(ChkString(Topic_Subject,"title")) & "</a></span> </font>" & vbNewLine

Go to Top of Page

StephenD
Senior Member

Australia
1044 Posts

Posted - 17 September 2002 :  02:11:51  Show Profile  Send StephenD a Yahoo! Message
Hmm .. I get an error in pop_profile.asp in that line. I'm running v3.4.03.
Go to Top of Page

Etymon
Advanced Member

United States
2385 Posts

Posted - 17 September 2002 :  14:06:04  Show Profile  Visit Etymon's Homepage

I don't fully understand what is logically happening with the code nor have I had the chance to implement it yet. I do have a question.

Does this allow only for smilies or is all forum code?

The reason I ask is because I am wondering if a user can also alter the size and look of the text as well with this modification.

If anyone has this installed, could you please let me know here?


Thanks so much,

Etymon
Go to Top of Page

StephenD
Senior Member

Australia
1044 Posts

Posted - 18 September 2002 :  05:36:22  Show Profile  Send StephenD a Yahoo! Message
It only allows for the insertion of smilies.
Go to Top of Page

PeeWee.Inc
Senior Member

United Kingdom
1893 Posts

Posted - 21 September 2002 :  01:51:51  Show Profile  Visit PeeWee.Inc's Homepage
nice mod, thanx.
It would not work for me at first so i did it with Carefree's editing off forum.asp and now it works fine

De Priofundus Calmo Ad Te Damine

Edited by - PeeWee.Inc on 21 September 2002 02:31:18
Go to Top of Page

PeeWee.Inc
Senior Member

United Kingdom
1893 Posts

Posted - 21 September 2002 :  02:27:18  Show Profile  Visit PeeWee.Inc's Homepage
quote:
Microsoft VBScript runtime error '800a01c2'

Wrong number of arguments or invalid property assignment: 'chkString'

/pornstarpeewee/db/forum.asp, line 532


De Priofundus Calmo Ad Te Damine
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.23 seconds. Powered By: Snitz Forums 2000 Version 3.4.07