Look for the following lines (appx 67-72):
if lcase(strIcons) = "1" and strShowSmiliesTable = "0" then
   Response.Write "                <a href=""JavaScript:openWindow3('pop_new_smiles.asp')"" tabindex=""-1"">" & getCurrentIcon(strIconEditorSmilie,"Insert Smilie","align=""top""") & "</a>" & vbNewLine
   Response.Write "                <a href=""JavaScript:openWindow2('pop_icon_legend.asp')"" tabindex=""-1"">" & getCurrentIcon(strIconEditorSmilie,"Insert Smilie","align=""top""") & "</a>" & vbNewLine


end if

Change them to say:
if lcase(strIcons) = "1" and strShowSmiliesTable = "0" then
'	##	SmileManager Plus Below
	Response.Write	"                <a href=""JavaScript:openWindow3('pop_new_smiles.asp')"" tabindex=""-1"">" & getCurrentIcon(strIconEditorSmilie,"Insert Smilie","align=""top""") & "</a>" & vbNewLine
'	##	SmileManager Plus Above
end if

<%
'###############################################################################
'##
'##	              Snitz Forums 2000 v3.4.07
'##
'###############################################################################
'##
'## Copyright © 2000-09 Michael Anderson, Pierre Gorissen,
'##	          Huw Reddick and Richard Kinser
'##
'## This program is free. You can redistribute and/or modify it under the
'## terms of the GNU General Public License as published by the Free Software
'## Foundation; either version 2 or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000 must remain intact in
'## the scripts and in the HTML output.  The "powered by" text/logo with a
'## link back to http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful but
'## WITHOUT ANY WARRANTY; without even an implied warranty of MERCHANTABILITY
'## or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
'## for more details.
'##
'## You should have received a copy of the GNU General Public License along
'## with this program; if not, write to:
'##
'##	          Free Software Foundation, Inc.
'##	          59 Temple Place, Suite 330
'##	          Boston, MA 02111-1307
'##
'## Support can be obtained from our support forums at:
'##
'##	            http://forum.snitz.com
'##
'## Correspondence and marketing questions can be sent to:
'##
'##	             manderson@snitz.com
'##
'###############################################################################
Response.Write	"<script language=""Javascript"" type=""text/javascript"">" & vbNewLine & _
	"	<!-- hide" & vbNewLine & _
	"		function insertsmilie(smilieface) {" & vbNewLine & _
	"			AddText(smilieface);" & vbNewLine & _
	"		}" & vbNewLine & _
	"	// -->" & vbNewLine & _
	"</script>" & vbNewLine & _
	"<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
	"	<tr>" & vbNewLine & _
	"		<td align=""center"" height=""20"" valign=""40""><a name=""smilies""></a><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><b>Smilies</b></font></td>" & vbNewLine & _
	"	</tr>" & vbNewLine
'	##	SmileManager Plus Below
If MemberID <> -1 Then
	strsql = "SELECT S2_AllowEdit FROM " & strTablePrefix & "SMILES2 WHERE S2_ID=1"
	Set aecheck = my_Conn.Execute(strsql)
	If not aecheck.EOF Then
		isae = aecheck("S2_AllowEdit")
		aecheck.Close
	End If
	Set aecheck = Nothing
	If isae = 1 Then
		allowedit = 1
		strsql = "SELECT S_ID FROM " & strTablePrefix & "SMILES_CUSTOM WHERE MEMBER_ID=" & MemberID
		Set mslist = my_Conn.Execute(strsql)
		thechecked = "|"
		If not mslist.EOF Then
			mslistdata = mslist.GetRows
			mslistnumrows = uBound(mslistdata,2)
			mslist.Close
			For mslisti = 0 to mslistnumrows
				thechecked = thechecked & mslistdata(0,mslisti) & "|"
			Next
		Else
			thechecked = ""
		End If
		Set mslist=Nothing
	Else
		allowedit = 0
		thechecked = ""
	End If
Else
	allowedit = 0
	thechecked = ""
