<% dim rs set rs=server.CreateObject("Adodb.recordset") rs.open "select nid,news_head,news_type from News where news_status=1 and news_type='english'",con,1,2 %>

<% if rs.recordcount<>0 then while not rs.eof%> <% rs.movenext wend end if %> ')" onMouseOver="document.getElementById('newsscrl').stop()" onMouseOut="document.getElementById('newsscrl').start()" class="newslnk"> <% response.Write(rs("news_head")) %>