ak değişkenine önce 0 verip sonra yine sayısal değer verdiğiniz için (döngü içinde sürekli +1 veriyorsunuz) tırnak içinde anaid(""&ak&"") şeklinde kullanmak gerekmiyor direkt 1 2 3 gibi görüyor kodlama.
<%
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
do while (not anasayfakategori.eof)
a=a+1
adi=anasayfakategori("kategori")
anasayfakategorileri=anasayfakategori("id")
redim anaid(a)
redim anaad(a)
anaid(a)=anasayfakategorileri
anaad(a)=adi
anasayfakategori.movenext
loop
end if
close(anasayfakategori)
%>şu şekilde yaptım ama malasef sonuç çıkmadı hatalımı yaptım acaba