<%Response.CacheControl = "Private"
response.expires=0
sub newsay(who,towho,secret,room_id,mess,c1,c2,act)
say_id=says(current,0)+1
current=current+1
if current>MaxTalk then current=0
says(current,0)=say_id
says(current,1)=who
says(current,2)=towho
says(current,3)=secret
says(current,4)=room_id
says(current,5)="'"&mess&"','"&who&"','"&towho&"',0,'"&c1&"','"&c2&"',"&act&",'"&time()&"',"
end sub
application.lock
call get_guests
call get_maxuser
call get_says
conn.Execute("DELETE FROM room WHERE not room_keep AND (DATEDIFF('n',room_time,now())>(3000+room_exp))")
conn.Execute("update room set room_keep="&true&" where not room_keep and room_exp>"&rsparam("roomkeepexp"))
set rs=Server.CreateObject("ADODB.RecordSet")
Rs.Open "select id,room_name,room_owner,room_exp from room order by ID",conn,1,1%>
<%rsparam.close
set rsparam=nothing
conn.close
set conn=nothing%>