<% function IDArray(ByRef prstIn, ByVal pintCount) Dim aID(), i redim aID(pintCount) for i=0 to pintCount-1 aID(i)=CLng(prstIn.Fields.Item("ID").Value) prstIn.movenext next IDArray=aID end function %>