home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / ims.cab / _cnst.asp next >
Text File  |  1997-10-12  |  338b  |  10 lines
  1. <% REM if user is anonymous, force logon %>
  2. <% L_ERROR_ACCESS_DENIED_ERRORMESSAGE = "Error: Access is Denied." %>
  3.  
  4. <% if (Len(Request.ServerVariables("REMOTE_USER")) = 0) then %>
  5.     <% Response.Status = "401 Unauthorized" %>
  6.     <% = L_ERROR_ACCESS_DENIED_ERRORMESSAGE %>
  7.     <% cont = false %>
  8. <% else %>
  9.     <% cont = true %>
  10. <% end if %>