implant


  Aktif KonularAktif Konular  Forum Üyelerini GösterÜye Listesi  Forumu AraArama  YardımYardım
  Kayıt OlKayıt Ol  GirişGiriş
ASP Uygulamaları
 ASPTurkiye.com Forum : ASP Uygulamaları
Konu Konu: menü Yanıt YazYeni Konu Gönder
Yazanlarda
Mesaj << Önceki Konu | Sonraki Konu >>
şilan0101
Yeni Üye
Yeni Üye


Kayıt Tarihi: 06-Haziran-2012
Ülke: Turkiye
Gönderilenler: 12
Gönderen: 08-Haziran-2012 Saat 08:43 | Kayıtlı IP Alıntı şilan0101
arkadaşlar menülerin nasıl oluştuğunu gösteren kısa bir kod lütfen
Yukarı Dön Göster şilan0101's Özellikler Diğer Mesajlarını Ara: şilan0101
 
fatma0101
Yeni Üye
Yeni Üye


Kayıt Tarihi: 22-Mayıs-2012
Ülke: Turkiye
Gönderilenler: 25
Gönderen: 08-Haziran-2012 Saat 09:36 | Kayıtlı IP Alıntı fatma0101

<%
'<><><><><><><>< ;><><><><><><><> ;<><><><><><><>< ;>
'<> Menü Yönetimi v2.1
'<> Burak ŞİMŞEK (Burajan)
'<> http://www.buraksimsek.com.tr
'<> UzmanWeb.Net | Bilgisayar - İnternet - Web
'<> http://www.uzmanweb.net
'<><><><><><><>< ;><><><><><><><> ;<><><><><><><>< ;>
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<!-- #include file=menu_ayar.asp -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-9">
<meta http-equiv="Content-Language" content="tr">
<link rel="stylesheet" type="text/css" href="images/ddcolortabs.css" />
<link rel="stylesheet" type="text/css" href="images/bluetabs.css" />
<link rel="stylesheet" type="text/css" href="images/slidingdoors.css" />
<link rel="stylesheet" type="text/css" href="images/glowtabs.css" />
<link rel="stylesheet" type="text/css" href="images/halfmoontabs.css" />
<link rel="stylesheet" type="text/css" href="images/chromestyle.css" />
<link rel="stylesheet" type="text/css" href="images/chromestyle2.css" />
<link rel="stylesheet" type="text/css" href="images/chromestyle3.css" />
<link rel="stylesheet" type="text/css" href="images/chromestyle4.css" />
<link rel="stylesheet" type="text/css" href="images/ddlevelsmenu-base.css" />
<link rel="stylesheet" type="text/css" href="images/ddlevelsmenu-topbar.css" />
<link rel="stylesheet" type="text/css" href="images/ddlevelsmenu-sidebar.css" />
<title>Menü Örneği</title>
<script type="text/javascript" src="images/dropdowntabs.js">
/***********************************************
* Drop Down Tabs Menu- (c) Dynamic Drive DHTML code library (www.dynamicdrive.com)
* This notice MUST stay intact for legal use
* Visit Dynamic Drive at http://www.dynamicdrive.com/ for full source code
***********************************************/
</script>
<script type="text/javascript" src="images/chrome.js">
/***********************************************
* Chrome CSS Drop Down Menu- (c) Dynamic Drive DHTML code library (www.dynamicdrive.com)
* This notice MUST stay intact for legal use
* Visit Dynamic Drive at http://www.dynamicdrive.com/ for full source code
***********************************************/
</script>
<script type="text/javascript" src="images/ddlevelsmenu.js">
/***********************************************
* All Levels Navigational Menu- (c) Dynamic Drive DHTML code library (http://www.dynamicdrive.com)
* This notice MUST stay intact for legal use
* Visit Dynamic Drive at http://www.dynamicdrive.com/ for full source code
***********************************************/
</script>
</head>
<body>
<% if STIL=1 then %>
<div id="colortab" class="ddcolortabs">
<ul>
<%
Set menuayrinti = Server.CreateObject("ADODB.Recordset")
Sorgu = "SELECT * FROM MENU WHERE CESIT=1 AND ALT=0 ORDER BY SIRA ASC"
menuayrinti.Open Sorgu, Baglanti, 1, 3
If menuayrinti.Recordcount = 0 Then
Response.Write "<font face='Verdana' size='2'>Menü Bulunamadı</font>"
Else
Do While Not menuayrinti.EOF

