<% else Dim users, refresh session("name") = request.form("name") If Application("numusers") = 0 then redim temp1(50) redim temp2(50) Application("users") = temp1 Application("refresh") = temp2 end if users = application("users") refresh= application("refresh") Dim i For i = 1 to 50 If users(i) = "" then users(i) = session("name") refresh(i) = time application.lock application("numusers") = application("numusers") + 1 application.unlock exit for end if next if i = 51 then response.redirect "toomany.asp" application.lock application("users") = users application("refresh") = refresh application.unlock if not isempty(application("conversation")) then application.lock application("conversation") = "" &_ session("name") &_ " je usao/usla na chat.