Şu şekilde bir deneyebilir misiniz döngülerde PRESERVE kullanmak gerekiyormuş veriyi tutması için ben de öğrenmiş oldum bu vesileyle.

<%
 
Set anasayfakategori = Connect.Execute("Select * from kategori where anasayfa=1 order by anasayfasira asc limit 5")
If (anasayfakategori.eof) then
else
a=0
dim anaid,anaad
 redim anaid(0)
redim anaad(0)
do while (not  anasayfakategori.eof)
a=a+1
adi=anasayfakategori("kategori")
anasayfakategorileri=anasayfakategori("id")
 
 
redim Preserve anaid(a)
redim Preserve anaad(a)
anaid(a)=anasayfakategorileri
anaad(a)=adi
 
anasayfakategori.movenext
loop
end if
close(anasayfakategori)
%>