set toplammenu = Server.CreateObject("adodb.recordset")
Sorgu= "SELECT * FROM MENU WHERE CESIT=1 AND ALT=" & menuayrinti("ID") & " ORDER BY SIRA ASC"
toplammenu.open Sorgu, Baglanti, 1, 3
toplammenusayisi = toplammenu.RecordCount
toplammenu.Close
Set toplammenu=Nothing
%>
<li><a target="<%=menuayrinti("HEDEF")%>" href="<%=menuayrinti("URL")%>" title="<%=menuayrinti("TITLE")%>"<% if toplammenusayisi>0 then %> rel="dropmenu<%=menuayrinti("ID")%>_a"<% end if %>><span><%=menuayrinti("AD")%></span&g t;</a></li>
<%
menuayrinti.MoveNext
Loop
End If
menuayrinti.Close
Set menuayrinti=Nothing
%>
</ul>
</div>

<div class="ddcolortabsline">&nbsp;</div>

<%
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
%>
<div id="dropmenu<%=anamenu("ID")%>_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 "<font face='Verdana' size='2'>sMenü Bulunamadı</font>"
Else
Do While Not altmenuayrinti.EOF
%>

<a target="<%=altmenuayrinti("HEDEF")%>" href="<%=altmenuayrinti("URL")%>" title="<%=altmenuayrinti("TITLE")%>"><%=altmenua yrinti("AD")%></a>

<%
altmenuayrinti.MoveNext
Loop
End If
altmenuayrinti.Close
Set altmenuayrinti=Nothing
%>
</div>
<%
end if

anamenu.MoveNext
Wend
anamenu.Close
Set anamenu=Nothing
%>

<script type="text/javascript">
//SYNTAX: tabdropdown.init("menu_id", [integer OR "auto"])
tabdropdown.init("colortab")
</script>
<% end if %>

<% if STIL=2 then %>
<div id="bluemenu" class="bluetabs">
<ul>
<%
Set menuayrinti = Server.CreateObject("ADODB.Recordset")
Sorgu = "SELECT * FROM MENU WHERE CESIT=1 AND ALT=0 ORDER BY SIRA ASC"
menuayrinti.Open Sorgu, Baglanti, 1, 3
If menuayrinti.Recordcount = 0 Then
Response.Write "<font face='Verdana' size='2'>Menü Bulunamadı</font>"
Else
Do While Not menuayrinti.EOF

set toplammenu = Server.CreateObject("adodb.recordset")
Sorgu= "SELECT * FROM MENU WHERE CESIT=1 AND ALT=" & menuayrinti("ID") & " ORDER BY SIRA ASC"
toplammenu.open Sorgu, Baglanti, 1, 3
toplammenusayisi = toplammenu.RecordCount
toplammenu.Close
Set toplammenu=Nothing
%>
<li><a target="<%=menuayrinti("HEDEF")%>" href="<%=menuayrinti("URL")%>" title="<%=menuayrinti("TITLE")%>"<% if toplammenusayisi>0 then %> rel="dropmenu<%=menuayrinti("ID")%>_b"<% end if %>><%=menuayrinti("AD")%></a></li>
<%
menuayrinti.MoveNext
Loop
End If
menuayrinti.Close
Set menuayrinti=Nothing
%>
</ul>
</div>

<%
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
%>
<div id="dropmenu<%=anamenu("ID")%>_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 "<font face='Verdana' size='2'>sMenü Bulunamadı</font>"
Else
Do While Not altmenuayrinti.EOF
%>

<a target="<%=altmenuayrinti("HEDEF")%>" href="<%=altmenuayrinti("URL")%>" title="<%=altmenuayrinti("TITLE")%>"><%=altmenua yrinti("AD")%></a>

