Get a recordset and use getRows

recordsetArray.vbs

Function GetRSArray(strSQL)
	Set objRS = Conn.Execute(strSQL)
	If Not objRS.EOF Then arrRS = objRS.GetRows()
	Set objRS = Nothing
	GetRSArray = arrRS
End Function
 
arrRS = GetRSArray("SELECT ID, Name FROM users;")
 
If IsArray(arrRS) Then
	For i = LBound(arrRS, 2) To UBound(arrRS, 2)
		ID = arrRS(0, i)
		Name = arrRS(1, i)
		Response.Write("<p>" & Name & " (" & ID & ")</p>" & vbCrLf)
	Next
	Erase arrRS
End If