67/5/2007 6:00:19end <% Dim objPageCheck Set objPageCheck = new PageCheck With objPageCheck .pageID = pageThisPageID .personID = pageThisPersonID .getData() pageThisPageAccessLevel = .accessLevel If NOT .checkPermission Then Server.Transfer "/pages/2.html" End With Set objPageCheck = Nothing 'CONTENT SOURCE CHECK 'Not a URL - Continue... 'PRE-WRITE SCRIPT CHECK %>
|