<table cellspacing="0" cellpadding="0" align="center" width="100%" style="border-width: 0"> <tr class="tableLedger"> <td> <marquee onmouseover="this. stop " onmouseout="this. start " scrollamount="2"> <% Dim intSonKonularSay strSql = "Select " & strDbTable & "Topic. Subject, " & strDbTable & "Topic. Topic_ID, " & strDbTable & "Forum. Forum_ID, " & strDbTable & "Forum. Forum_name, " & strDbTable & "Topic. Last_Thread_ID, " & strDbTable & "Topic. No_of_views " strSql = strSql & "From " & strDbTable & "Topic, " & strDbTable & "Forum Where " & strDbTable & "Topic. Hide = False And " & strDbTable & "Topic. Forum_ID = " & strDbTable & "Forum. Forum_ID Order By " & strDbTable & "Topic. Last_Thread_ID desc" rsCommon. Open strSQL, adoCon For intSonKonularSay = 1 to 10 if rsCommon. Eof Then Exit For Response. Write "<a href=""forum_posts. asp?TID=" & rsCommon & strQsSID2 & """>" Response. write "<img border=""0"" src=""imgs/icon_Mes0. gif"" align=""center"" valign=""middle"" alt=""Konuyu Görüntülemek İçin Tıklayın"" /> " if Len(rsCommon > 30 Then Response. write Left(rsCommon ,27) & "...</a> " Else Response. write rsCommon & "</a> " End if rsCommon. MoveNext Next rsCommon. Close %> </marquee> </td> </tr> </table> <marquee onmouseover="this. stop " onmouseout="this. start " scrollamount="2"> uzermden hizini ayarliya bilirsin. ve For intSay = 1 to 10 yazan yerden son kac konunun kayacağini belirleye bilirsin. beyaz_seytan arkadasima tessekürler..!!!