%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% option explicit %>
<%
Dim strLoginCode, strloginMessage
strLoginCode = Request.Querystring("s")
select case strLoginCode
case 1
strloginMessage = "Your username and password failed. Check Caps Lock and try again."
case 2
strloginMessage = "You must enter a username and password."
case 3
strloginMessage = "Your session expired or you have not logged in. Please log in."
case 4
strloginMessage = "You are not authorised to view the page you attempted to navigate to. You have been logged out."
case 5
strloginMessage = "You have been successfully logged out."
case else
strloginMessage = " "
end select
%>