Hej, Detta kanske kan var en början. MEn du måste kolla upp Biblioteksnamnet för clsws_PDSearcherService och ersätta xxxxxxxx med det. Tack för ditt svar!! löste det..VB kod till ASP-kod???
Vi har en webservice som jag tänkte använda, men fattar inte så mycket...
Själva webservicen används till att få information om den inloggade användaren.
Efter mycket om och men fick jag lite vb-kod som skall användas, den ser ut så här:
<code>
Dim objXML As New DOMDocument40
Dim objRootElem As IXMLDOMNodeList
Dim result As IXMLDOMNodeList
Dim resElem As IXMLDOMElement
Dim email As IXMLDOMNodeList
Dim inn As String
inn = "kdcm006"
'Load XML in DOM Document
objXML.LoadXml ("<performSearchRequest xmlns=""PeopleSearchers""><PeopleSearch><PDLogonName value=""ditt id""/><PDPassWord value=""ditt lösenord""/><SearchAttribute name=""Username""><SearchValue value=""" + inn + """/></SearchAttribute><RequestedAttribute name=""Email""/><RequestedAttribute name=""Domain""/><RequestedAttribute name=""PRID""/></PeopleSearch></performSearchRequest>")
' Populate the IXMLDOMNodeList with the XML Document nodes
Set objRootElem = objXML.childNodes
' Instantiate the proxy, change to your implementation
Set objPDWS = New clsws_PDSearcherService
' Call the method on the proxy and put result in IXMLNodeList
Set result = objPDWS.wsm_performSearchRequest(objRootElem)
Dim doc2 As MSXML2.DOMDocument30
Dim node As IXMLDOMNode
Set doc2 = New MSXML2.DOMDocument30
'Load new Xml Document with result from search.
doc2.LoadXml (result.Item(0).xml)
MsgBox (doc2.xml)
' Get specified tag in DOM document
Set objNodeList = doc2.getElementsByTagName("Email")
MsgBox ("Found Email: "+objNodeList.Item(0).Text)
</code>
Detta skall fungera att använda från en asp-sida också säger dom, men jag vet inte hur jag "konverterar detta" till asp-kod.
Någon vänlig själ som kan hjälpa mig??
/JockeSv: VB kod till ASP-kod???
<code>
Dim objXML 'As New DOMDocument40
Dim objRootElem 'As IXMLDOMNodeList
Dim result 'As IXMLDOMNodeList
Dim resElem 'As IXMLDOMElement
Dim email 'As IXMLDOMNodeList
Dim doc2 'As MSXML2.DOMDocument30
Dim node 'As IXMLDOMNode
Dim inn 'As String
inn = "kdcm006"
'Load XML in DOM Document
Set objXML = Server.CreateObject("MSXML2.DOMDocument40")
objXML.LoadXml "<performSearchRequest xmlns=""PeopleSearchers""><PeopleSearch><PDLogonName value=""ditt id""/><PDPassWord value=""ditt lösenord""/><SearchAttribute name=""Username""><SearchValue value=""" + inn + """/></SearchAttribute><RequestedAttribute name=""Email""/><RequestedAttribute name=""Domain""/><RequestedAttribute name=""PRID""/></PeopleSearch></performSearchRequest>"
' Populate the IXMLDOMNodeList with the XML Document nodes
Set objRootElem = objXML.childNodes
' Instantiate the proxy, change to your implementation
Set objPDWS = Server.CreateObject("xxxxxxxx.clsws_PDSearcherService")
' Call the method on the proxy and put result in IXMLNodeList
Set result = objPDWS.wsm_performSearchRequest(objRootElem)
Set doc2 = Server.CreateObject("MSXML2.DOMDocument30")
'Load new Xml Document with result from search.
doc2.LoadXml result.Item(0).xml
' Response.Write Server.HTMLEncode(doc2.xml)
' Get specified tag in DOM document
Set objNodeList = doc2.getElementsByTagName("Email")
Respoinse.Write "Found Email: " & objNodeList.Item(0).Text
</code>Sv: VB kod till ASP-kod???
Jag kom en bit längre på vägen, men ett problem har jag:
Jag kan inte skapa DOM dokumentet
<code>
Set objXML = Server.CreateObject("MSXML2.DOMDocument40")
</code>
inte heller om jag byter mot "30". Jag får felmeddelande "Server.CreateObject Failed".
Tar jag däremot bort 40 och bara skriver:
<code>
Set objXML = Server.CreateObject("MSXML2.DOMDocument")
</code>
Så fungerar den delen, men då får jag problem längre ner i min kod.
MSMXL 4 är installerat på servern.
Några idéer??
/JockeSv: VB kod till ASP-kod???
Skall ju vara:
<code>
Set objXML = Server.CreateObject("MSXML2.DOMDocument.4.0")
</code>