Some quick and dirty code
<%
Dim myarr 'for storing array
Dim rs 'for recordset
'Initialization
myarr = Array (1, "John", "Smith", 33, 20000)
rs = CreateObject("ADODB.Recordset"
'Recordet is populated with whole array
rs = myarr
'Some output for testing
Response.Write "<b>Array</b>" & "<br>" & VBCrLf
for i = 0 to 4
Response.Write myarr(i) & " "
next
Response.Write "<br>" & VBCrLf
Response.Write "<b>Recordset</b>" & "<br>" & VBCrLf
for i = 0 to 4
Response.Write rs(i) & " "
next
%>
See if suits your needs.
D.