<%
altmenuayrinti.MoveNext
Loop
End If
altmenuayrinti.Close
Set altmenuayrinti=Nothing
%>
</div>
<%
end if

anamenu.MoveNext
Wend
anamenu.Close
Set anamenu=Nothing
%>

<script type="text/javascript">
//SYNTAX: tabdropdown.init("menu_id", [integer OR "auto"])
tabdropdown.init("bluemenu")
</script>
<% end if %>

<% if STIL=3 then %>
<div id="slidemenu" class="slidetabsmenu">
<ul>
<%
Set menuayrinti = Server.CreateObject("ADODB.Recordset")
Sorgu = "SELECT * FROM MENU WHERE CESIT=1 AND ALT=0 ORDER BY SIRA ASC"
menuayrinti.Open Sorgu, Baglanti, 1, 3
If menuayrinti.Recordcount = 0 Then
Response.Write "<font face='Verdana' size='2'>Menü Bulunamadı</font>"
Else
Do While Not menuayrinti.EOF

set toplammenu = Server.CreateObject("adodb.recordset")
Sorgu= "SELECT * FROM MENU WHERE CESIT=1 AND ALT=" & menuayrinti("ID") & " ORDER BY SIRA ASC"
toplammenu.open Sorgu, Baglanti, 1, 3
toplammenusayisi = toplammenu.RecordCount
toplammenu.Close
Set toplammenu=Nothing
%>
<li><a target="<%=menuayrinti("HEDEF")%>" href="<%=menuayrinti("URL")%>" title="<%=menuayrinti("TITLE")%>"<% if toplammenusayisi>0 then %> rel="dropmenu<%=menuayrinti("ID")%>_c"<% end if %>><span><%=menuayrinti("AD")%></span&g t;</a></li>
<%
menuayrinti.MoveNext
Loop
End If
menuayrinti.Close
Set menuayrinti=Nothing
%>
</ul>
</div>

<br style="clear: left;" />
<br class="IEonlybr" />

<%
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
%>
<div id="dropmenu<%=anamenu("ID")%>_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 "<font face='Verdana' size='2'>sMenü Bulunamadı</font>"
Else
Do While Not altmenuayrinti.EOF
%>

<a target="<%=altmenuayrinti("HEDEF")%>" href="<%=altmenuayrinti("URL")%>" title="<%=altmenuayrinti("TITLE")%>"><%=altmenua yrinti("AD")%></a>

<%
altmenuayrinti.MoveNext
Loop
End If
altmenuayrinti.Close
Set altmenuayrinti=Nothing
%>
</div>
<%
end if

anamenu.MoveNext
Wend
anamenu.Close
Set anamenu=Nothing
%>

<script type="text/javascript">
//SYNTAX: tabdropdown.init("menu_id", [integer OR "auto"])
tabdropdown.init("slidemenu")
</script>
<% end if %>

<% if STIL=4 then %>
<div id="glowmenu" class="glowingtabs">
<ul>
<%
Set menuayrinti = Server.CreateObject("ADODB.Recordset")
Sorgu = "SELECT * FROM MENU WHERE CESIT=1 AND ALT=0 ORDER BY SIRA ASC"
menuayrinti.Open Sorgu, Baglanti, 1, 3
If menuayrinti.Recordcount = 0 Then
Response.Write "<font face='Verdana' size='2'>Menü Bulunamadı</font>"
Else
Do While Not menuayrinti.EOF

set toplammenu = Server.CreateObject("adodb.recordset")
Sorgu= "SELECT * FROM MENU WHERE CESIT=1 AND ALT=" & menuayrinti("ID") & " ORDER BY SIRA ASC"
toplammenu.open Sorgu, Baglanti, 1, 3
toplammenusayisi = toplammenu.RecordCount
toplammenu.Close
Set toplammenu=Nothing
%>
<li><a target="<%=menuayrinti("HEDEF")%>" href="<%=menuayrinti("URL")%>" title="<%=menuayrinti("TITLE")%>"<% if toplammenusayisi>0 then %> rel="dropmenu<%=menuayrinti("ID")%>_d"<% end if %>><span><%=menuayrinti("AD")%></span&g t;</a></li>
<%
menuayrinti.MoveNext
Loop
End If
menuayrinti.Close
Set menuayrinti=Nothing
%>
</ul>
</div>

