Setting An Array

I trying to set an array inside a loop with the variables of the loop. It seems to loop throught once then it will throw the following error:
Microsoft VBScript runtime error '800a000d'

Here is my code:

<%
'outputquery session outputs fine
Dim edit_contents_array
total = UBound(session("outputquery"), 2)
For i = 0 to (total)
'set edit array
edit_contents_array(i,0) = response.Write(trim(session("outputquery")(0,i)))
edit_contents_array(i,1) = response.Write(trim(session("outputquery")(1,i)))
Next
%>