<% ping = application(param_appping) if isdate(ping) then if datediff("n",ping,now) > 30 then application(param_apponline) = "" end if end if if application(param_apponline) <> "online" then session(param_ipsession) = "" response.end end if vconfig = application(param_appconfig) if vconfig = "" then vconfig = param_config_default vconfig = split(vconfig,",") if vconfig(0) = "N" then response.end usu_ip = request.servervariables("REMOTE_ADDR") sub grava_ip() vetor_usu = application(param_usuonline) if isarray(vetor_usu) then i = ubound(vetor_usu,2)+1 redim preserve vetor_usu(5,i) else i = 1 redim vetor_usu(5,1) end if application(param_apponline_apito) = "ok" session(param_ipsession) = usu_ip vetor_usu(1,i) = usu_ip 'ip do cara vetor_usu(2,i) = now 'hora q entrou vetor_usu(3,i) = now 'ultimo refresh vetor_usu(4,i) = "" 'hora que foi convidado vetor_usu(5,i) = "" ' application.Lock() application(param_usuonline) = vetor_usu application.UnLock() end sub if session(param_ipsession) = "" then call grava_ip() response.redirect "_refresh.asp?teste=1" end if '------------------------------------------------------------ vetor_usu = application(param_usuonline) for i=lbound(vetor_usu,2) to ubound(vetor_usu,2) if vetor_usu(1,i) = usu_ip then pos = i next if request.querystring("abre") = "1" then vetor_usu(5,pos) = "S" mudou = "ok" elseif request.querystring("abre") = "2" then vetor_usu(5,pos) = "N" mudou = "ok" elseif request.querystring("abre") = "3" then vetor_usu(5,pos) = "A" mudou = "ok" end if application.Lock() application(param_usuonline) = vetor_usu application.UnLock() if mudou = "ok" then response.redirect "_refresh.asp" %> <% if vetor_usu(5,pos) = "C" then %> <% elseif vetor_usu(5,pos) = "S" then %> <% else vetor_usu(3,pos) = now application.Lock() application(param_usuonline) = vetor_usu application.UnLock() %> <% end if %>