<% Public Function SaveSubscription(CID,GUID,clients_firstname,clients_lastname,clients_email,clients_phone,clients_company,clients_position) Dim xmlhttp, strSoap set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP") 'response.Write CID 'Create Soap Request strSoap = "" strSoap = strSoap & "" strSoap = strSoap & "" strSoap = strSoap & "" strSoap = strSoap & "" & cid & "" strSoap = strSoap & "" & GUID & "" strSoap = strSoap & "" & clients_firstname & "" strSoap = strSoap & "" & clients_lastname & "" strSoap = strSoap & "" & clients_email & "" strSoap = strSoap & "" & clients_phone & "" strSoap = strSoap & "" & clients_company & "" strSoap = strSoap & "" & clients_position & "" strSoap = strSoap & "" strSoap = strSoap & "" strSoap = strSoap & "" 'Send Soap Request xmlhttp.Open "POST", "http://www.inhalesuite.com/ISWS2/ISServices2.asmx", False xmlhttp.setRequestHeader "Man", "POST /ISWS2/ISServices2.asmx HTTP/1.1" xmlhttp.setRequestHeader "Host", "www.inhalesuite.com" xmlhttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8" xmlhttp.setRequestHeader "Content-Length", Len(strSoap) xmlhttp.setRequestHeader "SOAPAction", "http://tempuri.org/ISWS2/ISServices2/SaveSubscription" xmlhttp.send(strSoap) set xmldom = server.CreateObject("Microsoft.XMLDOM") Set xmldom = xmlhttp.responseXML ' Gets actual HTML 'Response.write(xmldom.xml) 'Returns literal Text SaveSubscription = xmldom.text End Function Public Function AssignToGroup(cid,guid,client_id,group_id) Dim xmlhttp, strSoap set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP") 'Create Soap Request strSoap = "" strSoap = strSoap & "" strSoap = strSoap & "" strSoap = strSoap & "" strSoap = strSoap & "" & cid & "" strSoap = strSoap & "" & guid & "" strSoap = strSoap & "" & client_id & "" strSoap = strSoap & "" & group_id & "" strSoap = strSoap & "" strSoap = strSoap & "" strSoap = strSoap & "" 'Send Soap Request xmlhttp.Open "POST", "http://www.inhalesuite.com/ISWS2/ISServices2.asmx", False xmlhttp.setRequestHeader "Man", "POST /ISWS2/ISServices2.asmx HTTP/1.1" xmlhttp.setRequestHeader "Host", "www.inhalesuite.com" xmlhttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8" xmlhttp.setRequestHeader "Content-Length", Len(strSoap) xmlhttp.setRequestHeader "SOAPAction", "http://tempuri.org/ISWS2/ISServices2/AssignToGroup" xmlhttp.send(strSoap) set xmldom = server.CreateObject("Microsoft.XMLDOM") Set xmldom = xmlhttp.responseXML ' Gets actual HTML 'Response.write(xmldom.xml) 'Returns literal Text AssignToGroup = xmldom.text End Function if request("Process") = "Y" and ucase(request("txttest")) = "I?KLTTW" then iCLIENT_ID = SaveSubscription("330","3C1BC02E-76D9-41C8-9BF6-BCC469D4B64B",request("FirstName"),request("LastName"),request("Email"),request("Phone"),request("Company"),request("Position")) xx = AssignToGroup("330"," 3C1BC02E-76D9-41C8-9BF6-BCC469D4B64B",iCLIENT_ID,855) response.redirect "newsletter-thanks.asp" end if %>
Michalle Faulkner

Marketing Communication Executives



Award

JOIN OUR E-NEWSLETTER MAILING LIST


Would you like to receive up to date advice, support and information on current legislation and changes as they occur? If so, please take a moment to submit your details and we will periodically send you our free newsletters via email.

First Name:
Last Name:
Email Address:
In order for us to distinguish between individuals and software robots, please enter the letters you see below before submitting the form:
 
human resource services sunshine coast
     Essentials 4 Business values our client relationships.  We pride ourselves on the level of professionalism and service we provide – in fact, we have
won an award
for it.