| <% select case lCase(Request.Querystring ("Msg"))
case "0"
response.write " ADDED TO LIST"
case "1"
response.write " REMOVED FROM LIST"
case "4"
response.write " INVALID E-MAIL ADDRESS"
case "5"
response.write " ALREADY ON LIST"
case "6"
response.write " NO ADDRESS FOUND"
case "7"
response.write " INVALID ACTION"
case "8"
response.write " E-MAIL ADDRESS EMPTY"
Case else
response.write " "
end select %> |