<%Response.Buffer=true response.expires=0 myname=Session("myname") myid=Session("myid") if myid="" then response.end application.lock call get_guests if Session("myname")=guests(myid,0) and Session("mytemp")=guests(myid,1) then call get_says room_id=guests(myid,5) set rs1=conn.execute("select * from room where ID="&room_id) myfilter=guests(myid,12) fivesay="''" getcall=false j=0 for i=current to 0 step -1 if (j>4 and says(i,0)guests(myid,10) then getcall=true next for i=MaxTalk to current+1 step -1 if (j>4 and says(i,0)guests(myid,10) then getcall=true next welcome_info="-1,'%%ΣΙ"&rs1("room_owner")&"Πή½¨‘£"&rs1("room_des")&"','','"&rs1("room_name")&"',0,'000099','009900',-3,'"&time()&"'," fivesay=welcome_info&fivesay%> <%guests(myid,10)=says(current,0) call put_guests else%> <%end if application.unlock%>