| Gönderen: 10-Temmuz-2011 Saat 22:30 | Kayıtlı IP
|
|
|
asp ile access veritabanına bağlı acordiyon menü yapmaya çalışıyorum. ancak alt kategorilerden birisi geliyor diğerleri gelmiyor. yardımcı olan olursa sevinirim..
kodlar:
<%
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open = "Driver={Microsoft Access Driver (*.mdb)};Dbq="& Server.MapPath("db\acordion.mdb")
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<head>
<script src="jquery-1.2.1.min.js" type="text/javascript"></script>
<script src="menu-collapsed.js" type="text/javascript"></script>
<link rel="stylesheet" type="text/css" href="style.css" />
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<title>Simple JQuery Collapsing menu</title>
<!--[if lt IE 8]>
<style type="text/css">
li a {display:inline-block;}
li a {display:block;}
</style>
<![endif]-->
</head>
<body>
<%
' Yukarıda veritabanına bağlanmıştık
' Kayıt setini oluşturuyoruz
Set objRs = Server.CreateObject("ADODB.RecordSet")
'Gerekli bilgileri almak için SQL sorgumuzu oluşturuyoruz
strSQL = "SELECt * FRom tblKategoriler WHERE fldKategoriSub = 0 ORDER by fldSira ASC"
'SQL sorgumuzun cevabını objRs isimli kayıt setimize yüklüyoruz
objRs.Open strSQL, objConn, 1, 3
' Eğer kayıt seti boş deilse
if Not objRs.EOF Then %>
<ul id="menu">
<%
' Kayıt setindeki bilgileri döngüye sokup almaya başlıyoruz
Do While Not objrs.EOF
%>
<li>
<a href="#"><% =objRs("fldKategoriAdi") %><img border="0" src="<% =objRs("gif") %>" width="13" height="13" style="border-style: solid; border-width: 0px" align="right"></a>
<%
' Ana kategoriye ait alt kategorilerin listesi için aşağıdaki kod bloğunu kullanıyoruz
Set objRs1 = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECt * FRom tblKategoriler WHERE fldKategoriSub = "& objRs("fldKategoriID") &" ORDER by fldSira ASC"
objRs1.Open strSQL, objConn, 1, 3
if Not objRs1.EOF Then
%>
<%
Do While Not objrs1.EOF
%>
<% If Not objRs1("link")="#" then %>
<ul>
<li><a href="<% =objRs1("link") %>" target="<% =objRs1("target") %>"><% =objRs1("fldkategoriAdi") %></a></li></ul><% end if%>
<%
objrs1.MoveNext
Loop
%>
</li>
<%
end if
%>
<%
objrs1.Close
Set objRs1 = nothing
' Kayıt setindeki sonraki kayıtı alıp sayfaya yazmak için döngüyü devam ettiriyoruz
objRs.MoveNext
Loop%>
<%end if
objrs.Close
Set objRs = nothing
objConn.close
Set objConn = Nothing
%>
|
ASPTurkiye.com Forum : ASP / ASP.NET
Konu: access veritabanlı akordiyon menü sorunu
Aktif Konular
Üye Listesi
Arama
Yardım
Kayıt Ol
Giriş
