嘉義縣中埔鄉農會

<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%> <% SQLString = "SELECT * From tb_post WHERE p_start_date <= #" & Date() & "# AND p_end_date >= #" & Date() & "# " SQLString= SQLString &" ORDER BY p_start_date DESC" Set Rs_post = Server.CreateObject("ADODB.Recordset") Rs_post.ActiveConnection = myConnString Rs_post.Source = SQLString Rs_post.CursorType = 3 Rs_post.CursorLocation = 2 Rs_post.LockType = 1 Rs_post.Open() %> 嘉義縣中埔鄉農會

<% Rowcount = 0 While NOT Rs_post.EOF AND RowCount < 5 RowCount = RowCount + 1 %> <% Rs_post.MoveNext() Wend Rs_post.close set Rs_post = Nothing %>

　

" class="in01"><%=Rs_post.Fields.Item("p_title").value%>

<%=replace(Rs_post.Fields.Item("p_start_date"), "/" , "-")%>

　

版權所有 © 2010 嘉義縣中埔鄉農會地址：60668 嘉義縣中埔鄉中埔村中正路75號 E-mail：cpc.fa@msa.hinet.net TEL：05-2532201 FAX：05-2535364

網頁設計：宇迅科技目前瀏覽人數：<%=session("counter")%>人

　