<%@ Language=VBScript%>
<% Option Explicit%>
<HTML>
<HEAD>
<TITLE>Permission Checker</TITLE>
</HEAD>
<BODY bgcolor="white" topmargin="10" leftmargin="10">
<!-- Display Header -->
<font size="4" face="Arial, Helvetica">
<b>Permission Checker</b></font><br>
<%
' Instantiate Permission Checker Component
Dim Check
Set Check = Server.CreateObject("MSWC.PermissionChecker")
%>
<p> Verify current user's access to a sample file:
<p> Using Physical Path =
<%= Check.HasAccess(".\PermissionCheck_VBScript.asp") %> <br>
Using Virtual Path =
<%= Check.HasAccess("/iissamples/sdk/asp/components/PermissionCheck_VBScript.asp") %>
</BODY>
</HTML>