You've probably seen others use smilies before in email messages or other bulletin board posts. Smilies are keyboard characters used to convey an emotion, such as a smile or a frown . This bulletin board automatically converts certain text to a graphical representation when it is inserted between brackets [].  Here are the smilies that are currently supported by <% =strForumTitle %>:

<% if request.querystring("cat_id") = "" then %> <% strsql = "select cat_id, cat_name from "&strTablePrefix&"smile_cat" set catRS1 = my_conn.execute(strsql) Do until catRS1.eof %> <% catRS1.movenext loop set carRS1=nothing %> > ?cat_id=<%=catRS1("cat_id")%>"><%=catRS1("cat_name")%> <% else %> <% strsql = "select count(S_ID) AS TotalCount from " & strTablePrefix & "smiles " 'strsql = strsql & "WHERE " & strTablePrefix & "SMILES.CAT_ID>" & 0 strsql = strsql & "WHERE " & strTablePrefix & "SMILES.CAT_ID=" & request.querystring("cat_id") set drsCount = server.CreateObject("ADODB.RecordSet") drsCount.CacheSize= 30 drsCount.Open strsql, my_Conn,3 totalrecordcount = 0 totalrecordcount = drsCount("TotalCount") set drsCount = nothing If totalrecordcount mod 2 = 0 then strCount1 = totalrecordcount / 2 strCount2 = strCount1 else strCount1 = (totalrecordcount / 2) + 0.5 strCount2 = strCount1 - 1 end if strTempCount = 0 strsql = "SELECT S_DESC, S_URL, S_CODE FROM " & strTablePrefix & "SMILES WHERE CAT_ID=" & request.querystring("cat_id") Set drs = Server.CreateObject("ADODB.Recordset") drs.open strsql, my_conn, 3 if not (drs.eof or drs.bof) then drs.PageSize = strCount1 drs.AbsolutePage = 1 Do until strTempCount = strCount1 smile_name = drs("S_DESC") smile_url = drs("S_URL") smile_code = drs("S_CODE") %> <% strTempCount = strTempCount + 1 drs.movenext loop else%> <% Response.end end if %> <%=smile_name%> [<%=smile_code%>] No smilies Found ">Go Back <% strsql = "SELECT S_DESC, S_URL, S_CODE FROM " & strTablePrefix & "SMILES WHERE CAT_ID=" & request.querystring("cat_id") Set drs = Server.CreateObject("ADODB.Recordset") drs.open strsql, my_conn, 3 drs.PageSize = strCount1 if strcount2 > 0 then drs.AbsolutePage = 2 strTempCount = 0 Do until (strTempCount = strCount2) or (drs.eof) smile_name = drs("S_DESC") smile_url = drs("S_URL") smile_code = drs("S_CODE") %> <% strTempCount = strTempCount + 1 drs.movenext loop end if set drs = nothing %> <%=smile_name%> [<%=smile_code%>] <%end if%>