Dim objsxh, XMLdoc, abc
Dim xmlstr, result, XSLString, oNodeList, node, nodeList1, elem
xmlstr = ""
session("DownloadURL") = ""

Set objsxh = Server.CreateObject("Msxml2.ServerXMLHTTP")
objsxh.open "POST","https://shop.mydownloadportal.com/sdk/createdigitalorderurl.asp",false

			xmlstr = xmlstr & "<?xml version='1.0'?>"
			xmlstr = xmlstr & "<createdigitalorder>"
			xmlstr = xmlstr & "<login>"
			xmlstr = xmlstr & "<pnid>3</pnid>"
			xmlstr = xmlstr & "<clnum>46</clnum>"
			xmlstr = xmlstr & "<username>genxml</username>"
			xmlstr = xmlstr & "<pwd>pass131</pwd>"
			xmlstr = xmlstr & "</login>"
			xmlstr = xmlstr & "<parameters>"
			xmlstr = xmlstr & "<items>"
			xmlstr = xmlstr & "<item>"
			xmlstr = xmlstr & "<id>4772</id>"
			xmlstr = xmlstr & "<quantity>1</quantity>"
			xmlstr = xmlstr & "</item>"
			xmlstr = xmlstr & "</items>"
			xmlstr = xmlstr & "<totalcost>"
			xmlstr = xmlstr & session("EDcost")
			xmlstr = xmlstr & "</totalcost>"
			xmlstr = xmlstr & "<enduser>"
			xmlstr = xmlstr & "<name>"
			xmlstr = xmlstr & session("EDname")
			xmlstr = xmlstr & "</name>"
			xmlstr = xmlstr & "<email>"
			xmlstr = xmlstr & "aamir@genx.ca"	'session("EDemail")
			xmlstr = xmlstr & "</email>"
			xmlstr = xmlstr & "</enduser>"
			xmlstr = xmlstr & "<transaction>"
			xmlstr = xmlstr & "<type>0</type>"
			xmlstr = xmlstr & "<code></code>"
			xmlstr = xmlstr & "<cardno></cardno>"
			xmlstr = xmlstr & "<cardtype></cardtype>"
			xmlstr = xmlstr & "<expmonth></expmonth>"
			xmlstr = xmlstr & "<expyear></expyear>"
			xmlstr = xmlstr & "</transaction>"
			xmlstr = xmlstr & "<billinginfo>"
			xmlstr = xmlstr & "<providebill>0</providebill>"
			xmlstr = xmlstr & "<name></name>"
			xmlstr = xmlstr & "<company></company>"
			xmlstr = xmlstr & "<address1></address1>"
			xmlstr = xmlstr & "<address2></address2>"
			xmlstr = xmlstr & "<city></city>"
			xmlstr = xmlstr & "<countrystate>0</countrystate>"
			xmlstr = xmlstr & "<stateid>1</stateid>"
			xmlstr = xmlstr & "<statename></statename>"
			xmlstr = xmlstr & "<postalcode></postalcode>"
			xmlstr = xmlstr & "<country></country>"
			xmlstr = xmlstr & "<phone></phone>"
			xmlstr = xmlstr & "<fax></fax>"
			xmlstr = xmlstr & "</billinginfo>"
			xmlstr = xmlstr & "<download>"
			xmlstr = xmlstr & "<validity>2</validity>"
			xmlstr = xmlstr & "<downloadfrom></downloadfrom>"
			xmlstr = xmlstr & "<downloadto></downloadto>"
			xmlstr = xmlstr & "<downloadtime>2</downloadtime>"
			xmlstr = xmlstr & "</download>"
			xmlstr = xmlstr & "</parameters>"
			xmlstr = xmlstr & "</createdigitalorder>"
	
		objsxh.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
			objsxh.setRequestHeader "Content-Length",len(xmlstr)
			objsxh.send xmlstr

			result = objsxh.responseText
			Set XMLdoc = Server.CreateObject( "Msxml2.DOMDocument" )
			XMLDoc.async = false 

			if xmldoc.loadXML(result) then ' if loading from a string
				XSLString = "ARequest/*"
				Set oNodeList = xmlDoc.selectNodes("//data/items/item")
				For Each node in oNodeList 
					Set nodeList1 = node.SelectNodes("./url")
					For each elem in nodeList1
					session("DownloadURL") = elem.Text
					abc = session("DownloadURL")
										
					Next
				Next
			end if
		
			
			Set objsxh = nothing
			Set XMLdoc = nothing