%@ Language=VBScript %> <% 'usingAuthentiXStandard = true 'if (usingAuthentiXStandard) then 'Set AuthX = Server.CreateObject("AUTHXOCX.AuthXOCXCtrl.1") 'else 'Set AuthX = Server.CreateObject("AUTHXISP.AuthXOCXCtrl.1") 'protectedDomain = Request.ServerVariables("LOCAL_ADDR") 'AuthX.SetVirtualDomain protectedDomain, Request.ServerVariables("SCRIPT_NAME") 'AuthX.SetVirtualDomainPassword("") 'end if %> <% 'currentUser = AuthX.CurrentUserName(Request.ServerVariables("LOCAL_ADDR"), Request.ServerVariables("SCRIPT_NAME"), Request.ServerVariables("HTTP_AUTHXAUTHORIZATION")) %> <% 'If "" = currentUser Then %> <%'Else%> <%'End If %>