<br style="clear: left;" />
<br class="IEonlybr" />

<%
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
%>
<div id="dropmenu<%=anamenu("ID")%>_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 "<font face='Verdana' size='2'>sMenü Bulunamadı</font>"
Else
Do While Not altmenuayrinti.EOF
%>

<a target="<%=altmenuayrinti("HEDEF")%>" href="<%=altmenuayrinti("URL")%>" title="<%=altmenuayrinti("TITLE")%>"><%=altmenua yrinti("AD")%></a>

<%
altmenuayrinti.MoveNext
Loop
End If
altmenuayrinti.Close
Set altmenuayrinti=Nothing
%>
</div>
<%
end if

anamenu.MoveNext
Wend
anamenu.Close
Set anamenu=Nothing
%>

<script type="text/javascript">
//SYNTAX: tabdropdown.init("menu_id", [integer OR "auto"])
tabdropdown.init("glowmenu", "auto")
</script>
<% end if %>

<% if STIL=5 then %>
<div id="moonmenu" class="halfmoon">
<ul>
<%
Set menuayrinti = Server.CreateObject("ADODB.Recordset")
Sorgu = "SELECT * FROM MENU WHERE CESIT=1 AND ALT=0 ORDER BY SIRA ASC"
menuayrinti.Open Sorgu, Baglanti, 1, 3
If menuayrinti.Recordcount = 0 Then
Response.Write "<font face='Verdana' size='2'>Menü Bulunamadı</font>"
Else
Do While Not menuayrinti.EOF

set toplammenu = Server.CreateObject("adodb.recordset")
Sorgu= "SELECT * FROM MENU WHERE CESIT=1 AND ALT=" & menuayrinti("ID") & " ORDER BY SIRA ASC"
toplammenu.open Sorgu, Baglanti, 1, 3
toplammenusayisi = toplammenu.RecordCount
toplammenu.Close
Set toplammenu=Nothing
%>
<li><a target="<%=menuayrinti("HEDEF")%>" href="<%=menuayrinti("URL")%>" title="<%=menuayrinti("TITLE")%>"<% if toplammenusayisi>0 then %> rel="dropmenu<%=menuayrinti("ID")%>_e"<% end if %>><%=menuayrinti("AD")%></a></li>
<%
menuayrinti.MoveNext
Loop
End If
menuayrinti.Close
Set menuayrinti=Nothing
%>
</ul>
</div>

<br style="clear: left;" />

<%
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
%>
<div id="dropmenu<%=anamenu("ID")%>_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 "<font face='Verdana' size='2'>sMenü Bulunamadı</font>"
Else
Do While Not altmenuayrinti.EOF
%>

<a target="<%=altmenuayrinti("HEDEF")%>" href="<%=altmenuayrinti("URL")%>" title="<%=altmenuayrinti("TITLE")%>"><%=altmenua yrinti("AD")%></a>

<%
altmenuayrinti.MoveNext
Loop
End If
altmenuayrinti.Close
Set altmenuayrinti=Nothing
%>
</div>
<%
end if

anamenu.MoveNext
Wend
anamenu.Close
Set anamenu=Nothing
%>

<script type="text/javascript">
//SYNTAX: tabdropdown.init("menu_id", [integer OR "auto"])
tabdropdown.init("moonmenu")
</script>
<% end if %>

<% if STIL=6 then %>
<div id="chromemenu" class="chromestyle">
<ul>
<%
Set menuayrinti = Server.CreateObject("ADODB.Recordset")
Sorgu = "SELECT * FROM MENU WHERE CESIT=1 AND ALT=0 ORDER BY SIRA ASC"
menuayrinti.Open Sorgu, Baglanti, 1, 3
If menuayrinti.Recordcount = 0 Then
Response.Write "<font face='Verdana' size='2'>Menü Bulunamadı</font>"
Else
Do While Not menuayrinti.EOF

