arreglos en asp

[junnior]

esto es lo que tengo

set rsx = Server.CreateObject("ADODB.Recordset")

Sql2 = " SELECT person1euid, object1euid"
Sql2 = Sql2 & " from pub.journal "
Sql2 = Sql2 & " where "
Sql2 = Sql2 & " person1euid <>'' "
Sql2 = Sql2 & " and object1euid IN(3423, 3424, 3874, 3875, 4922, 4923, 5346, 5347) "

rsx.Open Sql2, oConn, 1, 1

dim puerta ()
Redim puerta(10)

if not rsx.eof then
Do While not rsx.EOF
puerta(0)= rsx("person1euid")
puerta(1)= rsx("object1euid")

rsx.MoveNext
'xx=rsx.RecordCount

LOOP



else
response.write "no encontro datos"
end if