[whip]

Merhaba ,
ASP veritabanından çekilen kayıtların başlıklarını ana sayfada alttaki vermiş olduğum JavaScript ile kayan yazı şeklinde gösteriyorum. Ancak bu gösterimde geçen konu başlığı sayısını sınırlandırmayı düşünüyorum. Yani örneğin ana sayfada gösterilen başlıklar son 10 eklenem yazı başlıkları olsun.

Sayfa kodları alttaki şekildedir acaba bunu nasıl yapabilirim...

<%
Set Surbbs = server.CreateObject("ADODB.Connection")
Surbbs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../../db/data/data.mdb")

Set rsbbs = server.CreateObject("ADODB.Recordset")
sorbbs = "Select * from haber where onay=1 ORDER BY id desc"
rsbbs.Open sorbbs,Surbbs,1,3
%>

<script language="JavaScript1.2">


//Specify the marquee's width (in pixels)
var marqueewidth="204px"
//Specify the marquee's height
var marqueeheight="200px"
//Specify the marquee's marquee speed (larger is faster 1-10)
var marqueespeed=1;
//Pause marquee onMousever (0=no. 1=yes)?
var pauseit=1

//Specify the marquee's content
//Keep all content on ONE line, and backslash any single quotations (ie: that\'s great):

var marqueecontent='<%while not rsbbs.eof %><a href="devami.ASP?id=<%=rsbbs("id")%>"target="_top" ><%=rsbbs("baslik")%></a><br><br><%rsbbs.movenext()%><%wend%>'

////NO NEED TO EDIT BELOW THIS LINE////////////

marqueespeed=(document.all)? marqueespeed : Math.max(1, marqueespeed-1) //slow speed down by 1 for NS
var copyspeed=marqueespeed
var pausespeed=(pauseit==0)? copyspeed: 0
var iedom=document.all||document.getElementById
var actualheight=''
var cross_marquee, ns_marquee

function populate(){
if (iedom){
cross_marquee=document.getElementById? document.getElementById("iemarquee") : document.all.iemarquee
cross_marquee.style.top=parseInt(marqueeheight)+8+ "px"
cross_marquee.innerHTML=marqueecontent
actualheight=cross_marquee.offsetHeight
}
else if (document.layers){
ns_marquee=document.ns_marquee.document.ns_marquee 2
ns_marquee.top=parseInt(marqueeheight)+8
ns_marquee.document.write(marqueecontent)
ns_marquee.document.close()
actualheight=ns_marquee.document.height
}
lefttime=setInterval("scrollmarquee()",20)
}
window.onload=populate

function scrollmarquee(){

if (iedom){
if (parseInt(cross_marquee.style.top)>(actualheight*(-1)+8))
cross_marquee.style.top=parseInt(cross_marquee.sty le.top)-copyspeed+"px"
else
cross_marquee.style.top=parseInt(marqueeheight)+8+ "px"
}
else if (document.layers){
if (ns_marquee.top>(actualheight*(-1)+8))
ns_marquee.top-=copyspeed
else
ns_marquee.top=parseInt(marqueeheight)+8
}
}

if (iedom||document.layers){
with (document){
if (iedom){
write('<div style="position:relative;width:'+marqueewidth+';he ight:'+marqueeheight+';overflow:hidden" onMouseover="copyspeed=pausespeed" onMouseout="copyspeed=marqueespeed">')
write('<div id="iemarquee" style="position:absolute;left:0px;top:0px;width:10 0%;">')
write('</div></div>')
}
else if (document.layers){
write('<ilayer width='+marqueewidth+' height='+marqueeheight+' name="ns_marquee">')
write('<layer name="ns_marquee2" width='+marqueewidth+' height='+marqueeheight+' left=0 top=0 onMouseover="copyspeed=pausespeed" onMouseout="copyspeed=marqueespeed"></layer>')
write('</ilayer>')
}
}
}
</script>

[CreaNext]

Set rsbbs = server.CreateObject("ADODB.Recordset")
sorbbs = "Select top 10 alan1,alan2,alan3 from haber where onay=1 ORDER BY id desc"
rsbbs.Open sorbbs,Surbbs,1,3

[whip]

Sevgili CreaNext, yardım için teşekkürler . Yamış olduğunuz kod içinde vermiş olduğunuz alan1, alan2, ...bölümünü tam çözemedim . mdb tablo yapısını alttaki linkte verdim . Buna göre tam olarak nasıl yazmalıyım acaba.


MDB Yapısı

[CreaNext]

Set rsbbs = server.CreateObject("ADODB.Recordset")
sorbbs = "Select top 10 id,baslik from haber where onay=1 ORDER BY id desc"
rsbbs.Open sorbbs,Surbbs,1,3

yani o alan1 alan2 dediğim alan isimleri hangi alanları kullanıyorsan onları yazcaksın.

[whip]

sevgili CreaNext,
ayırdığın zaman için yardımın için çok teşekkürler hallettim tekrar teşekkürler...