%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim Rs1
Dim Rs1_numRows
Set Rs1 = Server.CreateObject("ADODB.Recordset")
Rs1.ActiveConnection = MM_connwave_STRING
Flag = Trim(Request.QueryString("Flag"))
if Flag <> "all" then
Rs1.Source = "SELECT top 7 * FROM wave WHERE newsDate = #"&Year(Now())&"-"&Month(Now())&"-"&Day(Now())&"# ORDER BY newsID DESC"
else
Rs1.Source = "SELECT FROM wave WHERE newsDate = #"&Year(Now())&"-"&Month(Now())&"-"&Day(Now())&"# ORDER BY newsID DESC"
end if
Rs1.CursorType = 0
Rs1.CursorLocation = 2
Rs1.LockType = 1
Rs1.Open()
Rs1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 7
Repeat1__index = 0
Rs1_numRows = Rs1_numRows + Repeat1__numRows
%>