Random ASP Error

[CiberTHuG]

Okay, this is the wrong way to ask a question, but it is upsetting me greatly.

This is the code

  Private Function RTAverage (ByVal strMonitor, ByVAl date, ByVal MonitorDB)
    dim SQL, RS
    dim arrNodes

    SQL = "SELECT Node " & _
          "FROM MonitorNode " & _
          "WHERE Monitor = '" & strMonitor & "'"
    Set RS = MonitorDB.Execute(SQL)

    if RS.EOF then
      RTAverage = ""
    else
      set arrNodes = RS.GetRows()
      dim currNode
      for currNode = 0 to UBound(arrNodes, 1)
        RTAverage = RTAverage + RTAverage(strMonitor, arrNodes(currNode), date, MonitorDB)
      next 'Node
    end if

  End Function

I am getting a "Object required" error on line 72 of the file, which is the set arrNodes = RS.GetRows() line.

What object is required? Any debug ideas to help me figure out why this code isn't working?

[monte96]

Don't use set.

arrNodes = RS.GetRows()

is all you need. Use Set ONLY with objects. An array is not an object in VBScript.

[CiberTHuG]

Thanks, Monte. Its a block of code I've used over and over again and I could not figure out why it was not working this time. For some reason, I put in a set this time.

STUPIDTRAVISSTUPIDTRAVISSTUPIDTRAVIS!