değişken işlemi konusunda yardım rica ediyorum

[mocos]

aşağıdaki işlemi gerçekleştirmekte sıkıntı yaşıyorum çok uğraştım yapamadım yardımcı olabilirmisiniz acaba?

<%
Set rsc = server.createobject("adodb.recordset")
SQL="Select * from saytoplan"
rsc.open SQL,baglanti,1,3
rekor=rsc.RecordCount

if rekor=0 then
response.write "yok"

else

i=1
Do While i< rekor

Set rs = server.createobject("adodb.recordset")
SQL="Select * from kaynak where siralama='"& i &"'"
rs.open SQL,baglanti,1,3
tut=i
tut=rs("hangisi")

%>
resimler klasörümde 1,2,3,4 diye adlandırdığım resimlerim var
tut 1,2,3,4 olarak database den okutturduğum rakamlara göre resimler klasörümdeki resimler bu kısımda rahatlıkla sıralanıyor

<img width="100" src="resimler/<%=tut%>.jpg"> ( resimler burada bunun gibi otomatik sıralanıyor ama böyle gerektirmiyor şartlar )


<%
i = i + 1
loop
end if
%>

aynen böyle işlemlerin altında
<img width="100" src="resimler/<%=a1%>.jpg"> dediğimde a1 e denk gelen resim açılsın.
<img width="100" src="resimler/<%=a2%>.jpg"> dediğimde a2 e denk gelen resim açılsın.

[mocos]

bir çözümünü buldum ama işlevini sağlayamadım.

<%
Dim myFixedArray(3) 'Fixed size array
myFixedArray(0) = "Albert Einstein"
myFixedArray(1) = "Mother Teresa"
myFixedArray(2) = "Bill Gates"
myFixedArray(3) = "Martin Luther King Jr."
For Each item In myFixedArray
Response.Write(item & "<br />")
Next
%>

bu örnek kod ile işlem tamam oluyor ama benim kodlarımın arasında doğru olarak nasıl çalışabilir?
şöyle denedim:
myFixedArray=rekor ' burada ilerlenecek tüm sayıyı belirttim.
myFixedArray(i) = tut ' burada tut kısmında gerçek resim isimlerini aldım. (i) ilede 1,2,3,4,5 gibi çoğaltmaya çalıştım

anlayacağınız gibi oılmadı

nasıl yapsak arkadaşlar?