ASP.NET

Public Shared Function getCompanyCode(ByVal strDivisionCode) As String

    Dim DivisionCode As String = strDivisionCode

    Dim ReturnedCompanyCode As String = ""
    Dim MyCompanyCode As String

    Dim CompanyCode As String = ""
    Dim CompanyLevel As String = ""

    Dim objConnSelectFloatSQL As SQLConnection = New SQLConnection(DB2TestConnectionString())
    Dim selectFloatSQL As String

    Try

        If DivisionCode <> "" Then

            'Level 4/5
            selectFloatSQL = "SELECT CompCode, CompNum from tblComp where CompNum = '" & DivisionCode.Trim() & "'"

            Dim objCmdSelectSQL As SQLCommand = New SQLCommand(selectFloatSQL, objConnSelectFloatSQL)

            objConnSelectFloatSQL.Open()

            Dim objDr As SQLDataReader = objCmdSelectSQL.ExecuteReader()
            While (objDr.Read())
                CompanyCode = objDr(0).ToString.Trim()
                CompanyLevel = objDr(1).ToString.Trim()
            End While
            objConnSelectFloatSQL.Close()


            MyCompanyCode = CompanyCode & "," & CompanyLevel

        Else
            MyCompanyCode = "LEVEL does not exist for:" & strDivisionCode
        End If

    Catch ex As Exception
        Dim strExceptionMsg As String = "Error Executing GetAS400InvoiceDetails(): " & ex.Message & "\r\n"
        Throw New Exception(strExceptionMsg, ex)

    Finally

        objConnSelectFloatSQL.Close()
    End Try

    Return MyCompanyCode

End Function

Dim FGBS1 as String = getCompanyCode(strDivisionCode)

while FGBS1.Substring(FGBS1.IndexOf(",") + 1) <> 3
   FGBS1 =getCompanyCode(strDivisionCode)
end while

If CompanyLevel <> "3" Then ' either level 4 or 5
MyCompanyCode = getCompanyCode(CompanyCode)
Else 'if level 3
MyCompanyCode = CompanyCode
End If
Else
MyCompanyCode = "LEVEL does not exist for:" & strDivisionCode
End If