<%@ LANGUAGE = "VBScript" %>
<%response.buffer=true

mytalk=trim(request.form("txtbox1"))
mytalk=replace(mytalk,"<","&lt;")

Expression=request.form("Expression")
SayToName=request.form("saytoname")

if Expression="說話" then
Expression=""
end if

Application.lock

Application("show")="<p><font size=2>("&time&")</font> "&session("UserName")&" <i>"&Expression&" 對 <font color=20b2aa>"&SayToName&"</font>  說</i>：" &mytalk &"</p>" &Application("show")

application.unlock

response.redirect "show.asp"

%>