<% dim strUserName, strPassword, blnValidUser strUserName = ucase(request("txtUser")) strPassword = ucase(request("txtPassword")) blnValidUser = False select case strUserName case "TOMESNYDER" if strPassword = "TES02RET" then blnValidUser = True case "DLHHS" if strPassword = "TES02RET" then blnValidUser = True case "GUEST" if strPassword = "1234ABCD" then blnValidUser = True case "KATHYCOBURN" if strPassword = "RAINBOW" then blnValidUser = True case "LITTLE_OKIE" if strPassword = "LMF3051" then blnValidUser = True case "JJMEREDITH" if strPassword = "CIMARRON" then blnValidUser = True case else end select if blnValidUser = True then response.Redirect("jrsreunions.htm") else response.Redirect("loginform.asp") end if %>