Print Page | Close Window

Smiley Mod

Printed From: Web Wiz Forums
Category: Web Wiz Web App Support Forums
Forum Name: Web Wiz Forums Modifications
Forum Description: Mod's and Add-on's for Web Wiz Forums.
URL: https://forums.webwiz.net/forum_posts.asp?TID=21902
Printed Date: 28 March 2026 at 5:51am
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com


Topic: Smiley Mod
Posted By: justme
Subject: Smiley Mod
Date Posted: 09 November 2006 at 9:13pm
SMILEY MOD:
 Credit goes to original author:
 

Open the 'includes/emoticons_inc.asp' file in notepad (or similer) and find the line...
'Dimension variablesDim saryEmoticons(38,3)

increase the first number (shown in red) by one per smiley you add.
Adding smiley's is a s simple as uploading them into the 'smileys' folder and increasing the number as shown above...
Then, still in the 'emoticons_inc.asp' file you will see a bunch of code for each smiley that defines the name, short cut and path. that looks like....
 

saryEmoticons(38,1) = "Lamp"
saryEmoticons(38,2) = ""
saryEmoticons(38,3) = "smileys/smiley38.gif"


Add 3 new line for each new smiley, for instance...


saryEmoticons(39,1) = "nod"
saryEmoticons(39,2) = "|-)"
saryEmoticons(39,3) = "smileys/smiley39.gif"

Note how the number in red has been increased??? Well increase it for every added smiley


Replies:
Posted By: gölge
Date Posted: 12 November 2006 at 4:18pm
hey man you do not have to add smileys manually, you can use that code:
 
<%Dim objsmileyFSO, objFolderObject,  objFile
 ' Variables to build the smiley list
 Dim strSmileyNameText
 Dim strSmileySrcText
Set objsmileyFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolderObject = objsmileyFSO.GetFolder(Server.MapPath("avatars/"))
Set files = objFolderObject.Files
 dim intTotalNumberOfFiles, saryEmoticons()
 redim saryEmoticons(intTotalNumberOfFiles,3)
' SetUp a counter to loop through
Dim intEmoticonCounter
intEmoticonCounter = 0
For Each file in files
   intEmoticonCounter = intEmoticonCounter + 1
  strSmileyNameText = left(objFile.Name, len(objFile.Name)-4)
  strSmileySrcText = "smileys/" & objFile.Name
  

 ' This will place the smileys into the array: 
 saryEmoticons(intEmoticonCounter,1) = strSmileyNameText               'Emoticon Name
 saryEmoticons(intEmoticonCounter,2) = "[:" & strSmileyNameText & ":]" 'Forum code
 saryEmoticons(intEmoticonCounter,3) = strSmileySrcText                'URL/path to smiley
Next
Set objFolderObject = Nothing
Set objsmileyFSO = Nothing
Set files = Nothing
%>


-------------
"A lie travels round the world while Truth is putting on her boots" C.H. Sturgeon
PLEASE VISIT http://www.tallarmeniantale.com - www.tallarmeniantale.com AND SEE THE TRUTH.

Posted By: T50webmaster
Date Posted: 17 January 2007 at 2:53am
This doesn't work for me

Posted By: T50webmaster
Date Posted: 03 February 2007 at 2:27am

I get:

 

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/troop50/data/forum/includes/emoticons_inc.asp, line 8

800401f3


Posted By: PhTor
Date Posted: 26 February 2007 at 9:57am
Originally posted by justme justme wrote:

[...]
 
I've just made all of this but I've got two problems Confused
 
- if the user clic on the smiley, it runs fine, but if he write the short cut, it doesn't, it is displayed the place of the image and after the path to it
- when the user clic on "more..." to have the popup with all smileys, this windows is too small
 
Any ideas ?
 
ps : sorry for my poor english Wink

Posted By: gölge
Date Posted: 27 February 2007 at 6:15pm
Originally posted by T50webmaster T50webmaster wrote:

I get:

 

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/troop50/data/forum/includes/emoticons_inc.asp, line 8

800401f3

 
try this:
 
<%Dim objsmileyFSO, objFolderObject,  objFile
 ' Variables to build the smiley list
 Dim strSmileyNameText
 Dim strSmileySrcText
Set objsmileyFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolderObject = objsmileyFSO.GetFolder(Server.MapPath("avatars/"))
Set files = objFolderObject.Files
 dim intTotalNumberOfFiles, saryEmoticons()
 redim saryEmoticons(intTotalNumberOfFiles,3)
' SetUp a counter to loop through
Dim intEmoticonCounter
intEmoticonCounter = 0
For Each file in files
   intEmoticonCounter = intEmoticonCounter + 1
  strSmileyNameText = left(objFile.Name, len(objFile.Name)-4)
  strSmileySrcText = "smileys/" & objFile.Name
  

 ' This will place the smileys into the array: 
 saryEmoticons(intEmoticonCounter,1) = strSmileyNameText               'Emoticon Name
 saryEmoticons(intEmoticonCounter,2) = "[:" & strSmileyNameText & ":]" 'Forum code
 saryEmoticons(intEmoticonCounter,3) = strSmileySrcText                'URL/path to smiley
Next
Set objFolderObject = Nothing
Set objsmileyFSO = Nothing
Set files = Nothing
%>


-------------
"A lie travels round the world while Truth is putting on her boots" C.H. Sturgeon
PLEASE VISIT http://www.tallarmeniantale.com - www.tallarmeniantale.com AND SEE THE TRUTH.

