<%
dim sqlWord as String="select top 7 * from news where focusnews=true order by newsid desc"
dim mycmdWord as oledbcommand=new oledbcommand(sqlWord,myconn)
dim myreaderWord as oledbdatareader=mycmdWord.executereader()
%>
<td bgcolor="" style="WORD-WRAP: break-word" class="news">
<%
Dim WordNextResult As Boolean = True
Do Until Not WordNextResult
Do While myReaderWord.Read()
%><a href="shownews.aspx?newsid=<%=myReaderWord.item("newsid")%>"><%=myReaderWord.item("title")%></a>
<%
Loop
WordNextResult = myReaderWord.NextResult()
Loop
myReaderWord.close()
%>