<%@ Language=VBScript %> <% dim Result Result = Request.QueryString ("result") sXmlAction = sXmlAction & "" sXmlAction = sXmlAction & "TestAccount" sXmlAction = sXmlAction & "ae4268ddc0bf1744d48f93f317bb5c23b444cbada22ecff3fae62d566e152595" sXmlAction = sXmlAction & "" & Result &"" 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 response.write objXMLhttp.responsetext Set objXMLhttp = nothing %>