Error attempting to Login to UpShot with UpXMLLibrary

Question

Hi,
We've been having as issue trying to login to UpShot via the API using Classic ASP.
We get this error:
msxml4.dll error '80070005'
Access is denied.
At this line of the SendXml function
xmlHttp.send xmlRequest
Below is the exact code of the test page we're using to troubleshoot.
<!--#include file="../../includes/UpXMLLibrary.inc"-->
<%
Response.Write("Before login")
Const COMPANYNAME = "Our Company Name"
Const LOGINNAME = "ourusername"
Const PASSWORD = "ourpassword"
Const TIMEZONE = "Eastern Time"
Const DAYLIGHTSAVINSRULE = "North America"
If Login(COMPANYNAME, LOGINNAME, PASSWORD, TIMEZONE, DAYLIGHTSAVINSRULE) Then
     Response.Write("we're logged in to UpShot")
     Logoff
End If
%>
Any help would be greatly appreciated. Thank you.

Answer 1

Hi, sorry for not responding earlier, I didn't see this. I guess the email notification of replies is not working.
It's the login function from the UpXMLLibrary include file that's part of the UpShot API.
Here's the Login function from that file
' Function Login
' Purpose:
' This function encapsulates the UpShot Login XML call. If this function succeeds,
' then the glbSessionID variable is set to the returned SessionID to be used in
' all the subsequent XML calls
' Parameters:
' companyname - Company name to use in Login request
' loginID - User Login Name to use in Login request
' password - User's Password to use in Login request
' timezone - TimeZone to use in Login request
' daylightsavingrule - DaylightSavingrule to use in Login request
' Return Value:
' Boolean - True if this function completes successfully
Function Login(companyname,loginID,password,timezone,daylightsavingrule)
Dim xmlLogin
Dim xmlOut
' default return value
Login = False
' construct the Login XML request
xmlLogin = "<Login " & _
"Company=""" & XMLEncode(companyname) & """ " & _
"LoginName=""" & XMLEncode(loginID) & """ " & _
"Password=""" & XMLEncode(password) & """ " & _
"TimeZone=""" & timezone & """ " & _
"DaylightSavingRule=""" & daylightsavingrule & """/>"
' Send the XML to the UpShot Server
If SendXML(xmlLogin, xmlOut) Then
Dim xmlDoc
Dim loginElement
' Load the XML into the MSXML object for parsing
Set xmlDoc = Server.CreateObject("MSXML2.DOMDocument.4.0")
xmlDoc.LoadXML xmlOut
' Check the returned action status to make sure this request succeeded
If VerfiyRequestStatus(xmlDoc, "Login") Then
' Login was successfull, so get the SessionID and store it in the
' global SessionId variable
Set loginElement = xmlDoc.selectSingleNode("/*/Login")
glbSessionID = loginElement.selectSingleNode("SessionID").Text
' If we get here then everything succeeded
Login = TRUE
End If
End If
End Function
And the SendXML function that Login calls (and where the error is happening)
' Function SendXML
' Purpose:
' This function encapsulates the sending of an XML request to the
' UpShot server. It takes in a string containing and XML request and
' returns a string containing the XML response. The passed in XML is
' not a complete XML request. This routine will package the passed in
' XML into a well-formed UpShot XML request before sending it to the UpShot
' server.
' Parameters:
' xmlIn - XML request to send to the upshot server
' xmlOut [out] - A string containing the XML response
' Return Value:
' Boolean - True if the request was sent and recieved successfully
Function SendXML(xmlIn, xmlOut)
Dim serverUrl
Dim xmlRequest
Dim xmlDoc
Dim xmlHttp
Dim errorElement
' default return value
SendXML = False
' create the MSXML objects to send the XML request
Set xmlDoc = Server.CreateObject("MSXML2.DOMDocument.4.0")
Set xmlHttp = Server.CreateObject("MSXML2.XMLHTTP.4.0")
' construct an URL to send the request to
serverUrl = PROTOCOL & "://" & SERVERNAME
' package the XML request with the correct processing instructions
' and insode of the UpShotRequest node
xmlRequest = "<?xml version=""1.0"" encoding=""ISO-8859-1""?>" & "<UpShotRequest"
If Len(glbSessionID) > 0 Then
xmlRequest = xmlRequest & " SessionID="""&glbSessionID&""""
End If
xmlRequest = xmlRequest & ">"& xmlIn & "</UpShotRequest>"
' send the XML to the UpShot server
xmlHttp.Open"POST", serverUrl & "/UpShotdev/xml.dll", False
xmlHttp.send xmlRequest
' set the XML output
xmlOut = xmlHttp.responseXML.xml
' load the XML results
If Not xmlDoc.Load(xmlHttp.responseXML) Then
Dim xPE
' Valid XML was not passed back. Get a string error
' describing the error
Set xPE = xmlDoc.parseError
With xPE
glbErrorMsg = "Your XML Document failed to load" & _
"due the following error." & vbCrLf & _
"Error #: " & .errorCode & ": " & xPE.reason & _
"Line #: " & .Line & vbCrLf & _
"Line Position: " & .linepos & vbCrLf & _
"Position In File: " & .filepos & vbCrLf & _
"Source Text: " & .srcText & vbCrLf & _
"Document URL: " & .URL
End With
Exit Function
End If
' look for an error node at the top level
Set errorElement = xmlDoc.selectNodes("/*/Error")
If errorElement.length > 0 Then
glbErrorMsg = errorElement.item(0).Text
Exit Function
End If
' If we get here then everything succeeded
SendXML = True
End Function
Thanks for your help. It's much appreciated.