Edit : arkadaşlar dizilerin tanımlanmak zorunda olduğunu unutmuşum kafayı yiyecektim sorunu halletim sanırım koddaki son düzenlemeleri yaptıktan sonra burda da yayınlayacağım belki işine yarayacak olan arkadaşlar olabilir.



Son olarak şu şekilde bir kod hazırladım sorunsuz çalışıyor
şuanda tam olarak kullanacağım şekil bu değil ama ufacık birşeyi unutmak böyle uğraştırıyor adamı ne yaparsın

<%
yemek = array ("yemek 1","yemek 2","yemek 3","yemek 4","yemek 5","yemek 6","yemek 7","yemek 8","yemek 9","yemek 10")

dim c_yemek(9,10)
dim c_yemek2(9,10,2)
s=0
for i=0 to 9
	s=s+10
		if i=0 then
		s=1
		end if
			
				for a=0 to 10
					randomize()
					seviye=int((Rnd*11)+s)
					enerji=int((Rnd*21)+10)
					fiyat=int((Rnd*16)+5)
					cesit=int(Rnd*10)
					
					c_yemek(i,a)=cesit
					c_yemek2(i,a,0)=seviye
					c_yemek2(i,a,1)=seviye*enerji
					c_yemek2(i,a,2)=int(seviye*enerji*fiyat/10)
					
				next
			
			if i=0 then
			s=0
			end if
next

for b=0 to 9
	response.Write(b &". serinin yemekleri <br>")
	for c=0 to 10
	response.Write(yemek(c_yemek(b,c)) &"<br>")
	response.Write("Seviyesi ="&c_yemek2(b,c,0) &"<br>")
	response.Write("Enerjisi ="&c_yemek2(b,c,1) &"<br>")
	response.Write("Fiyatı ="&c_yemek2(b,c,2)&"<br><br>")
	next
next

%>