set toplammenu = Server.CreateObject("adodb.recordset")
Sorgu= "SELECT * FROM MENU WHERE CESIT=1 AND ALT=" & menuayrinti("ID") & " ORDER BY SIRA ASC"
toplammenu.open Sorgu, Baglanti, 1, 3
toplammenusayisi = toplammenu.RecordCount
toplammenu.Close
Set toplammenu=Nothing
%>
<li><a target="<%=menuayrinti("HEDEF")%>" href="<%=menuayrinti("URL")%>" title="<%=menuayrinti("TITLE")%>"<% if toplammenusayisi>0 then %> rel="dropmenu<%=menuayrinti("ID")%>"<% end if %>><%=menuayrinti("AD")%></a></li>
<%
menuayrinti.MoveNext
Loop
End If
menuayrinti.Close
Set menuayrinti=Nothing
%>
</ul>
</div>

<%
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
%>
<div id="dropmenu<%=anamenu("ID")%>" 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 "<font face='Verdana' size='2'>Menü Bulunamadı</font>"
Else
Do While Not altmenuayrinti.EOF
%>

<a target="<%=altmenuayrinti("HEDEF")%>" href="<%=altmenuayrinti("URL")%>" title="<%=altmenuayrinti("TITLE")%>"><%=altmenua yrinti("AD")%></a>

<%
altmenuayrinti.MoveNext
Loop
End If
altmenuayrinti.Close
Set altmenuayrinti=Nothing
%>
</div>
<%
end if

anamenu.MoveNext
Wend
anamenu.Close
Set anamenu=Nothing
%>

<script type="text/javascript">

cssdropdown.startchrome("chromemenu")

</script>
<% end if %>

<% if STIL=7 then %>
<div id="chromemenu" class="chromestyle2">
<ul>
<%
Set menuayrinti = Server.CreateObject("ADODB.Recordset")
Sorgu = "SELECT * FROM MENU WHERE CESIT=1 AND ALT=0 ORDER BY SIRA ASC"
menuayrinti.Open Sorgu, Baglanti, 1, 3
If menuayrinti.Recordcount = 0 Then
Response.Write "<font face='Verdana' size='2'>Menü Bulunamadı</font>"
Else
Do While Not menuayrinti.EOF

set toplammenu = Server.CreateObject("adodb.recordset")
Sorgu= "SELECT * FROM MENU WHERE CESIT=1 AND ALT=" & menuayrinti("ID") & " ORDER BY SIRA ASC"
toplammenu.open Sorgu, Baglanti, 1, 3
toplammenusayisi = toplammenu.RecordCount
toplammenu.Close
Set toplammenu=Nothing
%>
<li><a target="<%=menuayrinti("HEDEF")%>" href="<%=menuayrinti("URL")%>" title="<%=menuayrinti("TITLE")%>"<% if toplammenusayisi>0 then %> rel="dropmenu<%=menuayrinti("ID")%>"<% end if %>><%=menuayrinti("AD")%></a></li>
<%
menuayrinti.MoveNext
Loop
End If
menuayrinti.Close
Set menuayrinti=Nothing
%>
</ul>
</div>

<%
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
%>
<div id="dropmenu<%=anamenu("ID")%>" 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 "<font face='Verdana' size='2'>Menü Bulunamadı</font>"
Else
Do While Not altmenuayrinti.EOF
%>

<a target="<%=altmenuayrinti("HEDEF")%>" href="<%=altmenuayrinti("URL")%>" title="<%=altmenuayrinti("TITLE")%>"><%=altmenua yrinti("AD")%></a>

<%
altmenuayrinti.MoveNext
Loop
End If
altmenuayrinti.Close
Set altmenuayrinti=Nothing
%>
</div>
<%
end if

anamenu.MoveNext
Wend
anamenu.Close
Set anamenu=Nothing
%>

<script type="text/javascript">

cssdropdown.startchrome("chromemenu")

</script>
<% end if %>

