"                <td bgcolor=""" & strForumCellColor & """>" & vbNewLine & _
			"                <p><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine & _
			"                You've probably seen others use smilies before in e-mail messages or other bulletin " & vbNewLine & _
			"                board posts. Smilies are keyboard characters used to convey an emotion, such as a smile " & vbNewLine & _
			"                " & getCurrentIcon(strIconSmile,"","hspace=""10"" align=""absmiddle""") & " or a frown " & vbNewLine & _
			"                " & getCurrentIcon(strIconSmileSad,"","hspace=""10"" align=""absmiddle""") & ". This bulletin board " & vbNewLine & _
			"                automatically converts certain text to a graphical representation when it is " & vbNewLine & _
			"                inserted between brackets [].  Here are the smilies that are currently " & vbNewLine & _
			"                supported by " & strForumTitle & ":<br />" & vbNewLine
	response.write  "				<table border=""0"" align=""center"" cellpadding=""5"">" & vbNewLine
	strsql = "SELECT S_CODE, S_URL, S_DESC FROM " & strTablePrefix & "SMILES WHERE S_VISIBLE=1 AND S_ENABLED='yes' ORDER BY S_DESC"
	set srs = my_conn.execute(strsql)
	
	smiledata=srs.getrows
	numrows=ubound(smiledata,2)
	
	srs.close
	set srs=nothing
	
	newline = 0
	numcols = 0
	for smi = 0 to numrows
		if numcols = 3 then
			response.write "					</tr>" & vbNewline
			newline = 0
			numcols = 0
		end if
		if newline = 0 then
			response.write "					<tr>" & vbNewline
			newline = 1
		end if
		response.write  "						<td nowrap bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" &_
						getCurrentIcon(smiledata(1,smi)& "||","","align=""absmiddle""") & "  " & smiledata(2,smi) & "  " & smiledata(0,smi) & "</font>" &_
						"						</td>" & vbNewline
		numcols = numcols + 1
	next
	do until numcols = 3
		response.write "						<td bgcolor=""" & strForumCellColor & """> </td>" & vbNewline
		numcols = numcols + 1
	loop
	response.write  "				</table>" & vbNewLine &_
					"                </td>" & vbNewLine & _
					"              </tr>" & vbNewLine
end if