% Dim message, messagetext message = request("message") select case message case 1 messagetext = "Either Username or Password was not accepted, please try again." case else messagetext = " " end select %>