<%
'#################################################################################
'## Copyright (C) 2000  Michael Anderson and Pierre Gorissen
'## 
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## 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 the 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 the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
'## 
'## Support can be obtained from support forums at:
'## http://forum.snitz.com 
'##
'## Correspondence and Marketing Questions can be sent to:
'## reinhold@bigfoot.com
'## 
'## or
'## 
'## Snitz Communications 
'## C/O: Michael Anderson
'## PO Box 200
'## Harpswell, ME 04079
'#################################################################################
%>
<!--#INCLUDE FILE="config.asp" -->  
<!--#include file="inc_functions.asp"-->
<!--#INCLUDE FILE="inc_top_short.asp" -->
<%
strTempFont    = "<font face=""" & strDefaultFontFace & """ size=" & strDefaultFontSize & ">"
%>

<script language="Javascript">
<!-- hide

function insertsmilie(smilieface){

	window.opener.document.PostTopic.Message.value+=smilieface;
}
// -->
</script>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<table border=0 width=90% cellspacing=1 cellpadding=3 bgcolor="<%=strTableBorderColor%>">
	<tr bgcolor="<%=strHeadCellColor%>">
    	<td align="center"><%=strTempFont%>Smile</font></td>
        <td align="center"><%=strTempFont%>Code</font></td>
        <td align="center"><%=strTempFont%>Description</font></td>
    </tr>
    <%
            strsql = "SELECT S_ID, S_CODE, S_URL, S_DESC FROM " & strTablePrefix & "SMILES ORDER BY S_ID ASC"
            set srs = my_conn.execute(strsql)
            	if not(srs.eof) then
                	do until srs.eof
                    %>
                    	<tr bgcolor="<%=strForumCellColor%>">
                        <td align="center"><a href="Javascript:insertsmilie('<%=srs("S_CODE")%>');"><img border=0 src="<%=srs("S_URL")%>"></a></td>
						<td align="center"><%=strTempFont%><%=srs("S_CODE")%></font></td>
                        <td><%=strTempFont%><%=srs("S_DESC")%></font></td>
                        </tr>
                    <%
                    srs.movenext
                    Loop
                end if
            set srs = nothing    
    %>
</table>
<center><%=strTempFont%><a href="pop_icon_legend.asp">Back to original smiles</a></font></center>

<!--#INCLUDE FILE="inc_footer_short.asp" -->
