<% userid=getusrid if userid="" or userid=0 then response.redirect "logout.asp" if allowtracking="" then response.write "

 

The user tracking feature is currently disabled

" response.end end if sortby=request("sortby") if sortby="" then sortby="lastdate desc" logindate=getlogin(now) proactive=request("proactive") if proactive<>"" then '/// Submit proactive Chat ip=request("ip") sessionid=request("sessionid") myinvitemsg=request("myinvitemsg") if myinvitemsg="null" then myinvitemsg="" a=application("xlaALSproactive") adduser="["&ip&"|"&sessionid&"]"&userid&"<#>" if instr(1,a,adduser,1)=0 then a=a&adduser&myinvitemsg&vbcrlf application("xlaALSproactive")=a set conn=server.createobject("ADODB.Connection") conn.open connection call updatevisitoraction(ip,sessionid,1,"Invited to chat by "&getalias) conn.close set conn=nothing end if response.redirect "LMVisitors.asp?sortby=" & server.urlencode(sortby) end if noproactive=request("noproactive") if noproactive<>"" then ip=request("ip") sessionid=request("sessionid") thisuser="["&ip&"|"&sessionid&"]" a=application("xlaALSproactive") location=instr(1,a,thisuser,1) if location<>0 then finish=instr(location,a,vbcrlf,1) finish=finish-location toclear=mid(a,location,finish) a=replace(a,toclear,"") application("xlaALSproactive")=a end if set conn=server.createobject("ADODB.Connection") conn.open connection call updatevisitoraction(ip,sessionid,0,"Last action canceled by "&getalias) conn.close set conn=nothing response.redirect "LMVisitors.asp?sortby=" & server.urlencode(sortby) end if %> <%if tracklimit="" or tracklimit=0 then tracklimit="100%" psql="select top "&tracklimit&" * from xlaALSVisitors order by "&sortby set conn=server.createobject("ADODB.Connection") conn.open connection call deletevisitors() set rs=conn.execute(psql) do until rs.eof name=rs("name") totalrequests=rs("totalrequests") ip=rs("ip") sessionid=rs("sessionid") if name="" then user=ip else user=""&name&"
"&ip if totalrequests<>"" then user=user&"
"&totalrequests&" Requests" referer=rs("referer") timeonpage=datediff("n",rs("lastdate"),logindate) actionnote=replace(rs("actionnote")&"",vbcrlf,"
") actionid=rs("actionid") select case actionid case 0 bgcolor="#00CC00" invitelink="javascript:inviteuser('"&ip&"','"&sessionid&"');" case 1 bgcolor="#FFCC00" invitelink="javascript:denyproactive(1,'"&ip&"','"&sessionid&"');" case 2 bgcolor="#0099CC" invitelink="javascript:denyproactive(2,'"&ip&"','"&sessionid&"');" case 3 bgcolor="#666666" invitelink="javascript:alertproactive('"&ip&"','"&sessionid&"',3);" case 4 bgcolor="#FF3300" invitelink="javascript:inviteuser('"&ip&"','"&sessionid&"');" case 5 bgcolor="#9933CC" invitelink="javascript:alertproactive('"&ip&"','"&sessionid&"',5);" end select %> <%rs.movenext loop rs.close set rs=nothing conn.close set conn=nothing%>
Visitor On Page Time Status Actions
<%=user%> <%=referer%>
<%=timeonpage%> Mins
<%=actionnote%>
Invite