<% if request.querystring.count > 0 then errmsg = "" orderID = request("orderID") email = request("email") if email = "" then errmsg = errmsg & "Email Invalid
" if errmsg = "" then set objPost = Server.CreateObject("MSXML2.ServerXMLHTTP") set xmlDoc = Server.CreateObject("MSXML2.DOMDocument") set nE = xmlDoc.createElement("request") set elRequest = xmlDoc.appendChild(nE) set nE = xmlDoc.createElement("order") nE.setAttribute "id", orderID nE.setAttribute "email", email set elOrder = xmlDoc.documentElement.appendChild(nE) objPost.open "POST", usrPostLoc_OrderStatus objPost.send xmlDoc.xml set xmlReceive = objPost.responseXML xmlDoc.loadXML(xmlReceive.xml) set nodeDE = xmlDoc.documentElement set elChildNodes = nodeDE.childNodes for each orderNode in elChildNodes orderID = orderNode.getAttribute("id") statusSYSName = orderNode.getAttribute("statusSYSName") statusStr = orderNode.getAttribute("statusStr") next set xmlDoc = nothing set objPost = nothing if errmsg = "" then 'and statusStr <> "Not a valid orderID" then name = "Customer" formType = request("formType") message = "Please cancel my order. Order ID #" & orderID if email <> "" then set xmlDoc = Server.CreateObject("MSXML2.DOMDocument") ' Main Document Node Set nE = xmlDoc.createElement("request") nE.setAttribute "username", usr_UserName nE.setAttribute "password", usr_Password set elRequest = xmlDoc.appendChild(nE) ' Order Node Set nE = xmlDoc.createElement("order") nE.setAttribute "id", orderID nE.setAttribute "email", email nE.setAttribute "status", "CAN" nE.setAttribute "action", 4 set elOrder = xmlDoc.documentElement.appendChild(nE) '#################################################### '# SEND XML # '#################################################### set objPost = Server.CreateObject("MSXML2.ServerXMLHTTP") objPost.open "POST", usrPostLoc_StatusUpdate objPost.send xmlDoc.xml '#################################################### '# RECEIVE XML # '#################################################### 'response.write objPost.responseText 'response.end set xmlReceive = objPost.responseXML xmlDoc.loadXML(xmlReceive.xml) set nodeDE = xmlDoc.documentElement set elChildNodes = nodeDE.childNodes for each orderNode in elChildNodes orderID = orderNode.getAttribute("id") statusID = orderNode.getAttribute("statusID") statusStr = orderNode.getAttribute("statusStr") next set xmlDoc = nothing set objPost = nothing if instr(1, statusStr, "Recurring Billing Cancelled", 1) > 0 then cancelSuccess = true 'if statusStr = "Recurring Billing Cancelled - Order Not Cancelled" then ' ' set objPost = Server.CreateObject("MSXML2.ServerXMLHTTP") ' set xmlDoc = Server.CreateObject("MSXML2.DOMDocument") ' ' set nE = xmlDoc.createElement("request") ' nE.setAttribute "username", usrGateway_UserName ' nE.setAttribute "password", usrGateway_Password ' nE.setAttribute "email", email ' nE.setAttribute "templateID", 29 ' set elRequest = xmlDoc.appendChild(nE) ' ' objPost.open "POST", usrPostLoc_TellAFriend ' objPost.send xmlDoc.xml ' ' set xmlDoc = nothing ' set objPost = nothing ' 'end if set xmlDoc = Server.CreateObject("MSXML2.DOMDocument") set nE = xmlDoc.createElement("request") nE.setAttribute "url", usrPostLoc_Gateway nE.setAttribute "username", usrGateway_UserName nE.setAttribute "password", usrGateway_Password nE.setAttribute "domainStr", usrGateway_DomainStr set elRequest = xmlDoc.appendChild(nE) ' Support Node set nE = xmlDoc.createElement("Support") nE.setAttribute "name", name nE.setAttribute "email", email nE.setAttribute "formType", formType if cancelSuccess then nE.setAttribute "status", 4 else nE.setAttribute "status", 6 end if set elSupport = xmlDoc.documentElement.appendChild(nE) ' Support Options Node set nE = xmlDoc.createElement("options") set elSupportOptions = elSupport.appendChild(nE) ' Support Options Sub-Nodes set nE = xmlDoc.createElement("option") nE.setAttribute "name", "message" nE.text = message set elSupportOption = elSupportOptions.appendChild(nE) if cancelSuccess then set nE = xmlDoc.createElement("option") nE.setAttribute "name", "ADMIN_ACTION" nE.text = "Already Cancelled Email" set elSupportOption = elSupportOptions.appendChild(nE) set nE = xmlDoc.createElement("option") nE.setAttribute "name", "ADMIN_ACTION" nE.text = "Order and/or Recurring Billing Cancelled" set elSupportOption = elSupportOptions.appendChild(nE) end if '#################################################### '# SEND XML # '#################################################### ' Test code to print output of XML file 'response.contentType = "text/xml" 'response.write xmldoc.xml 'response.end ' Post XML to Gateway set objPost = Server.CreateObject("MSXML2.ServerXMLHTTP") objPost.Open "POST", usrPostLoc_Contact objPost.send xmldoc.xml '#################################################### '# RECEIVE XML # '#################################################### resultStr = objPOST.responseText 'response.write resultStr 'response.end 'Load up the results set xmlDoc = Server.CreateObject("MSXML2.DOMDocument") retLoad = xmlDoc.loadXML (resultStr) if retLoad = true then set objSuccess = xmlDoc.selectNodes("//success") if objSuccess.Length > 0 then set objSuccess1 = objSuccess(0) success = objSuccess1.getAttribute("was_success") contactID = objSuccess1.getAttribute("success_ID") else success = "false1" end if else 'not XML success = "false2" end if set xmlDoc = nothing set objPost = nothing else errMsg1 = 1 end if else errmsg = errmsg & "Your order could not be found.
" end if End If End If %> Welcome to LifeDerma.com - The #1 Topical Alternative to Botox Injections!
The order number box can be left blank but you have to insert the original email address you signed up with.
<% if success = "true" then %>
Your information was submitted successfully.

Your Inquiry ID is: <%=contactID%>

<% else %> You must put in the original email address. You can leave out the order #

<% select case errMsg1 case 1 %>Please enter your order number and email address.

<% end select %> <% if errmsg <> "" then response.write errmsg %>
Order Number:
Email:
<% end if %>

Home | Order | About LifeDerma | Ask The Doctor | How It Works | Testimonials | Before & After | FAQ | Account Cancellation | Contact


*BOTOX® is a registered trademark of Allergan, Inc. Lifederma™ is not associated with Allergan, Inc./Botox
Lifederma© Copyright 2004-7 All Rights Reserved | http://www.lifederma.com