Gönderen: 28-Nisan-2010 Saat 23:18 | Kayıtlı IP

Aşağıda ki işlemi  bir menu için kullanmak isityorum veritabanından aldığım bilgiler ile acoridıon bir menu yapmak isitorum fakat ana baslıgın altında acılan bilgiyi orya 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")%>&am p;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 href="default.asp?gb=altkate&kat=<%= strara %>&kata=<%=uyeler("alt")%>"><%=uyeler("al t")%></a><br>

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

</div>

Gönderen: 02-Mayıs-2010 Saat 11:46 | Kayıtlı IP

evet

Gönderen: 02-Mayıs-2010 Saat 22:49 | Kayıtlı IP

Aldığım hata aşağıda ki gibi,

Hata Tipi:
Microsoft VBScript derleme hatası (0x800A0410)
Geçersiz 'for' döngüsü denetim değişkeni
/ide/urunler/kate.asp, line 145, column 5
for m=1 to uyeler.recordcount
----^

Kafa yoruyorum ama bir türlü çıkamadım işin içinden.

Bu arada ilginiz için teşekkür ederim.