Change returned data content type?

[mandanarchi]

Bit of a toughie here I think.

I use (access 2003) HTTP.send function to open up a php file that's stored on an internal website.
The file queries one of our suppliers regarding stock (with xml format) and returns the response.
The php selects the nodes I want to display to the users, and Access displays it as a message box.

What I'd like to do, is return the selected nodes in a way that Access could automatically pick up and insert into fields in the database.

I use the http.send function for another, which directly posts to the suppliers website and returns the full xml; which I can then use

Set price = HTTP.responseXML.SelectSingleNode("//query/price")

to get the selected node.

I tried echoing the nodes into an xml format and extracting those; but it kept saying 'variable not set'. I have a hunch that might be because the content type is text, not xml.

Does anyone know if it's possible to return the selected nodes as xml so I can pick them up in access?

Does anyone even understand what I'm going on about lol

Thanks for any help
Mandi

[pbmods]

Heya, Mandi.

Which programming language are you using? That doesn't look like PHP.

[mandanarchi]

Heya, Mandi.

Which programming language are you using? That doesn't look like PHP.

That part isn't, that part is VBA. I'll post both the VBA and PHP.

<?php
$td_sku = $_REQUEST['sku'];
$td_manu = $_REQUEST['manu'];
 
//Following the XML data
$xmldata="<?xml version=\"1.0\" encoding=\"UTF-8\"?>\r
<OnlineCheck>\r
<Header>\r
<BuyerAccountId>xxxxx</BuyerAccountId>\r
<AuthCode>xxxxx-xxxxx-xxxxx</AuthCode>\r
<Type>Full</Type>\r
</Header>\r
<Item line=\"1\">\r
<ManufacturerItemIdentifier>$td_manu</ManufacturerItemIdentifier>t\r
<ResellerItemIdentifier/>\r
<DistributorItemIdentifier>$td_sku</DistributorItemIdentifier>\r
<Quantity>1</Quantity>\r
</Item>\r
</OnlineCheck>";
 
$fp = fsockopen("supplierswebsite.com", 8080, $errno, $errstr, 15);
//Generate the postdata on a valid way, $out4 needs to be calculated, so will be later.
$out1 = "POST /Onlchk HTTP/1.0\r
";
$out2 = "Content-Type: multipart/form-data; boundary=---------------------------2\r
";
$out3 = "Host: supplierswebsite.com:8080\r
";
$out5 = "Connection: close\r
\r
";
$out6 = "-----------------------------2\r
";
$out7 = "Content-Disposition: form-data; name=\"onlinecheck\"\r
\r
";
$out8 = "\r
-----------------------------2--";
 
//Calculation of the Content-Length:
$tlen=strlen($out6)+strlen($out7)+strlen($xmldata)+strlen($out8);
$out4 = "Content-Length: $tlen\r
";
 
//Generate full output
$out = $out1.$out2.$out3.$out4.$out5.$out6.$out7.$xmldata.$out8;
fwrite($fp, $out);
$retval = "";
while(!feof($fp)){$retval = "$retval".fgets($fp,128);}
fclose($fp);
list($headers,$body) = explode("<?xml version=\"1.0\" encoding=\"UTF-8\"?>",$retval);
$doc = new DOMDocument();
$doc ->LoadXML($body);
$item_ids = $doc->getElementsByTagname( "OnlineCheck" );
foreach( $item_ids as $item )
 
 {
 $error_s = $item->getElementsByTagName( "Errorstatus" ); $tderror = $error_s->item(0)->nodeValue;
 $stock_s = $item->getElementsByTagName( "AvailabilityTotal" ); $tdstock = $stock_s->item(0)->nodeValue;
 $desc_s = $item->getElementsByTagName( "ProductDesc" ); $tddesc = $desc_s->item(0)->nodeValue;
 $est_s = $item->getElementsByTagName( "EstimatedDeliveryQuantity" ); $tdestqty = $est_s->item(0)->nodeValue;
 $estd_s = $item->getElementsByTagName( "EstimatedDeliveryDate" ); $tdestdate = $estd_s->item(0)->nodeValue;
 $sku_s = $item->getElementsByTagName( "DistributorItemIdentifier" ); $tdsku = $sku_s->item(0)->nodeValue;
 $manu_s = $item->getElementsByTagName( "ManufacturerItemIdentifier" ); $manu = $manu_s->item(0)->nodeValue;
 
 // Reformatting the price to ISO compatible format
 $price_s = $item->getElementsByTagName( "UnitPriceAmount" ); $tdprice = $price_s->item(0)->nodeValue;
 }
//Process details under here
echo "Supplier Part No: $tdsku \r
Manuf Part No: $manu \r
Product: $tddesc \r
Stock: $tdstock \r
Price: $tdprice";
?>

The above is what the suppliers sent me and I'm aware it's probably not the best way of doing it, but it (now) works. From "//Process details under here" is what I wrote to check it works.

Sub test()
 
Dim myHTTP As MSXML2.xmlhttp
Dim myDom As MSXML2.DOMDocument
Dim qty, price, desc As MSXML2.IXMLDOMNode
Dim myxml   As String
sku = "1463230"
manu = ""
 
Set myHTTP = CreateObject("msxml2.xmlhttp")
Set myDom = CreateObject("MSXML2.DOMDocument")
 
myHTTP.Open "GET", "http://10x.0xx.0xx.xxx/c2000test.php?manu=" & manu & "&sku=" & sku, False
myHTTP.send
 
MsgBox myHTTP.responseText, vbOKOnly, "Stock"
 
'   Set code = myHTTP.responseXML.selectSingleNode("//StockCheck/Price")
'   MsgBox code
Set myHTTP = Nothing
End Sub
 

The commented two lines near the bottom are what I'd like to be able to do, if at all possible.

[mandanarchi]

I've found the following code that chucks out xml; but it still doesn't let me select the nodes.

$output= "<Order>\r
<sku>$tdsku</sku>\r
<desc>$tddesc</desc>\r
<stock>$tdstock</stock>\r
<price>$tdprice</price>\r
</Order>";
$xmlDoc = new DOMDocument();
$xmlDoc->LoadXML($output);
 
print $xmlDoc->saveXML();

When I say it chucks out xml, I mean it shows the text on a browser, but the source shows the full xml, tags included.

[mandanarchi]

Oh god.

I hate it when I'm so dense.

It was as simple as adding

header("Content-Type: text/xml");

to the top of the php.

thanks anyway guys =)

[pbmods]

Glad to hear you got it working! Thanks for posting your solution!