Type mismatch: Set jsa = jsArray()

[arnold graaff]

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'QueryToJSON'

/recruiter/SQLtoJSON.asp, line 17

----------------------------------I have included the code directly and the error is indicated on the line: Set jsa = js.Array() ------------------------------Please help I am stuck!--------

Dim rs, jsa

        Set rs = dbc.Execute("SELECT name, surname FROM employer_information")

        Set jsa = jsArray()

        While Not (rs.EOF Or rs.BOF)

                Set jsa(Null) = jsObject()

                For Each col In rs.Fields

                        jsa(Null)(col.Name) = col.Value

                Next

        rs.MoveNext

        Wend

        Set QueryToJSON = jsa