jobRunner.vbs: Function JobInQueue

Function JobInQueue(ByRef MAName, ByRef Profile)

‘Returns the found job and deletes it from the Queue

  Dim objDB, sqlQuery, recordset

  JobInQueue = FALSE

  MAName = “”

  Profile = “”

  Set objDB = CreateObject(“ADODB.Connection”)

  Set recordset = CreateObject(“ADODB.Recordset”)

  objDB.Open DB_CONNECT_STRING

  sqlQuery = “select top 1 * from ” & DB_TABLE_QUEUE & ” order by priority”

  recordset.Open sqlQuery, objDB

  If Not recordset.EOF Then

    MAName = recordset.Fields(“MA”)

    Profile = recordset.Fields(“Profile”)

  End If

  objDB.Close

  If Not MAName = “” Then

    WriteLog “Found in Queue: ” & MA & “, ” & Profile

    JobInQueue = TRUE

    DeleteFromQueue MA, Profile

  End If

End Function