<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%>
<%
Dim rsNews
Dim rsNews_numRows
Set rsNews = Server.CreateObject("ADODB.Recordset")
rsNews.ActiveConnection = MM_caao_STRING
rsNews.Source = "SELECT * FROM News ORDER BY itemNo DESC"
rsNews.CursorType = 0
rsNews.CursorLocation = 2
rsNews.LockType = 1
rsNews.Open()
rsNews_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rsNews_numRows = rsNews_numRows + Repeat1__numRows
%>
C A A O
¤é´Á
¥DÃD
<% i=0 %>
<%
While ((Repeat1__numRows <> 0) AND (NOT rsNews.EOF))
%>
<%
if i mod 2 = 0 then
setBGcolor="bgcolor=#F2E8DF"
else
setBGcolor=""
end if
%>
