<% DB = "../../DB/landis_eng.mdb" %>

<% SQL = "Select * From News Where News_Class = '«È©Ð«P¾P' Order By News_Postday Desc" Set rs = GetMdbRecordset(DB, SQL) If rs is Nothing Then Response.Write "¶}±Ò¸ê®Æ®w¥¢±Ñ"&SQL&DB Response.End End If If Not rs.EOF Then %> <% no = 0 While Not rs.EOF If no mod 2 = 0 Then bg= "#F5D09D" Else bg= "#F9DFBC" End If If no < 10 Then %> <% End If no = no + 1 rs.MoveNext Wend rs.Close Set rs = Nothing %> <%=rs(2)%> <%=rs(5)%> ~ <%=rs(6)%>   <% Else Response.Write " Now, No Data! " End If %> <% SQL = "Select * From News Where News_Class = 'À\¶¼«P¾P' Order By News_Postday Desc" Set rs = GetMdbRecordset(DB, SQL) If rs is Nothing Then Response.Write "¶}±Ò¸ê®Æ®w¥¢±Ñ"&SQL&DB Response.End End If If Not rs.EOF Then %> <% no = 0 While Not rs.EOF If no mod 2 = 0 Then bg= "#D3998E" Else bg= "#E8C9C2" End If If no < 10 Then %> <% End If no = no + 1 rs.MoveNext Wend rs.Close Set rs = Nothing %> <%=rs(2)%> <%=rs(5)%> ~ <%=rs(6)%>   <% Else Response.Write " Now, No Data! " End If %>   <% SQL = "Select * From News Where News_Class = '¥ÃÂ×´Ì·s»D' Order By News_Postday Desc" Set rs = GetMdbRecordset(DB, SQL) If rs is Nothing Then Response.Write "¶}±Ò¸ê®Æ®w¥¢±Ñ"&SQL&DB Response.End End If If Not rs.EOF Then %> <% no = 0 While Not rs.EOF If no mod 2 = 0 Then bg= "#F5D09D" Else bg= "#F9DFBC" End If If no < 10 Then %> <% End If no = no + 1 rs.MoveNext Wend rs.Close Set rs = Nothing %> <%=rs(2)%> <%=rs(5)%> ~ <%=rs(6)%>   <% Else Response.Write "No Data!" End If %> .....9, Taichung Kang Road, Sec 2, Taichung 407, Taiwan .....TEL 886-4-2326-8008 / FAX 886-4-2326-8060 Copyright (c) 2002 Tempus Hotel Taichung Designed & Programmer By FADNOR Interactive Media Inc.