...
In case the customer's portal has its own subscription forms, linked to other databases (e.g. to register to a database, to access a restricted area, to authenticate a user…) it is possible to add to the page code the following code, which allows to simultaneously record the data also within the MailUp console, with or without confirmation request.
| Code Block | ||||||
|---|---|---|---|---|---|---|
| ||||||
<%@LANGUAGE="VBSCRIPT"%>
<%
on error resume next
Dim strEmail, intList, intGroup
Dim xml, url, response_val
strEmail=request("email") ' user's email address
intList=request("list") ' list ID
intGroup=request("group") ' group to which to subscribe the user (optional)
blnConfirm = 1 'Confirmation request
csvFldNames = "Field1;Field2;Field3;Field4" 'Field names are taken from the Codes Table
csvFldValues = "Name;Surname;Company;M" 'Values are assigned to the corresponding fields in the same order as csvFldNames
retCode = 1 'if retCode = 1 the value returned by the request is an error code, if retCode = 0 error text is returned
'The page that will be called on our servers
url="http://newsletter.domainname.tld/frontend/xmlSubscribe.aspx "
' XMLHTTP version 3.0:
Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
xml.Open "POST",url,false
' Request is sent
xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xml.Send "email=" & strEmail & "&list=" & intList & "&group=" & intGroup & "&confirm=" & blnConfirm & "&csvFldNames=" & csvFldNames& "&csvFldValues=" & csvFldValues & "&retCode=" & retCode
'If retCode = 1 returned values are the following:
'Returned values:
'0 : Operation completed
'1 : Generic error
'2 : Invalid address
'3 : User already subscribed
if err.number=0 then
'Value returned by the call
response_val=xml.responseText
Set xml = Nothing
else
'The call was unsuccessful (e.g. Network error).
response_val=1
Set xml=nothing
end if
' Once the value has been returned it is possible to decide what to do/view
Select Case response_val
Case "0"
'Display a message saying the user was subscribed successfully
'...
Case "1"
'Display a message saying the service is not accessible at the moment
'...
Case "2"
'Display a message saying the email address in an invalid address
'...
Case "3"
'Display a message saying that the user is already subscribed
Case Else
'Display a message saying the service is temporarily unavailable
End Select
'If retCode = 0 error text is returned
' Returned value is retrieved
response_val=xml.responseText
Set xml = Nothing
%> |
...