<%
  if Trim(session("mangflag"))="" or Trim(session("timeflag"))="" then
    	Response.redirect("noadmto.asp")
  end if
%>
<%
	'dim al(100)
	'al(1) = Request.ServerVariables("ALL_HTTP")
	'al(2) = Request.ServerVariables("REMOTE_ADDR")
	'al(3) = Request.ServerVariables("REMOTE_HOST")
	'al(4) = Request.ServerVariables("PATH_INFO")
	'al(5) = Request.ServerVariables("AUTH_PASSWORD")
	
	'for each a in al
		'Response.Write( a )
	'next
	
	'for each b in Request.ServerVariables
		'Response.Write(Request.ServerVariables( b) + "<br>" )
	'next
  'if Trim(session("mangflag"))="" or Trim(session("timeflag"))="" then
    	'Response.redirect("noadmto.asp")
  'end if
%>