<% 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 "" Response.write " " if Len(rsCommon("Subject")) > 30 Then Response.write Left(rsCommon("Subject"),27) & "... " Else Response.write rsCommon("Subject") & " " End if rsCommon.MoveNext Next rsCommon.Close %>