Şimdi Ara

alt kategorili menu sorun

Sıcak Fırsatlarda Tıklananlar

Editörün Seçtiği Fırsatlar

Puma Court Ultra Unisex Yetişkin Spor Ayakkabı : Amazon.com.tr: Moda https://www.amazon.com.tr/gp/product/B0BM9FW8FL 17 sa. önce paylaşıldı

Mannesmann M 709-065 Sert Kauçuk Çekiç, 65 mm Çap, 1 Adet : Amazon.com.tr: Yapı Market https://www.amazon.com.tr/dp/B005334NM0 geçen yıl paylaşıldı

Wrangler Kapüşonlu Sweatshirt Sweatshirt Erkek : Amazon.com.tr: Moda https://www.amazon.com.tr/gp/product/B0CQ41MTZ8 17 sa. önce paylaşıldı

Daha Fazla

Bu Konudaki Kullanıcılar: Daha Az

2 Misafir (1 Mobil) - 1 Masaüstü,

1 Mobil

5 sn

1
Cevap

0
Favori

466
Tıklama

Daha Fazla
İstatistik

Konu İstatistikleri Yükleniyor

Konuya Özel

0 oy

Öne Çıkar

Cevapla

Sayfa: 1

Giriş

Mesaj

Aşağıda ki işlemi bir menu için kullanmak isityorum veritabanından aldığım bilgiler ile acordion bir menu yapmak isitorum fakat ana kategorinin altında acılan alt kategoriti oraya yerleştiremiyorum yardımcı olursanız sevinirim.

//////////////////////////////////////////////////////////////////////////////////////////

<%
Set bag = Server.CreateObject("ADODB.Connection")
bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/urun.mdb")
if dur="normal" or dur="" then %>

<%
set uyeler = Server.CreateObject("ADODB.RecordSet")
SQL_uyeler = "Select * from kategoriler ORDER BY sira"
uyeler.open SQL_uyeler,bag,1,3
%>

<div class="arrowlistmenu">

<% if uyeler.eof then %>

<%
else
for m=1 to uyeler.recordcount
if uyeler.eof then exit for
if m mod 2=0 then
bg="white"
else
bg="white"
end if
%>

<h3 class="menuheader expandable">

<a class="menulink" href="default.asp?gb=kate&kat=<%=uyeler("ad")%>&ortak=<%=Request.QueryString("ortak") %>">
<%=uyeler("ad")%></a></h3>

<ul class="categoryitems">

<li>******Bu araya aşağıda ki çağırdıgım alt kategoriyi eklemem lazım*****</a>
</ul>

<%
uyeler.movenext
next
uyeler.close
set uyeler = Nothing
end if
%>

<% end if %>

Burdan sonrası alt kategoriyi çağırıyor fakat üstte belirttiğim ana kategorinin altına yerleştirmem lazım

////////////////////////////////////////////////////////////////////////////////////////////////////

<%
Set bag = Server.CreateObject("ADODB.Connection")
bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/urun.mdb")
if dur="normal" or dur="" then %>

<%kat=request("kat")
set uyeler = Server.CreateObject("ADODB.RecordSet")
SQL_uyeler = "Select * from altkategoriler where ad='"&kat&"'"
uyeler.open SQL_uyeler,bag,1,3
%>

<% if uyeler.eof then %>

<%
else
for m=1 to uyeler.recordcount
if uyeler.eof then exit for
if m mod 2=0 then
bg="white"
else
bg="re"
end if
%>

<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=39416764&url=default.asp?gb=altkate&kat=<%= strara %>&kata=<%=uyeler("alt")%>" data-href="default.asp?gb=altkate&kat=<%= strara %>&kata=<%=uyeler("alt")%>"><%=uyeler("alt")%></a><br>

<%
uyeler.movenext
next
uyeler.close
set uyeler = Nothing
end if
%>
<% end if %>

</div>