<%@ Language=VBScript %> <% sXmlAction = sXmlAction & "" sXmlAction = sXmlAction & "TestAccount" sXmlAction = sXmlAction & "ae4268ddc0bf1744d48f93f317bb5c23b444cbada22ecff3fae62d566e152595" sXmlAction = sXmlAction & "Purchase" sXmlAction = sXmlAction & "NZD" sXmlAction = sXmlAction & "2.03" sXmlAction = sXmlAction & "Test Transaction" sXmlAction = sXmlAction & "Test@test.com" sXmlAction = sXmlAction & "http://www.mywebsite.com/response.asp" sXmlAction = sXmlAction & "http://www.mywebsite.com/response.asp" sXmlAction = sXmlAction & "" Dim objXMLhttp Set objXMLhttp = server.Createobject("MSXML2.XMLHTTP") objXMLhttp.Open "POST", "https://www.paymentexpress.com/pxpay/pxaccess.aspx" ,False objXMLhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" objXMLhttp.send sXmlAction Dim oXML, URI Set oXML = Server.CreateObject("MSXML2.DomDocument") oXML.loadXML(objXMLhttp.responseText) URI = oXML.selectSingleNode("//URI").text Response.Redirect URI Set objXMLhttp = nothing %>