End If
If allowedit = 1 Then
	Response.Write  "	<tr><td align=center><div style=""overflow:auto;height:100px;""><table cellspacing=0 cellpadding=2 border=0 width=""100%"">" & vbNewLine
Else
	Response.Write  "	<tr><td align=center><div style=""overflow:auto;height:120px;""><table cellspacing=0 cellpadding=2 border=0 width=""100%"">" & vbNewLine
End If
If thechecked <> "" Then
	strsql = "SELECT S_ID, S_CODE, S_URL, S_Colspan, S_DESC FROM " & strTablePrefix & "SMILES WHERE S_VISIBLE=1 AND lCase(S_ENABLED)='yes' AND S_EXCLUDE=0 ORDER BY S_DESC"
Else
	strsql = "SELECT S_ID, S_CODE, S_URL, S_Colspan, S_DESC FROM " & strTablePrefix & "SMILES WHERE S_VISIBLE=1 AND lCase(S_ENABLED)='yes' AND S_DEFAULT=1 ORDER BY S_DESC"
End If
Set srs = my_Conn.Execute(strsql)
If not srs.EOF Then
	srsdata=srs.GetRows
	srsrows=uBound(srsdata,2)
	srs.Close
	smilecount = 0
	Do while not srsi > srsrows
		skipmoveNext = 0
		If (thechecked <> "" AND instr(thechecked,"|" & srsdata(0,srsi) & "|") > 0) OR thechecked = "" Then
			If smilecount >= 4 Then
				Response.Write	"</tr>"& vbNewLine
				smilecount = 0
			End If
			If smilecount = 0 Then
				Response.Write	"<tr>"& vbNewLine
			End If
			If srsdata(3,srsi) = 1 Then
				Response.Write	"		<td align=""center"" valign=""bottom""><a href=""javascript:insertsmilie('" & srsdata(1,srsi) & "')"" tabindex=""-1"">" & getCurrentIcon(srsdata(2,srsi) & "||",srsdata(4,srsi) & " " & srsdata(1,srsi),"") & "</a></td>"& vbNewLine
				smilecount = smilecount + 1
			Else
				If smilecount + srsdata(3,srsi) > 4 Then
					skipmoveNext = 1
					Do while not smilecount = 4
						Response.Write	"		<td align=""center"" valign=""bottom""> </td>" & vbNewLine
						smilecount=smilecount + 1
					Loop
				Else
					Response.Write	"		<td colspan=""" & srsdata(3,srsi) & """><a href=""javascript:insertsmilie('" & srsdata(1,srsi) & "')"" tabindex=""-1"">" & getCurrentIcon(srsdata(2,srsi) & "||",srsdata(4,srsi) & " " & srsdata(1,srsi),"") & "</a></td>"& vbNewLine
					smilecount = smilecount + srsdata(3,srsi)
				End If
			End If
		End If
		If skipmoveNext = 0 Then
			srsi = srsi + 1
		End If
	Loop
	Do while not smilecount = 4
		Response.Write	"		<td> </td>" & vbNewLine
		smilecount=smilecount + 1
	Loop
	Response.Write	"</tr>"
Else
	Response.Write	"	<tr><td colspan=3>No smiles found.</td></tr>"
End If
Set srs = Nothing
Response.Write	"</table></div></td></tr>" & vbNewLine
If allowedit = 1 Then
	Response.Write		"	<tr align=""center"">" & vbNewLine & _
		"		<td align=""center"" height=""20"" ><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><a href=""JavaScript:openWindow3('pop_members_smiles.asp')""><b>Edit Smile List</b></a></font></td>" & vbNewLine & _
		"	</tr>" & vbNewLine &_
		"	<tr align=""center"">" & vbNewLine & _
		"		<td align=""center"" height=""20"" ><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><a href=""JavaScript:openWindow3('pop_new_smiles.asp')""><b>Show Entire Smile List</b></a></font></td>" & vbNewLine & _
		"	</tr>" & vbNewLine
End If
Response.Write	"</table>" & vbNewLine
'	##	SmileManager Plus Above
%>