17/08/2004, 08:51
|
| | | Fecha de Ingreso: agosto-2003
Mensajes: 90
Antigüedad: 20 años, 9 meses Puntos: 0 | |
| tengo esta funcion que envia por POST el xml, pero no la puedo hacer funcionar...
intentalo y porfavor si te funciona avisame..
'Envia un post a un server web y devuelve un xmldom
function Post(url,datos)
set xmlHTTP = CreateObject("Msxml2.XMLHTTP.4.0")
xmlHTTP.open "POST", url , false
xmlHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlHTTP.send "datos=" & datos
set doc = CreateObject("Msxml2.DOMDocument.4.0")
doc.loadxml xmlHTTP.Responsetext
set Post = doc
end function |