Problem in login to SBO database through DI server

Question

I am a newbie to DI Server.I am using VS.NET 2005 and SQL Server 2005,SBO 2005B (PL 27) on Windows XP Service Pack2.Everytime I tried to Login to login to SBO Database through DI server I am getting the same SOAP response -"Could not commit transaction Login".Can anyone help me in this regard?
Thanks,
Arnab Lahiri
Edited by: Arnab Lahiri on Aug 21, 2008 8:50 AM

Answer 1

Hi Arshdeep,
                   DI server is running and I have the proper licenses for SDK and ADDons.I am putting the code for the Login(hardcoded the parameters used for login):
<WebMethod()> _
     Public Function Login() As String
        Dim DISnode As SBODI_Server.Node
        Dim sSOAPans, sCmd As String
        DISnode = New SBODI_Server.Node
        sCmd = "<?xml version=""1.0"" encoding=""UTF-16""?>"
        sCmd += "<env:Envelope xmlns:env=""http://schemas.xmlsoap.org/soap/envelope/"">"
        sCmd += "<env:Body><dis:Login xmlns:dis=""http://www.sap.com/SBO/DIS"">"
        sCmd += "<DatabaseServer>" & "X63\SAP" & "</DatabaseServer>"
        sCmd += "<DatabaseName>" & "ASLLIVE" & "</DatabaseName>"
        sCmd += "<DatabaseType>" & "dst_MSSQL2005" & "</DatabaseType>"
        sCmd += "<DatabaseUsername>" & "sa" & "</DatabaseUsername>"
        sCmd += "<DatabasePassword>" & "xen007" & "</DatabasePassword>"
        sCmd += "<CompanyUsername>" & "manager" & "</CompanyUsername>"
        sCmd += "<CompanyPassword>" & "manager" & "</CompanyPassword>"
        sCmd += "<Language>" & "ln_English" & "</Language>"
        sCmd += "<LicenseServer>" & "X63:30000" & "</LicenseServer>" 'ILTLVH25
        sCmd += "</dis:Login></env:Body></env:Envelope>"
        sSOAPans = DISnode.Interact(sCmd)
        Dim xmlValid As System.Xml.XmlReader
        'Dim xmlValid As System.Xml.XmlValidatingReader
        Dim sRet As String
        xmlValid = New System.Xml.XmlTextReader(sSOAPans, System.Xml.XmlNodeType.Document, Nothing)
        While xmlValid.Read()
            If xmlValid.NodeType = System.Xml.XmlNodeType.Text Then
                If sRet = "" Then
                    sRet += xmlValid.Value
                Else
                    If sRet.StartsWith("Error") Then
                        sRet += " " & xmlValid.Value
                    Else
                        sRet = "Error " & sRet & " " & xmlValid.Value
                    End If
                End If
            End If
        End While
        If InStr(sSOAPans, "<env:Fault>") And (Not (sRet.StartsWith("Error"))) Then
            sRet = "Error: " & sRet
        End If
        Return sRet
    End Function
Thanks,
Arnab