kendim şu an yazıyorum renği : <% 'whichpageareyouon hangi sayfada olduğumuzu sylüyor :) 'querystringe eşitliyorum ordan kaçıncı sayfadayız onu tayin etcez whichpageareyouon = int(request. querystring 'eğer değer boşsa 0 yapıp ilk sayfaya gnderiyoruz if whichpageareyouon = "" then whichpageareyouon = 0 end if 'conn burda veritabanı bağlantısının adı myrecords = conn. execute 'kaç tanke kayıt var onu buluyoruz Set total = conn. Execute("select count as records from posts") '10 demiştin kayıt sayısına sizeofpage = 10 'burda elimizdeki kayıtları bir sayfadaki kayıt sayısına blüp kaç tane sayfamız olucak toplam onu buluyoruz pagecount = cint(int(total / sizeofpage) ' queryle bildirilen sayfa toplam sayfa sayımızdan büyükse anasayfaya def ediyoruz if whichpageareyouon > pagecount thenresponse. redirect end if result = int int myrecords. move for i=1 to sizeofpage if myrecords. eof then exit for end if %> buraya işte neleri yazdırcaksan kayıt setiyle ilgi onlar işte <% myrecords. movenextnext %> umarim işine yarar ) validen

saygılar yukarı //Hayat Bazen Tatlıdır//--//Aşıksan vur saza şofrsen bas gaza// https://zulfumehmet.com/ Kişisel bir olay

ben okumadım yukarsını :D :) normal bütün kayıtları listeliyorsun sandım :) nurkynin dedğini yap o zaman :) validen

: ne iş asp ye mi başladın banamı sordun //Hayat Bazen Tatlıdır//--//Aşıksan vur saza şofrsen bas gaza// https://zulfumehmet.com/ Kişisel bir olay

<%Set vt = Server. CreateObject ' tanımalamavt. Open "DRIVER= ; DBQ=" & Server. MapPath ' malum veritabanı olaylarıset rs = server. createobject ' tanımalamasql = "select from tabloadi where tur=" &" 'sutunadi' " ' sql komutumuzrs. open sql, vt,1,3 ' baglantı açıyoruzRandomize ' randomize ye giriyoruzrastgele = Int +0) ' kayıtlara gre ayar çektiriyoruzRs. Move ' rastgele veri belirleniyor%> <%response. write Rs %> ' rastgele veriyi yazdiriyoruz.

: anladıgım kadarıyla byle bi şey soruyorsun. eğer yanlı$ anlamadıysam. alttaki sayfayı her yenilediginde 10 tane markadan birini çıkarır. en basitinden markaları array'a alıp yani bu sekilde kullanabilirsin. istersen veritabanına bağlayıp da kullanırsın. veritabanlı da bi rnek yapabilirim istersen :| hoca veri tabanı tarzında ayarlarsan daha iyi olur yazdığım kodlar uzerinde nasıl değişiklik yapsam olur //Hayat Bazen Tatlıdır//--//Aşıksan vur saza şofrsen bas gaza// https://zulfumehmet.com/ Kişisel bir olay

bekliyoruz Blitz //Hayat Bazen Tatlıdır//--//Aşıksan vur saza şofrsen bas gaza// https://zulfumehmet.com/ Kişisel bir olay

hoca rast gele kayıt nasıl gsterecek //Hayat Bazen Tatlıdır//--//Aşıksan vur saza şofrsen bas gaza// https://zulfumehmet.com/ Kişisel bir olay

anladıgım kadarıyla byle bi şey soruyorsun. eğer yanlı$ anlamadıysam. alttaki sayfayı her yenilediginde 10 tane markadan birini çıkarır. <% dim markalar(10)randomizemarkalar(1)="nike"markalar(2)="adidas"markalar(3)="puma"markalar(4)="mahmut jeans"markalar(5)="tommy hilfiger"markalar(6)="lacoste"markalar(7)="umbro"markalar(8)="le coq sporte"markalar(9)="diadora"markalar(10)="lotto"upperbound=ubound lowerbound=0lrandom = Int((upperbound - lowerbound + 1) rnd + lowerbound)response. write (markalar %> en basitinden markaları array'a alıp yani bu sekilde kullanabilirsin. istersen veritabanına bağlayıp da kullanırsın. veritabanlı da bi rnek yapabilirim istersen :|

. baska bi yontemi var bunun aspnin kendi sayfalama zımbırtısını kullanmadan yapılıyo. Bı gun kendi aklımla bulmuştum ama varmis aynı mantık daha onceden. Telefondan girmeseydim şakadanak bi rnek kod patlatırdım sana ama telden o kadar şeyı yazmayı yemıyo simdı... Baskası yardımcı olmazsa pcden grınce hallederim ben :) validen

hocam şimdi şu şekilde veri tabanına bağlıyorum olayı <% Set karma = Server. CreateObject karma. ActiveConnection = Baglanti karma. CursorType= adOpenStatic karma. Open " SELECT FROM tabloadi Where onay=1 Order by ktarih DESC" ' Function kat_yaz_yeni SQL_Kategori3_Info= " SELECT FROM kategori Where id="&karma &" " SET Kategori3_Info=Baglanti. Execute(SQL_Kategori3_Info) kat_yaz_yeni = Kategori3_Info End Function %> sonrada alta burdan veriyi alıyorum En Yeniler <%i=1' If karma. EOF Thenmsg_ana_kat="Veritabanında Kayıt Yok."Elsesyf=trim(Request If syf="" Then syf=1karma. pagesize=10karma. AbsolutePage=syf WHILE not karma. eof and rowcount < karma. pagesize rowcount=rowcount+1' If i mod 2 then RENK="#f6f6f6" Else RENK="#ffffff" End If i=i+1%> " width="85" height="62"> &VeterinerBuL=firmadetay" style="width: 100%; cursor:hand; cursor:pointer" align="center" bgcolor="<%=RENK%>" onMouseOver="this. style. backgroundColor='#d8e4f1';" onMouseOut="this. style. backgroundColor='<%=RENK%>';" cellpadding="0" class="ana_kat_goster_12"> <%=karma %> <%=Left(karma , 99)%> ... <%=karma %> | Tlf: <%=firmaliste_yeni %> <%=kat_yaz_yeni %> <%karma. MoveNext WENDEnd If%> Toplam 10 Liste <%=msg_ana_kat%> şimdi iki sorum olacak ben 10 tane karışık firma gstermek istiyorum ama en son kayıttaki firmaları gsteriyor If syf="" Then syf=1karma. pagesize=10 ' buraya 25 yazıyorum 25 tane kayıt gsteriyor ama 10 yazdığımda 4 tane gsteriyorkarma. AbsolutePage=syf yani ben 10 tane kayıt gstermek istiyorum ne yapmam lazım yardımcı olurmusunuz teşekürler. //Hayat Bazen Tatlıdır//--//Aşıksan vur saza şofrsen bas gaza// https://zulfumehmet.com/ Kişisel bir olay

ne iş asp ye mi başladın Kayalardan kayarım yoktur benim ayarım (;