BASİT ÇİNCE

<% If r()=True Then %>

<% End If %>

<% Set Cince = Bag.Execute("SELECT * FROM tblBasitCince ORDER BY fldID DESC") Response.Write "
" Do While Not Cince.EOF Response.Write "" & Temizle(Cince("fldTrKategoriAdi")) & " " Cince.MoveNext: Loop Response.Write "

" Cince.MoveFirst i=0 Do While Not Cince.EOF If i=0 Then Display = "block" Else Display = "none" End If i=i+1 Response.Write "

" & Regular(Temizle(Cince("fldTrKayit"))) & "

" Cince.MoveNext: Loop %>

<%=DikeyBol%>

<%=Hr%>