<% rem ********SEO対策のメイン 各ページ毎、ここに文字を入れていく************************** '検索エンジン向けの簡易ページ説明 metaDescription = "EC 豊作プロジェクト" '検索エンジン向けのキーワード指定 metaKeywords = "EC 豊作プロジェクト" 'ページのタイトル pageTitle = "ECサイト構築ソフト、ショッピングカートの豊作くん News" 'ページの見出し pageFinding = "ECサイト構築ソフト、ショッピングカートの豊作くん News" rem ********SEO対策のメイン 各ページ毎、ここに文字を入れていく************************** 'News の取得*********************************************** dim dicNews,rsNews,sqlNews Set dicNews = Server.CreateObject("Scripting.Dictionary") Set rsNews = Server.CreateObject("ADODB.RECORDSET") sqlNews = "" if len(PostGet("YY")) <> 0 Then else PostGet("YY") = Year(date()) end if sqlNews = "select [key],YMD,TITLEs from News " & _ "where StYMD <= '"&Now&"' and EnYMD >= '"&Now&"'" & _ " and Year(YMD) = '"&PostGet("YY")&"'" & _ " order by YMD desc;" call getRs(rsNews,db,sqlNews,dicNews) SET rsNews = NOTHING '/News の取得*********************************************** 'News 年 の取得*********************************************** dim dicNewsYY,rsNewsYY,sqlNewsYY Set dicNewsYY = Server.CreateObject("Scripting.Dictionary") Set rsNewsYY = Server.CreateObject("ADODB.RECORDSET") sqlNewsYY = "" sqlNewsYY = "select distinct Year(YMD) as YYYY from News order by YYYY desc;" call getRs(rsNewsYY,db,sqlNewsYY,dicNewsYY) SET rsNewsYY = NOTHING '/News 年 の取得*********************************************** Set dicPressYY = Server.CreateObject("Scripting.Dictionary") %>
TOP > <%=PostGet("YY")%>年 NEWS一覧

<%=PostGet("YY")%>年 NEWS一覧

<%for iNews = 1 to dicNews("v")%> <%if (dicNews("YMD"&iNews) > (date() - newMarkDay)) Then%>
<%end if%>

.html"><%=dicNews("YMD"&iNews)%>

.html"><%=dicNews("TITLEs"&iNews)%>

<%Next%>