Hvordan finder jeg flere værider i en sql="select....

<%
Set Conn3 = Server.CreateObject("ADODB.Connection")
Conn3.Open ConString
sql3 = "SELECT id FROM u_katagori WHERE id = " & objRec("kategoriId")
Set objRec3 = Conn.Execute(sql3)
while not objRec3.eof

Her skal værdierne skrives fx i et array:
Værdierne kan se sådan ud som fx mitArray:
4
6
8
12
34

Derefter skal der tælles hvor mange poster der bliver fundet i en anden tabel, hvor væriderne er li mitArray

<%
Set Conn4 = Server.CreateObject("ADODB.Connection")
Conn4.Open ConString
sql4 = "SELECT COUNT(*) FROM annoncer WHERE u_kategoriId = " & mitarray
Set objRec4 = Conn.Execute(sql4)
while not objRec4.eof
%>[<%=objRec4(0)%>]<%                                       
objRec4.movenext
wend

objRec4.close
Conn4.close
set objRec4 = nothing
set Conn4 = nothing
%>


Men hvordan laver jeg et array, så jeg kan tælle posterne i tabelen annoncer?????