|
|
 |
|
<%
Set NewsRs = Server.CreateObject("ADODB.Recordset")
NewsSql = "SELECT no, title, adate, flag2 from tbl_News where flag='1' order by no desc"
NewsRs.open NewsSql,dbcon,3
if Not NewsRs.EOF and Not NewsRs.BOF then
i=1
DO WHILE Not NewsRs.EOF
no = Trim(NewsRs("no"))
title = Trim(NewsRs("title"))
adate = Trim(NewsRs("adate"))
%>
<%
If Len(title) > 30 Then
title = Mid(title,1,30) & "..."
END IF
%>
<%=title%> <% if NewsRs("flag2")= "1" then %>
new<% end if %> |
|
|
|
<%
i = i + 1
NewsRs.MoveNext
LOOP
end if
NewsRs.Close
Set NewsRs=Nothing
%>
|
|
