<%@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")%>人