<%
if action = 2 then ' ok, so we're gonna update the info, start the checks
isValid = validateInfo(subListname, subListID) ' call validation function
if isValid = 1 then ' all valid, update and show success messgae
mlConn.Execute("UPDATE ML_Subscribers SET Email = '" & replace(trim(request("email")), "'", "''") & "', Name = '" & replace(trim(request("name")), "'", "''") & "', Format = '" & replace(trim(request("format")), "'", "''") & "' WHERE SubscriberID = " & subID)
%>
Your subscription information has been successfully updated. Thanks!
<% elseif isValid = 2 then %>
Your information could not be found. If this error continues, please contact the
list manager.
<% else %>
<% if isValid = 3 then %>
Invalid email address. Please correct and try again.
<% elseif isValid = 4 then %>
This email address is already subscribed to this list. Please use another.
<% elseif isValid = 5 then %>
Invalid Format. Please choose the Text or HTML format Newsletter.
<% end if %>
<%
end if ' end action 2 ifs
else ' not an action 2, attempt to get details and show message
set subRecord = mlConn.execute("SELECT ML_Subscribers.ListID, ML_Subscribers.Email, ML_Subscribers.Name, ML_Subscribers.Format, ML_Subscribers.SubscriberID, ML_Lists.Listname FROM ML_Subscribers INNER JOIN ML_Lists ON ML_Subscribers.ListID = ML_Lists.ListID WHERE ML_Subscribers.SubscriberID = " & subID)
if subRecord.EOF then ' no subscriber found...
%>
Your details could not be found. Please make sure the URL you received did not wrap to the next line thus cutting off parts of it. If this error continues, please contact the
list manager.
<% else ' record found, show edit form %>
<%
end if
end if
%>