<% if STIL=8 then %>
<div id="chromemenu" class="chromestyle3">
<ul>
<%
Set menuayrinti = Server.CreateObject("ADODB.Recordset")
Sorgu = "SELECT * FROM MENU WHERE CESIT=1 AND ALT=0 ORDER BY SIRA ASC"
menuayrinti.Open Sorgu, Baglanti, 1, 3
If menuayrinti.Recordcount = 0 Then
Response.Write "<font face='Verdana' size='2'>Menü Bulunamadı</font>"
Else
Do While Not menuayrinti.EOF

set toplammenu = Server.CreateObject("adodb.recordset")
Sorgu= "SELECT * FROM MENU WHERE CESIT=1 AND ALT=" & menuayrinti("ID") & " ORDER BY SIRA ASC"
toplammenu.open Sorgu, Baglanti, 1, 3
toplammenusayisi = toplammenu.RecordCount
toplammenu.Close
Set toplammenu=Nothing
%>
<li><a target="<%=menuayrinti("HEDEF")%>" href="<%=menuayrinti("URL")%>" title="<%=menuayrinti("TITLE")%>"<% if toplammenusayisi>0 then %> rel="dropmenu<%=menuayrinti("ID")%>"<% end if %>><%=menuayrinti("AD")%></a></li>
<%
menuayrinti.MoveNext
Loop
End If
menuayrinti.Close
Set menuayrinti=Nothing
%>
</ul>
</div>

<%
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
%>
<div id="dropmenu<%=anamenu("ID")%>" 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 "<font face='Verdana' size='2'>Menü Bulunamadı</font>"
Else
Do While Not altmenuayrinti.EOF
%>

<a target="<%=altmenuayrinti("HEDEF")%>" href="<%=altmenuayrinti("URL")%>" title="<%=altmenuayrinti("TITLE")%>"><%=altmenua yrinti("AD")%></a>

<%
altmenuayrinti.MoveNext
Loop
End If
altmenuayrinti.Close
Set altmenuayrinti=Nothing
%>
</div>
<%
end if

anamenu.MoveNext
Wend
anamenu.Close
Set anamenu=Nothing
%>

<script type="text/javascript">

cssdropdown.startchrome("chromemenu")

</script>
<% end if %>

<% if STIL=9 then %>
<div id="chromemenu" class="chromestyle4">
<ul>
<%
Set menuayrinti = Server.CreateObject("ADODB.Recordset")
Sorgu = "SELECT * FROM MENU WHERE CESIT=1 AND ALT=0 ORDER BY SIRA ASC"
menuayrinti.Open Sorgu, Baglanti, 1, 3
If menuayrinti.Recordcount = 0 Then
Response.Write "<font face='Verdana' size='2'>Menü Bulunamadı</font>"
Else
Do While Not menuayrinti.EOF

set toplammenu = Server.CreateObject("adodb.recordset")
Sorgu= "SELECT * FROM MENU WHERE CESIT=1 AND ALT=" & menuayrinti("ID") & " ORDER BY SIRA ASC"
toplammenu.open Sorgu, Baglanti, 1, 3
toplammenusayisi = toplammenu.RecordCount
toplammenu.Close
Set toplammenu=Nothing
%>
<li><a target="<%=menuayrinti("HEDEF")%>" href="<%=menuayrinti("URL")%>" title="<%=menuayrinti("TITLE")%>"<% if toplammenusayisi>0 then %> rel="dropmenu<%=menuayrinti("ID")%>"<% end if %>><%=menuayrinti("AD")%></a></li>
<%
menuayrinti.MoveNext
Loop
End If
menuayrinti.Close
Set menuayrinti=Nothing
%>
</ul>
</div>

<%
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
%>
<div id="dropmenu<%=anamenu("ID")%>" 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 "<font face='Verdana' size='2'>Menü Bulunamadı</font>"
Else
Do While Not altmenuayrinti.EOF
%>

<a target="<%=altmenuayrinti("HEDEF")%>" href="<%=altmenuayrinti("URL")%>" title="<%=altmenuayrinti("TITLE")%>"><%=altmenua yrinti("AD")%></a>

<%
altmenuayrinti.MoveNext
Loop
End If
altmenuayrinti.Close
Set altmenuayrinti=Nothing
%>
</div>
<%
end if

