<% '<><><><><><><><><><><><><><><><><><><><><><><> '<> 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 STIL=1 then %>
 
<% Set anamenu = Server.CreateObject("ADODB.Recordset") Sorgu = "SELECT * FROM MENU WHERE CESIT=1 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=1 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 %>
_a" class="dropmenudiv_a"> <% Set altmenuayrinti = Server.CreateObject("ADODB.Recordset") Sorgu = "SELECT * FROM MENU WHERE CESIT=1 AND ALT=" & anamenu("ID") & " ORDER BY SIRA ASC" altmenuayrinti.Open Sorgu, Baglanti, 1, 3 If altmenuayrinti.Recordcount = 0 Then Response.Write "sMenü Bulunamadı" Else Do While Not altmenuayrinti.EOF %> " href="<%=altmenuayrinti("URL")%>" title="<%=altmenuayrinti("TITLE")%>"><%=altmenuayrinti("AD")%> <% altmenuayrinti.MoveNext Loop End If altmenuayrinti.Close Set altmenuayrinti=Nothing %>
<% end if anamenu.MoveNext Wend anamenu.Close Set anamenu=Nothing %> <% end if %> <% if STIL=2 then %>
<% Set anamenu = Server.CreateObject("ADODB.Recordset") Sorgu = "SELECT * FROM MENU WHERE CESIT=1 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=1 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 %>
_b" class="dropmenudiv_b"> <% Set altmenuayrinti = Server.CreateObject("ADODB.Recordset") Sorgu = "SELECT * FROM MENU WHERE CESIT=1 AND ALT=" & anamenu("ID") & " ORDER BY SIRA ASC" altmenuayrinti.Open Sorgu, Baglanti, 1, 3 If altmenuayrinti.Recordcount = 0 Then Response.Write "sMenü Bulunamadı" Else Do While Not altmenuayrinti.EOF %> " href="<%=altmenuayrinti("URL")%>" title="<%=altmenuayrinti("TITLE")%>"><%=altmenuayrinti("AD")%> <% altmenuayrinti.MoveNext Loop End If altmenuayrinti.Close Set altmenuayrinti=Nothing %>
<% end if anamenu.MoveNext Wend anamenu.Close Set anamenu=Nothing %> <% end if %> <% if STIL=3 then %>


<% Set anamenu = Server.CreateObject("ADODB.Recordset") Sorgu = "SELECT * FROM MENU WHERE CESIT=1 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=1 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 %>
_c" class="dropmenudiv_c"> <% Set altmenuayrinti = Server.CreateObject("ADODB.Recordset") Sorgu = "SELECT * FROM MENU WHERE CESIT=1 AND ALT=" & anamenu("ID") & " ORDER BY SIRA ASC" altmenuayrinti.Open Sorgu, Baglanti, 1, 3 If altmenuayrinti.Recordcount = 0 Then Response.Write "sMenü Bulunamadı" Else Do While Not altmenuayrinti.EOF %> " href="<%=altmenuayrinti("URL")%>" title="<%=altmenuayrinti("TITLE")%>"><%=altmenuayrinti("AD")%> <% altmenuayrinti.MoveNext Loop End If altmenuayrinti.Close Set altmenuayrinti=Nothing %>
<% end if anamenu.MoveNext Wend anamenu.Close Set anamenu=Nothing %> <% end if %> <% if STIL=4 then %>


<% Set anamenu = Server.CreateObject("ADODB.Recordset") Sorgu = "SELECT * FROM MENU WHERE CESIT=1 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=1 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 %>
_d" class="dropmenudiv_d"> <% Set altmenuayrinti = Server.CreateObject("ADODB.Recordset") Sorgu = "SELECT * FROM MENU WHERE CESIT=1 AND ALT=" & anamenu("ID") & " ORDER BY SIRA ASC" altmenuayrinti.Open Sorgu, Baglanti, 1, 3 If altmenuayrinti.Recordcount = 0 Then Response.Write "sMenü Bulunamadı" Else Do While Not altmenuayrinti.EOF %> " href="<%=altmenuayrinti("URL")%>" title="<%=altmenuayrinti("TITLE")%>"><%=altmenuayrinti("AD")%> <% altmenuayrinti.MoveNext Loop End If altmenuayrinti.Close Set altmenuayrinti=Nothing %>
<% end if anamenu.MoveNext Wend anamenu.Close Set anamenu=Nothing %> <% end if %> <% if STIL=5 then %>

