<%
If blnAccess = True Then
Response.Redirect("menu.asp") 'change this to your page.
'everything else between this If/Else area will be ignored, and your user
'will be redirect to your welcome page. Response.Redirect("../eif/default.asp")
'****************** Begin PROTECTED page content ****************************
'
' Enter any and all information you want to have password protected here.
' Be sure the content is between the < % If blnAccess = True Then % > and
' < % Else % > asp tags on the page.
' This area is used if only one page were to be protected. Code has been
' revised to include protection of multiple pages.
'
'****************** End PROTECTED page content ****************************
Else
'****************** Begin UNprotected content ****************************
'
' Enter the content you want the user to see prior to loggin in here.
' Be sure the content is between the < % Else % > and < % End If % > asp
' tags here.
%>
<%
'DIM fs
'Set fs=Server.CreateObject("Scripting.FileSystemObject")
'If fs.FileExists("C:\xfxx.xfc") = true Then
' Response.Write("File c:\xfxx.xfc exists.")
'Else
' Response.Write("File c:\xfxx.xfc does not exist.")
'End If
'set fs=nothing
'Response.write(" ")
'DIM ds
'Set ds=Server.CreateObject("Scripting.FileSystemObject")
'If ds.driveexists("c:") = true Then
' Response.Write("Drive c: exists")
'Else
' Response.Write("Drive c: does not exist.")
'End If
'set ds=nothing
'Response.write(" ")
'dim ts,e
'set ts=Server.CreateObject("Scripting.FileSystemObject")
'set e=ts.GetDrive("c:")
'Response.Write("The rootfolder is " & e.RootFolder)
'set e=nothing
'set ts=nothing
%>
Welcome to Celeren's Employee Area. Please enter your user name and password
<% '****************** End UNprotected content ****************************
End If 'If blnAccess = True Then
%>