Function isLogged(UserName, PassWord, LogInPage)         		 
Entered_UserName = ""
Entered_PassWord = ""
Entered_UserName = Request.Cookies("UserName")
Entered_PassWord = Request.Cookies("PassWord")
if Entered_UserName <> UserName or Entered_PassWord <> PassWord then           
if LogInPage <> "" then include(LogInPage) end if
isLogged = false
Else
isLogged = true
end If
end function