<%


PostData = "<MailOrderParameters>"&_
                    "<public_key>"& public_key &"</public_key>"&_
                    "<amount>"& Tutar &"</amount>"&_
                    "<expire_date>"& expire_date &"</expire_date>"&_
                    "<name_surname>"& name_surname &"</name_surname>"&_
                    "<note>"& note &"</note>"&_
                    "<reference_no>"& reference_no &"</reference_no>"&_
                    "<succeed_url>"& succeed_url &"</succeed_url>"&_
                    "<error_url>"& error_url &"</error_url>"&_
                    "<addcomission_to_amount>true</addcomission_to_amount>"&_
                    "<instalment_key></instalment_key>"&_
                "</MailOrderParameters>"

Set XmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
XmlHttp.Open "POST", PostUrl, false
XmlHttp.SetRequestHeader "Content-Type", "application/xml; charset=UTF-8"
XmlHttp.SetRequestHeader "Accept", "application/xml; charset=UTF-8"
XmlHttp.setRequestHeader "Authorization", public_key		
XmlHttp.Send PostData									
ResponseXml = XmlHttp.ResponseText
Set xmldom = Server.CreateObject("Microsoft.XMLDOM")
xmldom.async = false
xmldom.loadxml(XmlHttp.responseText)
Set root = xmldom.documentElement
approved = root.selectSingleNode("/MailOrderResult/code").text

If approved = "successful" Then
response.redirect root.selectSingleNode("/MailOrderResult/url").text
Else
response.redirect "/paynet"
End if

%>