Şimdi Ara

Veri Tabanın veri çekmek iç içe move next

Sıcak Fırsatlarda Tıklananlar

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

Daha Fazla

Bu Konudaki Kullanıcılar: Daha Az

1 Misafir - 1 Masaüstü

5 sn

2
Cevap

0
Favori

567
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=39486735&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>