Subversion Repositories DevTools

Rev

Rev 4203 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4203 Rev 4293
Line 1621... Line 1621...
1621 
   Dim rsTemp, Query_String
 1621 
   Dim rsTemp, Query_String
1622 
 
 1622 
 
1623 
   If NOT IsNull( NNrtag_id ) AND NNrtag_id <> "" Then
 1623 
   If NOT IsNull( NNrtag_id ) AND NNrtag_id <> "" Then
1624 
 
 1624 
 
1625 
      Query_String = _
 1625 
      Query_String = _
1626 
      " SELECT rc.daemon_hostname "&_
 1626 
      " SELECT rc.bmcon_id "&_
1627 
      "   FROM RELEASE_CONFIG rc"&_
 1627 
      "   FROM RELEASE_CONFIG rc"&_
1628 
      "  WHERE rc.rtag_id = "& NNrtag_id
 1628 
      "  WHERE rc.rtag_id = "& NNrtag_id
1629 
      Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 1629 
      Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
1630 
 
 1630 
 
1631 
      is_daemon_enabled_release = FALSE
 1631 
      is_daemon_enabled_release = FALSE
1632 
      While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF) AND (is_daemon_enabled_release = FALSE))
 1632 
      While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF) AND (is_daemon_enabled_release = FALSE))
1633 
         If (NOT IsNull(rsTemp("daemon_hostname"))) AND (rsTemp("daemon_hostname") <> "") Then
 1633 
         If (NOT IsNull(rsTemp("bmcon_id"))) AND (rsTemp("bmcon_id") <> "") Then
1634 
            is_daemon_enabled_release = TRUE
 1634 
            is_daemon_enabled_release = TRUE
1635 
         End If
 1635 
         End If
1636 
         rsTemp.MoveNext
 1636 
         rsTemp.MoveNext
1637 
      WEnd
 1637 
      WEnd
1638 
 
 1638