Simpel Login

<%
function isLogged(UserName, PassWord, LogInPage)         		 
         Entered_UserName = "gebruikersnaam"
         Entered_PassWord = "wachtwoord"
         
         Entered_UserName = Request.Cookies("UserName")
         Entered_PassWord = Request.Cookies("PassWord")
                 	
         if Entered_UserName <> UserName or Entered_PassWord <> PassWord then           
            '$LogInPage should be the name of an existing file
            'with alternative web content. If you don't wish to
            'provide such content, just pass the empty string.
            if LogInPage <> "" then include(LogInPage) end if
            isLogged = false
         else
            isLogged = true
         end if
end function
%>

<%
function isLogged(UserName, PassWord, LogInPage)         		 
         Entered_UserName = "gebruikersnaam"
         Entered_PassWord = "wachtwoord"
 
         Entered_UserName = Request.Cookies("UserName")
         Entered_PassWord = Request.Cookies("PassWord")
 
         if Entered_UserName <> UserName or Entered_PassWord <> PassWord then           
            '$LogInPage should be the name of an existing file
            'with alternative web content. If you don't wish to
            'provide such content, just pass the empty string.
            if LogInPage <> "" then include(LogInPage) end if
            isLogged = false
         else
            isLogged = true
         end if
end function
%>