Testing Permission Checker
<%
' Create Permission Checker Object
Set pmck = Server.CreateObject("MSWC.PermissionChecker")
%>
<% filename = "a.htm" %>
-
<% If pmck.HasAccess(filename) Then %>
You have access rights to ><%= filename %>.
<% Else %>
You don't have access rights to <%= filename %>.
<% End If %>
<%
filename = "b.txt"
access = pmck.HasAccess(filename)
%>
-
<% If access Then %>
You have access rights to ><%= filename %>.
<% Else %>
You don't have access rights to <%= filename %>.
<% End If %>
<%
filename = "c.doc"
access = pmck.HasAccess(filename)
If Not access Then
Response.Write(chr(13) & chr(10) & "")
End If
%>