<!--#include file="inc_const.asp"-->
<%response.expires=0
Response.CacheControl = "Private"
application.lock

set cschat=server.createobject("ffcschat.cssbchat")
my_level=cschat.getLevel(Session,Application(ConstStr & "_user_list"),Application(ConstStr & "_room_list"))

if my_level=0 then
  set cschat=nothing
  response.write "<script Language=JavaScript>top.location.href = 'showerr.asp';</script>"
  application.unlock
  response.end
end if

myname=cschat.myname
room_id=cschat.room_id

cschat.FilterStr=application(ConstStr & "_usernamefilter")
zt=left(replace(cschat.trdb(request("zt"))," ",""),4)

if zt="null" then zt=""

Application( ConstStr & "_user_list")=cschat.SetListValue(Application( ConstStr & "_user_list"),myname,12,zt,0)

says = Application(ConstStr & "_says")
current = Application(ConstStr & "_current")
cschat.newsay myname,"",0,room_id,"<\script>parent.addl(\'" & myname & "\'," & cschat.getListvalue(Application( ConstStr & "_user_list"),myname,2) & ",\'" & cschat.getListvalue(Application( ConstStr & "_user_list"),myname,6) & "\',\'" & zt & "\')</\script>","","",-5,says,current
Application(ConstStr & "_says") = says
Application(ConstStr & "_current") = current

set cschat=nothing
application.unlock%>