<% '<><><><><><><><><><><><><><><><><><><><><><><> '<> Menü Yönetimi v2.1 '<> Burak ŞİMŞEK (Burajan) '<> http://www.buraksimsek.com.tr '<> UzmanWeb.Net | Bilgisayar - İnternet - Web '<> http://www.uzmanweb.net '<><><><><><><><><><><><><><><><><><><><><><><> %> Menü Örneği <% if YANSTIL=1 then %>
<% Set anamenu = Server.CreateObject("ADODB.Recordset") Sorgu = "SELECT * FROM MENU WHERE CESIT=2 AND ALT=0 ORDER BY SIRA ASC" anamenu.Open Sorgu,Baglanti,1,3 While Not anamenu.EOF set alttoplammenu = Server.CreateObject("adodb.recordset") Sorgu= "SELECT * FROM MENU WHERE CESIT=2 AND ALT=" & anamenu("ID") & " ORDER BY SIRA ASC" alttoplammenu.open Sorgu, Baglanti, 1, 3 alttoplammenusayisi = alttoplammenu.RecordCount alttoplammenu.Close Set alttoplammenu=Nothing if alttoplammenusayisi>0 then %> <% end if anamenu.MoveNext Wend anamenu.Close Set anamenu=Nothing %> <% end if %> <% if YANSTIL=2 then %>
<% Set anamenu = Server.CreateObject("ADODB.Recordset") Sorgu = "SELECT * FROM MENU WHERE CESIT=2 AND ALT=0 ORDER BY SIRA ASC" anamenu.Open Sorgu,Baglanti,1,3 While Not anamenu.EOF set alttoplammenu = Server.CreateObject("adodb.recordset") Sorgu= "SELECT * FROM MENU WHERE CESIT=2 AND ALT=" & anamenu("ID") & " ORDER BY SIRA ASC" alttoplammenu.open Sorgu, Baglanti, 1, 3 alttoplammenusayisi = alttoplammenu.RecordCount alttoplammenu.Close Set alttoplammenu=Nothing if alttoplammenusayisi>0 then %> <% end if anamenu.MoveNext Wend anamenu.Close Set anamenu=Nothing %> <% end if %> <% if YANSTIL=3 then %>
<% Set anamenu = Server.CreateObject("ADODB.Recordset") Sorgu = "SELECT * FROM MENU WHERE CESIT=2 AND ALT=0 ORDER BY SIRA ASC" anamenu.Open Sorgu,Baglanti,1,3 While Not anamenu.EOF set alttoplammenu = Server.CreateObject("adodb.recordset") Sorgu= "SELECT * FROM MENU WHERE CESIT=2 AND ALT=" & anamenu("ID") & " ORDER BY SIRA ASC" alttoplammenu.open Sorgu, Baglanti, 1, 3 alttoplammenusayisi = alttoplammenu.RecordCount alttoplammenu.Close Set alttoplammenu=Nothing if alttoplammenusayisi>0 then %> <% end if anamenu.MoveNext Wend anamenu.Close Set anamenu=Nothing %> <% end if %> <% if YANSTIL=4 then %>
<% Set anamenu = Server.CreateObject("ADODB.Recordset") Sorgu = "SELECT * FROM MENU WHERE CESIT=2 AND ALT=0 ORDER BY SIRA ASC" anamenu.Open Sorgu,Baglanti,1,3 While Not anamenu.EOF set alttoplammenu = Server.CreateObject("adodb.recordset") Sorgu= "SELECT * FROM MENU WHERE CESIT=2 AND ALT=" & anamenu("ID") & " ORDER BY SIRA ASC" alttoplammenu.open Sorgu, Baglanti, 1, 3 alttoplammenusayisi = alttoplammenu.RecordCount alttoplammenu.Close Set alttoplammenu=Nothing if alttoplammenusayisi>0 then %> <% end if anamenu.MoveNext Wend anamenu.Close Set anamenu=Nothing %> <% end if %>