<!--#include file="const.asp"-->
<%
Response.Expires = -9999
Response.AddHeader "pragma", "no-cache"
Response.AddHeader "cache-ctrol", "no-cache"
Dim server_v1
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v1=Lcase(server_v1)

If Not (Instr(server_v1,"activeonline.asp")>0) And Request.servervariables("REQUEST_METHOD") = "POST" Then
	NewAsp.Stats=Replace(Request("state"), "'", "")
	NewAsp.Referer=Replace(Request("referer"), "'", "")
	NewAsp.URL=Replace(Request("url"), "'", "")
	NewAsp.classid=NewAsp.ChkNumeric(Request("classid"))
	NewAsp.ActiveOnline()
End If
%>
var allonline=<%=NewAsp.AskedOnline%>;
<%
NewAsp.CloseConn
%>
