<%
errorcode = Request.QueryString("errorcode")
errorcontrol = Request.QueryString("errorControl")
select case errorcode
case "1", "6", "7", "9", "10"
strError = "An error has occurred while attempting to save your subscriber information."
case "2"
strError = "The list provided does not exist."
case "3"
strError = "Information was not provided for a mandatory field. (" & errorcontrol & ")"
case "4"
strError = "Invalid information was provided. (" & errorcontrol & ")"
case "5"
strError = "Information provided is not unique. (" & errorcontrol & ")"
case "8"
strError = "You have already subscribed to this list."
'case "11" does not exist.
case "12"
strError = "The email address is already unsubscribed."
'case "13" = Check that the list ID and/or MID specified in your code is correct.
end select
%>
