<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%>
<%
Set CN = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("database/board.mdb")
CN.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set RS = Server.CreateObject("ADODB.Recordset")
SortSql = "Select top 20 ID,end_date,homepage2,postdate,post_out_txt From 公佈欄 WHERE (post_out='是' and end_date>=#"&date&"#) or (post_out='是' and isnull(end_date)) order by ID*-1"
RS.CursorType=1
RS.LockType=1
RS.Open SortSql, CN
%>
同富國小
Principal: Tung,Hsin-Ching
School address: No.4, Tonghe Lane, Tong-Fu Village, Sinyi Township, Nantou County 55652, Taiwan, R.O.C.
Telephone:(049)2701503 Fax: (049)2702515
