Teach Yourself e.net - Syspro

Example 5.11. ASP.NET Visual Basic codebehind for Query.Browse
' Logon and trap any exceptions
Dim UserId As String
Dim Obj As New Encore.Utilities()
Try
UserId = Obj.Logon("ADMIN", " ", "1", " ", 5, 0, 0, " ")
Catch exc As Exception
Response.Write("Exception - message:" & exc.Message)
Exit Sub
End Try
' Run generic fetch returning a warehouse row
Dim Qry As New Encore.Query()
Dim XmlOut As String
' Build an XML string to pass the table name and key
Dim XmlIn As New System.Text.StringBuilder()
XmlIn.Append("")
XmlIn.Append("")
XmlIn.Append("ArCustomer")
XmlIn.Append("0000001")
XmlIn.Append("GE")
XmlIn.Append("browse.xsl")
XmlIn.Append("")
Try
XmlOut = Qry.Browse(UserId, XmlIn.ToString())
Catch exc As Exception
Response.Write("Unable to run generic browse - \
Exception:" & exc.Message)
Exit Sub
End Try
Response.Write(XmlOut)
Response.ContentType = "text/xml"
' Logoff and Cancel your current Session
Dim ReturnCode As Long
ReturnCode = Obj.Logoff(UserId)
Qry = Nothing
Obj = Nothing
5–16