Şimdi Ara

alt kategorili menu sorun

Sıcak Fırsatlarda Tıklananlar

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

Baseus Pudding Hızlı Şarj Özellikli Type-C Kablo 100W, 1.2 Metre, Siyah : Amazon.com.tr: Bilgisayar https://www.amazon.com.tr/dp/B0CKDZT5JX?ref=ppx_yo2ov_dt_b_fed_asin_title 7 sa. önce paylaşıldı

https://www.amazon.com.tr/dp/B0BN48Z569 https://www.amazon.com.tr/dp/B0BN48Z569 2 yıl önce paylaşıldı

HP Pavilion Gaming Dizüstü Bilgisayar, 15.6'' FHD IPS, Intel i5-9300H, 8 GB RAM, 1 TB HDD + 128 GB SSD, GeForce GTX 1650, Windows 10 Home, 6ZL09EA : Amazon.com.tr: Bilgisayar https://www.amazon.com.tr/dp/B07TRWSF6C 4 yıl önce paylaşıldı

Daha Fazla

Bu Konudaki Kullanıcılar: Daha Az

2 Misafir - 2 Masaüstü

5 sn

1
Cevap

0
Favori

463
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>