alanları 2 li veya 3 lü olarak alt atlta sıralama ve sayfala

[menderes]

hemen soruma geçeyim, acil..ASP İLE ÇALIŞIYORUM
veri tabanından aldığım verileri 2 li veya üçlü olarak altalta sıralamak ve sayfa sayısı da altta gözüksün istiyorum. yani tıkladığımda diğer 2nci 3 ncü sayfaya da geçebileyim.sayfa sayısı altta gözüksün.
bu konuda acil yardım bekliyorum teşekkür ederim. herkese iyi çalışmalar.

[sherlockholmes]

sorunuzda acil demişsiniz , sanırım şimdiye kadar bitirmişsinizdir işleminizi. ama eğer bitirmediyseniz , şöyle bir önerim olacak. isterseniz uygulama dosyalarınızı gönderim üzerinde biraz durayım belki bir çözüm getirebilirim.

aklıma direkt bir çözüm önerisi gelmedi

[menderes]

Üstad ilgine teşekkür ederim. sayfalama sorunum yok 2 li 3 lü olarak ta sıralayabiliyorum. Fakat sorunum 10 arlı sırala dediğim zaman 2o kayıt birden sıralıyor.
Şimdi önce açılacak tabloyu tanımlıyorum.
<table>
<%
firmaid=request.querystring("firmaid")
if (Request.QueryString("s_id") <> "") then
tb_Ads = Request.QueryString("s_id")
end if
%>
<%
set urun= Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM urun, uyeler WHERE s_id= " + Replace(tb_Ads, "'", "''") + " AND ID="&firmaid&" and ID = id"
urun.open sql,baglanti,1,3
if urun.eof then
response.write"<br><center><font face=verdana size=1 color=cc6600><b><a href=javascript:history.back()><font color=#FF0000>»</font>Bu Kategoride Ürün Kaydı Yapılmamış <br>«GERİ»</a></b></font></center>"
response.end
else
kayt=urun.recordcount
sid=urun("s_id")
firmaid=urun("id")
end if
%>
<% shfx = Request.QueryString("shfx") 'sayfa için querystringi
if shfx="" then
shfx=1
end if
%>

<%
urun.pagesize = 5 '1 sayfada görüntülemek istediğini veri sayısı (değiştirebilirsiniz)
urun.absolutepage = shfx
sayfa5 = urun.pagecount
for g=1 to urun.pagesize
%>
'döngü başlıyor
<tr>'tablenin satır tag
<%
if urun.eof then exit for
%>
<td>'birinci hücre tablenin
<%=urun("urunadi")%>'listelenecek veri
<%
urun.MoveNext ' 2li sıralama için tekrar yazıyorum bir sonraki kayıt için diyerek
if not urun.eof then
%>
</td>'hücre sonu
<%=urun("urunadi")%>
<td>'ikinci yan hücreye geçiyoruz
<%urun.movenext
end if
%>
</tr>'satırı tag kapatıyoruz
<%next%>
</table> 'table tagını kapatıyoruz
Devamı sayfa ->
<%
for y=1 to sayfa5
if shfx=y then
response.write y
else
response.write "<b> <a href=""urun.asp?firmaid="&firmaid&"&s_id="&s_id&"shfx="&y&""">"&y&"</a></b>"
end if
next
urun.close
set urun=Nothing

%>

ŞİMDİ BU KOD SAYFALAMA VE SIRALAMA YAPIYOR. ANCAK
5 Lİ SAYFALA DEDİK YA YAN YANA 10 ADET SIRALIYOR.
HER SIRAYI 5 Lİ GÖRÜYOR ASLINDA....
BU KONUDA YARDIMCI OLURSANIZ SEVİNİRİM.
BUNUN DAHA KOLAY BİR YOLUNU BİLEN VARSA SEVİNİRİM.
(YAN YANA 2 Lİ VE ALTTA DOĞRU 5 ,10 lu vs sıralama sayfalama)

[menderes]

İLGİLENENLERE CEVABI BULDUM SİZLERLE PAYLAŞMAK İSTEDİM.
CEVAP AŞAĞIDADIR.
<%
yol=server.mappath("veritabani.mdb")
set baglanti=server.createobject("adodb.connection")
baglanti.open " Data Source = "& yol &";Provider=Microsoft.Jet.OLEDB.4.0"
%>

<%
Set bagla = Server.CreateObject("Adodb.Recordset")
bSQL = "Select * from urun"
bagla.Open bSQL, baglanti, 1, 3
%> <%

Kayit_Sayisi = 10 ' Bir sayfada görünmesini istedi?iniz kayyt sayısı
bagla.PageSize = Kayit_Sayisi
bagla.CacheSize = Kayit_Sayisi

If Request.QueryString("Sayfa") = "" Then
Gosterilen_kayit = 1
Else
Gosterilen_kayit = CInt(Request.QueryString("Sayfa"))
End If

Toplam_Kayit=bagla.PageCount
If Gosterilen_kayit > Toplam_Kayit Then Gosterilen_kayit = Toplam_Kayit
If Gosterilen_kayit < 1 Then Gosterilen_kayit = 1
If Toplam_Kayit = 0 Then
Response.Write "Kayyt bulunamadı!"
Else
bagla.AbsolutePage = Gosterilen_kayit
end if %><table border="1" width="100%">
<tr>

<% i = 2
do while i < Kayit_Sayisi and Not bagla.Eof
%><td width="50%">
Ürün Adı:<%=bagla("urunadi")%>
fiyatı:<%=bagla("fiyati")%>
</td>
<%
i = i + 1
bagla.MoveNext
if not bagla.eof then
%>
<td width="50%">Ürün Adı:<%=bagla("urunadi")%>
fiyatı:<%=bagla("fiyati")%>
<%i = i + 1
bagla.MoveNext
end if
%>
</td>
</tr><%
Loop
%>
</table>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="50%"><center><font size="1"> <% for k=1 to Toplam_Kayit %>
<small>[<% if k=Gosterilen_Kayit then %><b><%=k%></b><% else %><a href='<%=Request.ServerVariables("SCRIPT_NAME")%>?Sayfa=<%=k%>'><%=k%></a><% end if %>]</small>
<% next %></font></center>
</td>
</tr>
</table>
Bu forum a katkısı olanlardan Allah razı olsun.

[sherlockholmes]

sorunuza yanıt getiremeden siz çözmüşsünüz ve çözümü de yazmışsın , takdire şayan bir davranış ...


iyi günler ...