Çıktı 1-3-6-7 demişsiniz ama çıktı 1-3-6 olur... 7 olmaz çünkü 7'nin cikti=0

Aşağıdaki çalışan klasik ASP kodunu gönderiyorum, denedim çalıştı bende. Kendine göre düzenlersin...

<%
' r10 - maniakcoder
' 03.08.2013 - 21:38

Set bag = Server.CreateObject("ADODB.Connection")
bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb") 
		
Set maniak = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM marka order by id"
maniak.Open sql, bag, 1, 3

for i = 1 To 30
if maniak.Eof then exit for
	if maniak("durum")=0 then
	else
		Set maniak2 = Server.CreateObject("ADODB.Recordset")
		sql2 = "SELECT * FROM urun"
		maniak2.Open sql2, bag, 1, 3
		
		for ii = 1 To 30
		if maniak2.Eof then exit for
			if instr(1,maniak2("marka_id"),maniak("id")) > 0 and maniak2("cikti")=1 then
				response.write maniak("id")&"----"&maniak("marka")&"<br>"
				exit for
			end if
		maniak2.Movenext
		Next
		
		maniak2.Close
		Set maniak2 = Nothing
	end if
maniak.Movenext
Next	

maniak.Close
Set maniak = Nothing
bag.Close
Set bag= Nothing				
%>

Ama fazla veri varsa ikinci kısımda yaptığı aç/kapa ile sistemi kasabilir...