Hi,

I need a simple php script to post xml and process response. The script following Visual Basic script needs converting to work with PHP:

'create the xml



Dim oXmlHTTP as Object

Dim oXMLDoc as Object

Dim oHeader as Object

Dim oElement as Object

Dim oTextNode as Object



set oXmlDoc = CreateObject("MSXML.DOMDocument")

set oHeader = oXmlDoc.createElement("BlackHorse")

oXmlDoc.appendChild(oHeader)



set oElement = oXmlDoc.createElement("CAP")

oHeader.appendchild(oElement)

set oTextNode = oXmlDoc.createTextNode(sCAP)

oElement.appendChild oTextNode

set oElement = oXmlDoc.createElement("Term")

oHeader.appendchild(oElement)

set oTextNode = oXmlDoc.createTextNode(sPer)

oElement.appendChild oTextNode

set oElement = oXmlDoc.createElement("Mileage")

oHeader.appendchild(oElement)

set oTextNode = oXmlDoc.createTextNode(sMile)

oElement.appendChild oTextNode



'send XML



Dim sUrl as string

Dim sXML as string



sURL = "https://www.domain.com"

Set oXmlHTTP = CreateObject("Microsoft.XMLHTTP")

oXmlHTTP.Open "POST", sURL, False

oXmlHTTP.Send(oXMLDoc.xml)



'Process repsonse



Set oXMLDoc = oXmlHTTP.responseXML

sXML = oXMLDoc.XML



If left(sXML,3) = "<GF" then

Set oTextNode = oXMLDoc.getElementsByTagName("GFV")

sXML = oTextNode.Item(0).nodeTypedValue

sXML = "Blackhorse GFV for " & sCAP & " after " & left(sPer, 1) & " years." & chr(10) & _

"Calculated on " & sMile*1000 & " mpa is - £ " & sXML

msgbox sXML

Gosub WriteNote

Else

Set oTextNode = oXMLDoc.getElementsByTagName("Error")

sXML = oTextNode.Item(0).nodeTypedValue

msgbox "Cannot find vehicle - Ensure a current model is selected"

End If



Set oTextNode = nothing

Set oElement = nothing

Set oHeader = nothing

Set oXMLDoc = nothing

Set oXmlHTTP = nothing



Exit Sub


It can only be tested from my IP Address due to firewall restrictions. This is a relatively simple project so sensible bids please, thanks.

Kind regards,

StevenThis could also be done using Javascript/Ajax