İyinet'e Hoşgeldiniz!

Türkiye'nin En Eski Webmaster Forum'una Hemen Kayıt Olun!

Kayıt Ol!

Asp ile Access veri tabanından istenilen tablo aralığını çekmek

fenteknoloji.net

0
İyinet Üyesi
Katılım
28 Kasım 2010
Mesajlar
2
Reaction score
0
iyi günler arkadaşlar. kendime ait bir fen sitem var fenteknoloji.net diye. bu sitedeki dosyalarımı belirli parçalara bölerek farklı sayfalar oluşturmak istiyorum. Yani veritabanı tablomdaki kategorilerimi 1-3, 3-6, 6-12 şeklinde ayrı sayfalara böleceğim. bunun için sayfa kodlarım; aşağıdaki gibi.
<%
Set rec = Baglanti.Execute("select * from Dosya_K order by ad asc")
ya=1
al=1
for al=1 to 48
if rec.eof then exit for
id=rec("id")
ad=rec("ad")
aciklama=rec("aciklama")
%> <%Set hrec = Baglanti.Execute("select Count(id) As dostop from Dosya where kid="&rec("id")&" and onay=1")%>
<td height="28" align="center">
<table border="0" width="100%" height="43">
<tr>
<td height="30" valign="top" width="18"><img border="0" src="Resimler/Menu/Dosyalar.gif" width="16" height="16"></td>
<td height="30" valign="top"><b>
<a href="<%if seoo="1" then%>DosyaKategori/<%=id%>-<%=seo(ad)%>.<%=seouzanti%><%else%>DosyaKategori.a sp?id=<%=id%><%end if%>">
<%=ad%></a> <font color="#66CCFF">(<%=hrec("dostop")%>)</font></b><br>
<%=aciklama%><br>
<br>
</td>
</tr>
</table>
</td>
<%
rec.movenext
ya=ya+1
if ya=4 then
ya=1
%>
</tr>
<%
end if
next
rec.close
set rec = nothing
%>
</table>
</td>
</tr>
</table>

tablodan ilk 3 veriyi çekerken kırmızı yazılan alanı 1 to 3 yapıyorumve veriler istediğim gibi çekiliyor. buraya kadar bir sorun yok. ancak 3 to 6 yaptığımda ikinci kategori oluşuyor yine ilk 3 kategori ve ikinci oluşturmak istediğim sayfann ilk kategorisi yani toplamda ilk 4 kategori listeleniyor bunu parçalar halinde nasıl çekebilirim veritabaından. yardımcı olan arkadaşlara şimdiden teşekkür ederim
 

sempativet

0
İyinet Üyesi
Katılım
3 Mart 2005
Mesajlar
283
Reaction score
0
Üzerinden zaman geçmiş ama umarım yararı olur :

Kod:
<%
Set rec = Baglanti.Execute("select * from Dosya_K order by ad asc")

if  Session("bas") = "" then
bas = 1
else
bas = Session("bas")
end if

son = bas + 2

for i=bas to son
if rec.eof then exit for

id=rec("id")
ad=rec("ad")
aciklama=rec("aciklama")

Set hrec = Baglanti.Execute("select Count(id) As dostop from Dosya where kid="&rec("id")&" and onay=1")

%>

<td height="28" 
....
....kodlarınız aynı
....
</table>
</td>

<%

rec.movenext
%>
</tr>
<%
end if
next
Session("bas") = bas + 2
rec.close
set rec = nothing
%>

Sayfa ilk açılışta, ilk 3 yazıyı listeleyecektir, sonraki görüntülemelerde de 4,5,6 , 7,8,9 şeklinde listeleme yapacaktır. Umarım doğru anlamış ve anlatmışımdır.

Saygılar..
 

Türkiye’nin ilk webmaster forum sitesi iyinet.com'da forum üyeleri tarafından yapılan tüm paylaşımlardan; Türk Ceza Kanunu’nun 20. Maddesinin, 5651 Sayılı Kanununun 4. maddesinin 2. fıkrasına göre, paylaşım yapan üyeler sorumludur.

Backlink ve Tanıtım Yazısı için iletişime geçmek için Skype Adresimiz: .cid.1580508955483fe5

Üst