Hola a todos.
Les cuento que tengo que recoger los datos de un formulario y enviarlos en asp a un server y luego procesar la respuesta, todo por POST.
Este es el xml:
dim xmlhttp,expire
expire = expmonth&"/"&expyear
xmlhttp="<epxml>"&_
"<header>"&_
"<responsetype>direct</responsetype>"&_
"<mid>2</mid>"&_
"<password>test</password>"&_
"<type>charge</type>"&_
"</header>"&_
"<request>"&_
"<charge>"&_
"<card>"&_
"<cctype>"&cctype&"</cctype>"&_
"<cc>"&cardnumber&"</cc>"&_
"<expire>"&expire&"</expire>"&_
"<cvv>"&cvm&"</cvv>"&_
"</card>"&_
"<cardholder>"&_
"<firstname>"&bfirstname&"</firstname>"&_
"<lastname>"&blastname&"</lastname>"&_
"<street>"&badd1&"</street>"&_
"<zip>"&bzip&"</zip>"&_
"<city>"&bcity&"</city>"&_
"<country>"&bcountry&"</country>"&_
"<state>"&bstate&"</state>"&_
"<email>"&mail&"</email>"&_
"</cardholder>"&_
"<amount>"&_
"<currency>EUR</currency>"&_
"<value>100</value>"&_
"</amount>"&_
"</charge>"&_
"</request>"&_
"</epxml>"
Luego lo envio:
Dim objXMLHTTP, xml
' Creo el objeto xmlhttp:
' Set xml = Server.CreateObject("Microsoft.XMLHTTP")
' Para la version 3.0 de XMLHTTP, tengo que usar:
Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
' Abro la conexión al servidor.
'xml.Open
xml.Open "POST", "URL a enviar", False
' Envio datos y respuestas:
xml.Send xmlhttp
'Muestro el resultado
Response.Write xml.responseText
Response.Write "</xmp><p><hr><p><h1>La salida es:</h1>"
Response.Write xml.responseText
Set xml = Nothing
Pero esto no me funciona, me tira este error
-1 malformed XML input(XML_Parser: no element found at XML input line 1:0)
La verdad es que no sé que hacer, busqué por todos lados y no pude encontrar la respuesta.
Tampoco sé mucho de xml lo que copié arriba es de un ejemplo que saqué de google y lo adapté a mis necesidades.
Por favor si alguien sabe como resolver esto le estaré más que agradecido.
Desde ya muchas gracias.
Esteban
