Once again disregard. I found my error.
On Oct 29, 7:53 pm, HMiles <horace.mi...@konnectme.com> wrote:
> 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 openmeetings-u...@googlegroups.com.
To unsubscribe from this group, send email to
openmeetings-user+unsubscr...@googlegroups.com.
For more options, visit this group at
http://groups.google.com/group/openmeetings-user?hl=en.
