Thanks Wayne!
I'm still having some trouble with this....
So I now have this and it errors out any idea on what I am doing
wrong? Thanks again for your help.
function sendXML (XMLString)
set objData = server.CreateObject("RDCMSASP.RdPageData") '*
objData.XmlServerClassName="RDCMSServer.XmlServer" '*
sendXML = objData.ServerExecuteXml(XMLString, sErrors)
if sErrors <> "" then
response.write "Errors occured: " & sErrors & chr(13)
end if
objData = NULL
end function
xmlString = "<IODATA>" &_
"<ADMINISTRATION action='login' name='owtemp'
password='12345'/>" &_
"</IODATA>"
xmlFile = sendXML(XMLString)
Set xmlDoc = server.CreateObject("Msxml2.DOMDocument.4.0")
xmlDoc.loadXML(xmlFile)
Set RDxmlNodeList = xmlDoc.getElementsByTagName("LOGIN")
LOGINGUID = RDxmlNodeList.item(0).getAttribute("guid")
xmlString = "<IODATA loginguid='" & LOGINGUID & "'>" &_
"<ADMINISTRATION action='validate' guid='" & LOGINGUID &"'
useragent='script'>" &_
"<PROJECT guid='6C8A3094541911D4BDAB004005312B7C'/>" &_
"</ADMINISTRATION>" &_
"</IODATA>"
xmlFile2 = sendXML(XMLString)
xmlDoc.loadXML(xmlFile2)
Set RDxmlNodeList2 = xmlDoc.getElementsByTagName("SERVER")
SESSIONKEY = RDxmlNodeList2.item(0).getAttribute("guid")
set xmlDoc = nothing
--
You received this message because you are subscribed to the Google Groups
"RedDot CMS Users" group.
To post to this group, send email to [email protected].
To unsubscribe from this group, send email to
[email protected].
For more options, visit this group at
http://groups.google.com/group/reddot-cms-users?hl=en.
