cevap beklerken bende uğraşıyorum arkadaşlar ama şu uyumsuz tür olayını hala geçemedim
hazırladığım kodun son hali aşağıda ilk koddaki hatam dizinin boyutunu her defasında değiştirmeye çalışmam diye düşündüm
o hatayı düzeltmeme rağmen sorun ortadan kalkmış değil
neyse arkadaşlar sorunumun çözümü için yardımlarınıza ihtiyacım var sürekli online ım bekliyorum

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

s=0
randomize()
sayi=cint((Rnd*16)+5)

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

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

%>