<% @LANGUAGE = VBScript %> <% Option Explicit Dim objFS, FlagFile, CookieVal Response.Expires = 0 %> <% FlagFile = "julie6" CookieVal = "379" Set objFS=Server.CreateObject("Scripting.FileSystemObject") If objFS.FileExists(FlagFile) = True Then objFS.DeleteFile(FlagFile) Response.Cookies("Asp24h") = CookieVal Response.Write "Security enabled.
" Else Response.Write "Security setup failed, please contact PaulK.
" End If Set objFS = Nothing %>