SOAP - sende og hente XML, hvordan?
Jeg er ved at lave et lille system der kan hente data i XML format via SOAP.Jeg har fundet et eksempel på dette link: http://www.asp101.com/articles/graphiz/googleapi/default.asp
Og rettet det lidt til:
<html>
<body>
<%
If Request.Form("SubmitButton") <> "Submit" Then
%>
<form method="post" name="g" action="testny6.asp">
<input type="text" name="searchstring" size="20"><br>
<input type="submit" value="Submit" name="SubmitButton">
<form>
<%
Else
%>
<p>
Results for Search:
<font color="red"><%=request.form("searchstring")%></font>
</p>
<%
'Google_Web_APIs_license_key = "00000000000000000000000000000000"
If Request.Form("searchstring") = "" Then
Search_String = "test"
Else
Search_String = Request.Form("searchstring")
End If
'
' This SOAP message came from the Google API soap-examples.
' Dump the SOAP message into an XML document and set the key value,
' search string value and start index.
'
Set objInputXMLDoc = Server.CreateObject("Microsoft.XMLDOM")
objInputXMLDoc.load Server.MapPath("minxmlfil.xml")
'objInputXMLDoc.selectSingleNode("//HEADER").Text = Google_Web_APIs_license_key
'objInputXMLDoc.selectSingleNode("//HEADER").Text = Search_String
'objInputXMLDoc.selectSingleNode("//start").Text = 0
'
' Post the SOAP message.
'
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.open "post", "http://minurl", False
objXMLHTTP.setRequestHeader "Content-Type", "text/xml"
'objXMLHTTP.setRequestHeader "SOAPAction", "test"
objXMLHTTP.send objInputXMLDoc
showXML(objXMLHTTP.responseText)
'
' Dump the results into an XML document.
'
Set objOutputXMLDoc = Server.CreateObject("Microsoft.XMLDOM")
objOutputXMLDoc.loadXML objXMLHTTP.responseText
'
' Parse the XML document.
'
Set Nodes = objOutputXMLDoc.selectNodes("//test1")
For Each Node In Nodes
Response.Write "<a href=""" & Node.selectSingleNode("testdata").Text & """>" _
& Node.selectSingleNode("testdata").Text & "</a><br>" & VbCrLf
Next
End If
%>
</body>
</html>
<%
Function showXML(XMLSource)
Response.Clear
Response.Write XMLSource
Response.End
End Function
%>
men skidtet virker ikke - den fejler i linien "objXMLHTTP.send objInputXMLDoc"
Uden at vide det med sikkerhed, tror jeg det har noget at gøre med linierne med objXMLHTTP.setRequestHeader. Men der tager jeg måske fejl?
Jeg har ikke prøvet at arbejde med SOAP før, så hold jer endelig ikke tilbage med spørgsmål om indlysende ting(som jeg har undladt). ;)
