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