You could pump the data to a CSV file with something like this...

 Code:
$ = redirectoutput(@SCRIPTDIR + "\foo.csv",1)

for $row=0 to ubound($recordset,1)
 for $column=0 to ubound($recordset,2) - 1
   $recordset[$row,$column] + ","
 next
 $recordset[$row,ubound($recordset,2)] + @CRLF
next

$ = redirectoutput("")