<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% 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 "12" strError = "The email address is already unsubscribed." end select %> Untitled Document <% Response.Write "Error: (" & errorcode & ") " & strError %>