Posted By: T50webmaster
Date Posted: 27 February 2007 at 10:43pm
still not working
 

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/troop50/data/forum/includes/emoticons_inc.asp, line 5

800401f3


Posted By: T50webmaster
Date Posted: 27 February 2007 at 10:43pm
could it be my webhost?
i use webng.com

Posted By: gölge
Date Posted: 27 February 2007 at 11:05pm
yeah
the error message tells your webhost doesnt support object fso. if your host supports persits component u can use this file:
 
http://rapidshare.com/files/18620285/emoticons_inc.asp.html - http://rapidshare.com/files/18620285/emoticons_inc.asp.html
 
my webhost doesnt support fso either. i write it for my own site...


-------------
"A lie travels round the world while Truth is putting on her boots" C.H. Sturgeon
PLEASE VISIT http://www.tallarmeniantale.com - www.tallarmeniantale.com AND SEE THE TRUTH.

Posted By: trackdayrider
Date Posted: 28 February 2007 at 12:22am
Originally posted by PhTor PhTor wrote:

Originally posted by justme justme wrote:

[...]
 
I've just made all of this but I've got two problems Confused
 
- if the user clic on the smiley, it runs fine, but if he write the short cut, it doesn't, it is displayed the place of the image and after the path to it
- when the user clic on "more..." to have the popup with all smileys, this windows is too small
 
Any ideas ?
 
ps : sorry for my poor english Wink
 
I'm getting the same problem..
Just upgraded from V7 to v8.05
 
I had a set of custom smilies in the V7 forum which worked quite happily.
 
So after the upgrade I copied the 'emoticons_inc.asp'  file info the new version as well as the images.
Althought the smilies are there. If i clikc the image i get the following
 
%3cimg src="http://www.trackdayriders.co.uk/xxxxx/xxxxx/smileys/wink.gif" width=20 align=absMiddle>
 
and as above the smilies popup window isnt expandable(sp?)
 
Any suggestions ?
 
Cheers
 


-------------
[url]http://www.trackdayriders.co.uk]Trackdayriders.co.uk[/url]

Posted By: gölge
Date Posted: 28 February 2007 at 3:28am
at automatic code shortcut dont run, cos shortcuts dont define.
if u add smileys manuelly but still doesnt work, probably you use shortcuts wrong. the shortcuts changed in v8.x.
for example :) must be between  [] 
 
 
to enable scrollbars at more emoticons page
 
open message_form_inc.asp and find that code:
 
javascript:winOpener('RTE_popup_emoticons.asp" & strQsSID1 & "','emot',0,0,450,340)
 
make 0 to 1
 
and make same changes  to  RTE_toolbar_inc.asp and RTE_quick_reply_toolbar_inc.asp
 


-------------
"A lie travels round the world while Truth is putting on her boots" C.H. Sturgeon
PLEASE VISIT http://www.tallarmeniantale.com - www.tallarmeniantale.com AND SEE THE TRUTH.

Posted By: PhTor
Date Posted: 28 February 2007 at 12:11pm
Originally posted by gölge gölge wrote:

at automatic code shortcut dont run, cos shortcuts dont define.
if u add smileys manuelly but still doesnt work, probably you use shortcuts wrong. the shortcuts changed in v8.x.
for example :) must be between  [] 
 
 
to enable scrollbars at more emoticons page
 
open message_form_inc.asp and find that code:
 
javascript:winOpener('RTE_popup_emoticons.asp" & strQsSID1 & "','emot',0,0,450,340)
 
make 0 to 1
 
and make same changes  to  RTE_toolbar_inc.asp and RTE_quick_reply_toolbar_inc.asp
 
 
Thanks a lot. I'l try as soon as I can Smile

Posted By: trackdayrider
Date Posted: 28 February 2007 at 1:15pm
That worked - Cheers. !Clap

-------------
[url]http://www.trackdayriders.co.uk]Trackdayriders.co.uk[/url]

Posted By: ctscott
Date Posted: 28 February 2007 at 2:13pm

FWIW, I haven't see a better set of smileys than what comes with WWF.  Just an opinion.



-------------
______________________
http://www.cfbtrivia.com" rel="nofollow - College Football Trivia

Posted By: T50webmaster
Date Posted: 28 February 2007 at 3:38pm
My webhost doesn't support that it either i guess so i suppose i will continue to do it manually.

Posted By: 123Simples
Date Posted: 08 July 2007 at 6:12pm
Originally posted by PhTor PhTor wrote:

Originally posted by gölge gölge wrote:

at automatic code shortcut dont run, cos shortcuts dont define.
if u add smileys manuelly but still doesnt work, probably you use shortcuts wrong. the shortcuts changed in v8.x.
for example :) must be between  [] 
 
 
to enable scrollbars at more emoticons page
 
open message_form_inc.asp and find that code:
 
javascript:winOpener('RTE_popup_emoticons.asp" & strQsSID1 & "','emot',0,0,450,340)
 
make 0 to 1
 
and make same changes  to  RTE_toolbar_inc.asp and RTE_quick_reply_toolbar_inc.asp
 
 
Thanks a lot. I'l try as soon as I can Smile


If you follow the instructions as above exactly as stated by this person, it works absolutely fine

Thanks from a tired out forum creator
Dead


-------------
http://www.123simples.com/" rel="nofollow - Visit 123 Simples Web Design


Print Page | Close Window

Forum Software by Web Wiz Forums® version 12.08 - https://www.webwizforums.com
Copyright ©2001-2026 Web Wiz Ltd. - https://www.webwiz.net