<TABLE align="center" cellSpacing=0 cellPadding=0 width=100% border=0 >
    <TR> 
      <TD vAlign=top>
         <TABLE height=30 cellSpacing=0 cellPadding=0 width=100% border=0 background="skin/skin1/classmenu/mnu<% = webbg6 %>_bg.gif">
          <TBODY>
            <TR> 
			<td align="center"><font color="<%=bgclr6%>"><strong>News<</strong></font></td>
			 
            </TR>
			
          </TBODY>
			 </TABLE>

<table cellspacing=0 cellpadding=0 width="100%" border=0   style="margin-top:1px; border:<%=bgclr5%> solid <%=bgline1%>px;">
          <tbody>
       	
          <TR> 
	    <td align="center" height=30  bgcolor="<%=bgclr6%>"><FONT color=<%=bgclr7%>><strong>News</strong></FONT></td>
			 
            </TR>

            <tr> 
              <td valign="top"   > 
            <%
			 set rs=server.CreateObject("adodb.recordset")
		  rs.open "select top 10 articleid,articletitle,addname,adddate from sdx_article where lang=1 order By adddate desc",conn,1,1
			  if rs.eof and rs.bof then
			  response.write "No news"
			  else
			  i=0 
			  do while not rs.eof %>
			
              
			<%  response.write "&nbsp;กค<a href="&webdir&"/en_article_show.asp?id="&rs("articleid")&" target=_blank >"
				if len(trim(rs("articletitle")))>20 then
				response.write left(trim(rs("articletitle")),18)&"..."
				else
				response.write trim(rs("articletitle"))
				end if
				response.write "</a><br>" %>
				
				<%
				i=i+1
			  if i>=10 then exit do
			  rs.movenext
			  loop 
			  rs.close
			  set rs=nothing
			  end if%>

            </td>
            </tr>
                <TR> 
			  <td   align="center" height=5 ></td>
			 
            </TR>
          </tbody>
        </table>
 
</TD>
    </TR>
  </TBODY>
</TABLE>

