I am integrating om with my asp scrpt. However, I am having some
issues consuming/using the OpenGateMethods.
I can do the following. I can get the session ID using the following
script..
Dim objXMLHTTP, xml
' Create an xmlhttp object:
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
' Or, for version 3.0 of XMLHTTP, use:
' Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
' Opens the connection to the remote server.
xml.Open "GET", "http://216.161.170.249:5080/openmeetings/
MethodGateway?service=userservice&method=getSession", False
' Actually Sends the request and returns the data:
xml.Send
Dim xmlDoc
Set xmlDoc = Server.CreateObject("msxml2.DOMDocument")
xmlDoc.async = False
Dim node
if xmlDoc.load(xml.responseText) then
xmlDoc.setProperty "SelectionLanguage", "XPath"
set node = xmlDoc.selectSingleNode("/id/session_id")
end if
txt = xml.responseText
Response.Write xml.responseText
session("sid") = mid(txt,87,32)
sid = session("sid")
'Response.write "<br><BR>session_id = " & session("sid") &"<BR>"
Set xml = Nothing
'strNext1 = "http://localhost:5080/openmeetings/MethodGateway?
service=userservice&method=loginUser&SID="&sid&"&username=admin&userpass="&strpassword
strnext = ("getOMloginUser.asp")
response.redirect(strNext)
txt = xml.responseText
Response.Write "next response = "&xml.responseText&"<BR>"
If I redirect using strnext1 then I get a return code <long>1</long>.
Which I know is correct. However, I dont know how to consume the
response.
If I redirect to seperat webpage getOMLoginUser.asp it does not appear
to send the http request. The page is included here:
sub loginUser()
Response.Buffer = True
Dim objXMLHTTP, xml, sid, bXMLLodError
sid = session("sid")
' Create an xmlhttp object:
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
' Or, for version 3.0 of XMLHTTP, use:
' Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
' Opens the connection to the remote server.
xml.open "GET", "http://localhost:5080/openmeetings/MethodGateway?
service=userservice&method=loginUser&SID="&sid&"&username=admin&userpass="&strpassword",
false
if xml.status = 200 then
response.write "good"
else
response.write "didnt send"
end if
Dim xmlDoc
Set xmlDoc = Server.CreateObject("msxml2.DOMDocument")
xmlDoc.async = False
Dim node
'if xmlDoc.load(xml.responseText) then
'end if
txt = xml.responseText
Response.Write xml.responseText
strResponse = mid(txt,7,1)
Response.write "<br><BR>strresponse = " & strResponse &"<BR>"
Set xml = Nothing
end sub
This page only give Me a blank response It doesnt appear the xml.send
actually sent the request to the server. xml.status returns nothing..
can anyone help.
Has any one written any scripts using vbscript to utilize the
MethodGateway?
--
You received this message because you are subscribed to the Google Groups
"OpenMeetings User" 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/openmeetings-user?hl=en.
