<%@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 %>

<% if session("login")<>"" and session("login")<>"NotFound" and session("login")<>"WrongPass" then %> <% end if %>

<% if session("login")<>"" and session("login")<>"NotFound" and session("login")<>"WrongPass" then %> <% else %> <% end if %> <% if session("login")<>"" and session("login")<>"NotFound" and session("login")<>"WrongPass" then %> 慶 祝 中 國 委 托 公 証 人 25 周 年 活 動 慶祝酒會及聚餐 25周年紀念郵票 會徽系列精品 紀念特刊 <% else %> 慶 祝 中 國 委 托 公 証 人 25 周 年 活 動 慶祝酒會及聚餐 25周年紀念郵票 會徽系列精品 紀念特刊 <% end if %> <% i=0 %> <% While ((Repeat1__numRows <> 0) AND (NOT rsNews.EOF)) %> <% if i mod 2 = 0 then setBGcolor="bgcolor=#F2E8DF" else setBGcolor="" end if %> class="TableContent"> <% i=i+1 %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsNews.MoveNext() Wend %> 日期 主題 <%=(rsNews.Fields.Item("NewsDate").Value)%> <% if session("login")<>"" and session("login")<>"NotFound" and session("login")<>"WrongPass" then if trim(rsNews.Fields.Item("DetailsURL").Value) <>"" then if right(trim(rsNews.Fields.Item("DetailsURL").Value),3)="pdf" then response.write("") end if if right(trim(rsNews.Fields.Item("DetailsURL").Value),3)="asp" then response.write("") end if if len(trim(rsNews.Fields.Item("DetailsURL").Value))=3 then response.write("") end if end if else if trim(rsNews.Fields.Item("DetailsURL").Value) <>"" then if right(trim(rsNews.Fields.Item("DetailsURL").Value),3)="pdf" then 'response.write("") end if if right(trim(rsNews.Fields.Item("DetailsURL").Value),3)="asp" then response.write("") end if if len(trim(rsNews.Fields.Item("DetailsURL").Value))=3 then 'response.write("") end if end if end if %> <%=(rsNews.Fields.Item("Contents").Value)%> <% if session("login")<>"" and session("login")<>"NotFound" and session("login")<>"WrongPass" then if trim(rsNews.Fields.Item("DetailsURL").Value) <>"" then if right(trim(rsNews.Fields.Item("DetailsURL").Value),3)="pdf" then response.write(""" then if right(trim(rsNews.Fields.Item("DetailsURL").Value),3)="pdf" then 'response.write("") end if if right(trim(rsNews.Fields.Item("DetailsURL").Value),3)="asp" then response.write("") end if end if end if %>

<% rsNews.Close() Set rsNews = Nothing %>