Aspde değişken

Asp bir değişken yaratmaya çalışyorum

<%

Set anasayfakategori = Connect.Execute("Select * from kategori where anasayfa=1 order by anasayfasira asc limit 5")
If (anasayfakategori.eof) then
else
ak=0
response.write "<section class=""box-news""> <div class=""row"">"
do while (not  anasayfakategori.eof)
ak=ak+1
adi=anasayfakategori("kategori")
kat=anasayfakategori("id")

anaid(""&ak&") = "kat"  ' tam burada anaid1,anaid2,3 4 5 oluşturup döngüdeki kat idlerini yazmak istiyorum 

anasayfakategori.movenext
loop
end if
close(anasayfakategori)
%>

Kodda anlattıgım gibi bir şey yapmak istiyorum döngüden gelen id değişken olarak tanıtmak istiyorum bir türlü istedigim kdoları yapamadım .

orada 5 tanesini çagırıyorum bunları anaid1 anaid2 anaid3 anaid4 anaid5 değişkenleri nasıl yapa bilirim.

tam olarak istediğinizi anlayamadım ancak anladığım kadarıyla;
döngü dışına bir adet

dim anaid

yazın. döngü içinde de

redim anaid(ak)
anaid(ak)="kategorininidsi"

şeklinde tanım yapın. daha sonra dilediğiniz yerde anaid(1) anaid(2) gibi kullanabilirsiniz.

sag olun tam anlamışsınız :9 ama burada (ak) nasıl alıyor sayı olarak 1.2.3 gibi

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

Ş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)
%>