anamenu.MoveNext
Wend
anamenu.Close
Set anamenu=Nothing
%>

<script type="text/javascript">

cssdropdown.startchrome("chromemenu")

</script>
<% end if %>

<% if STIL=10 then %>
<div id="ddtopmenubar" class="mattblackmenu">
<ul>
<%
Set menuayrinti = Server.CreateObject("ADODB.Recordset")
Sorgu = "SELECT * FROM MENU WHERE CESIT=1 AND ALT=0 ORDER BY SIRA ASC"
menuayrinti.Open Sorgu, Baglanti, 1, 3
If menuayrinti.Recordcount = 0 Then
Response.Write "<font face='Verdana' size='2'>Menü Bulunamadı</font>"
Else
Do While Not menuayrinti.EOF

set toplammenu = Server.CreateObject("adodb.recordset")
Sorgu= "SELECT * FROM MENU WHERE CESIT=1 AND ALT=" & menuayrinti("ID") & " ORDER BY SIRA ASC"
toplammenu.open Sorgu, Baglanti, 1, 3
toplammenusayisi = toplammenu.RecordCount
toplammenu.Close
Set toplammenu=Nothing
%>
<li><a target="<%=menuayrinti("HEDEF")%>" href="<%=menuayrinti("URL")%>" title="<%=menuayrinti("TITLE")%>"<% if toplammenusayisi>0 then %> rel="ddsubmenu<%=menuayrinti("ID")%>"<% end if %>><%=menuayrinti("AD")%></a></li>
<%
menuayrinti.MoveNext
Loop
End If
menuayrinti.Close
Set menuayrinti=Nothing
%>
</ul>
</div>

<script type="text/javascript">
ddlevelsmenu.setup("ddtopmenubar", "topbar") //ddlevelsmenu.setup("mainmenuid", "topbar|sidebar")
</script>

<%
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
%>
<ul id="ddsubmenu<%=anamenu("ID")%>" class="ddsubmenustyle">
<%
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 "<font face='Verdana' size='2'>Menü Bulunamadı</font>"
Else
Do While Not altmenuayrinti.EOF
%>

<li><a target="<%=altmenuayrinti("HEDEF")%>" href="<%=altmenuayrinti("URL")%>" title="<%=altmenuayrinti("TITLE")%>"><%=altmenua yrinti("AD")%></a></li>

<%
altmenuayrinti.MoveNext
Loop
End If
altmenuayrinti.Close
Set altmenuayrinti=Nothing
%>
</ul>
<%
end if

anamenu.MoveNext
Wend
anamenu.Close
Set anamenu=Nothing
%>
<% end if %>
</body>
</html>
Yukarı Dön Göster fatma0101's Özellikler Diğer Mesajlarını Ara: fatma0101
 
alenn34
Kıdemli Üye
Kıdemli Üye


Kayıt Tarihi: 26-Nisan-2013
Gönderilenler: 90
Gönderen: 28-Temmuz-2013 Saat 02:35 | Kayıtlı IP Alıntı alenn34
teşekkürler bilgi için....


Düzenleyen alenn34 17-Ekim-2013 Saat 18:03

__________________
koltuk tamirkoltuklar,koltuk
Yukarı Dön Göster alenn34's Özellikler Diğer Mesajlarını Ara: alenn34
 

Eğer Bu Konuya Cevap Yazmak İstiyorsanız İlk Önce Giriş
Eğer Kayıtlı Bir Kullanıcı Değilseniz İlk Önce Kayıt Olmalısınız

  Yanıt YazYeni Konu Gönder
Yazıcı Sürümü Yazıcı Sürümü

Forum Atla
Kapalı Foruma Yeni Konu Gönderme
Kapalı Forumdaki Konulara Cevap Yazma
Kapalı Forumda Cevapları Silme
Kapalı Forumdaki Cevapları Düzenleme
Kapalı Forumda Anket Açma
Kapalı Forumda Anketlerde Oy Kullanma

Powered by Web Wiz Forums version 7.91
Copyright ©2001-2004 Web Wiz Guide

Bu Sayfa 0,0938 Saniyede Yüklendi.