<% Set anamenu = Server.CreateObject("ADODB.Recordset") Sorgu = "SELECT * FROM MENU WHERE CESIT=1 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=1 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 %>
_e" class="dropmenudiv_e"> <% Set altmenuayrinti = Server.CreateObject("ADODB.Recordset") Sorgu = "SELECT * FROM MENU WHERE CESIT=1 AND ALT=" & anamenu("ID") & " ORDER BY SIRA ASC" altmenuayrinti.Open Sorgu, Baglanti, 1, 3 If altmenuayrinti.Recordcount = 0 Then Response.Write "sMenü Bulunamadı" Else Do While Not altmenuayrinti.EOF %> " href="<%=altmenuayrinti("URL")%>" title="<%=altmenuayrinti("TITLE")%>"><%=altmenuayrinti("AD")%> <% altmenuayrinti.MoveNext Loop End If altmenuayrinti.Close Set altmenuayrinti=Nothing %>
<% end if anamenu.MoveNext Wend anamenu.Close Set anamenu=Nothing %> <% end if %> <% if STIL=6 then %>
<% Set anamenu = Server.CreateObject("ADODB.Recordset") Sorgu = "SELECT * FROM MENU WHERE CESIT=1 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=1 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 %>
" class="dropmenudiv"> <% Set altmenuayrinti = Server.CreateObject("ADODB.Recordset") Sorgu = "SELECT * FROM MENU WHERE CESIT=1 AND ALT=" & anamenu("ID") & " ORDER BY SIRA ASC" altmenuayrinti.Open Sorgu, Baglanti, 1, 3 If altmenuayrinti.Recordcount = 0 Then Response.Write "Menü Bulunamadı" Else Do While Not altmenuayrinti.EOF %> " href="<%=altmenuayrinti("URL")%>" title="<%=altmenuayrinti("TITLE")%>"><%=altmenuayrinti("AD")%> <% altmenuayrinti.MoveNext Loop End If altmenuayrinti.Close Set altmenuayrinti=Nothing %>
<% end if anamenu.MoveNext Wend anamenu.Close Set anamenu=Nothing %> <% end if %> <% if STIL=7 then %>
<% Set anamenu = Server.CreateObject("ADODB.Recordset") Sorgu = "SELECT * FROM MENU WHERE CESIT=1 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=1 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 %>
" class="dropmenudiv2"> <% Set altmenuayrinti = Server.CreateObject("ADODB.Recordset") Sorgu = "SELECT * FROM MENU WHERE CESIT=1 AND ALT=" & anamenu("ID") & " ORDER BY SIRA ASC" altmenuayrinti.Open Sorgu, Baglanti, 1, 3 If altmenuayrinti.Recordcount = 0 Then Response.Write "Menü Bulunamadı" Else Do While Not altmenuayrinti.EOF %> " href="<%=altmenuayrinti("URL")%>" title="<%=altmenuayrinti("TITLE")%>"><%=altmenuayrinti("AD")%> <% altmenuayrinti.MoveNext Loop End If altmenuayrinti.Close Set altmenuayrinti=Nothing %>
<% end if anamenu.MoveNext Wend anamenu.Close Set anamenu=Nothing %> <% end if %> <% if STIL=8 then %>
<% Set anamenu = Server.CreateObject("ADODB.Recordset") Sorgu = "SELECT * FROM MENU WHERE CESIT=1 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=1 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 %>
" class="dropmenudiv3"> <% Set altmenuayrinti = Server.CreateObject("ADODB.Recordset") Sorgu = "SELECT * FROM MENU WHERE CESIT=1 AND ALT=" & anamenu("ID") & " ORDER BY SIRA ASC" altmenuayrinti.Open Sorgu, Baglanti, 1, 3 If altmenuayrinti.Recordcount = 0 Then Response.Write "Menü Bulunamadı" Else Do While Not altmenuayrinti.EOF %> " href="<%=altmenuayrinti("URL")%>" title="<%=altmenuayrinti("TITLE")%>"><%=altmenuayrinti("AD")%> <% altmenuayrinti.MoveNext Loop End If altmenuayrinti.Close Set altmenuayrinti=Nothing %>
<% end if anamenu.MoveNext Wend anamenu.Close Set anamenu=Nothing %> <% end if %> <% if STIL=9 then %>
<% Set anamenu = Server.CreateObject("ADODB.Recordset") Sorgu = "SELECT * FROM MENU WHERE CESIT=1 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=1 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 %>
" class="dropmenudiv4"> <% Set altmenuayrinti = Server.CreateObject("ADODB.Recordset") Sorgu = "SELECT * FROM MENU WHERE CESIT=1 AND ALT=" & anamenu("ID") & " ORDER BY SIRA ASC" altmenuayrinti.Open Sorgu, Baglanti, 1, 3 If altmenuayrinti.Recordcount = 0 Then Response.Write "Menü Bulunamadı" Else Do While Not altmenuayrinti.EOF %> " href="<%=altmenuayrinti("URL")%>" title="<%=altmenuayrinti("TITLE")%>"><%=altmenuayrinti("AD")%> <% altmenuayrinti.MoveNext Loop End If altmenuayrinti.Close Set altmenuayrinti=Nothing %>
<% end if anamenu.MoveNext Wend anamenu.Close Set anamenu=Nothing %> <% end if %> <% if STIL=10 then %>
<% Set anamenu = Server.CreateObject("ADODB.Recordset") Sorgu = "SELECT * FROM MENU WHERE CESIT=1 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=1 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 %>