<%@ Language="VBSCRIPT"%> <%Response.Expires= -1%> <% ASPName = "index.asp" MODE=Request("MODE") YYYY=Request("YYYY") MM=Request("MM") IF Isdate(YYYY & "/" & MM) Then YYYY= Year(YYYY & "/" & MM) MM= Month(YYYY & "/" & MM) ELSE YYYY= Year(date()) MM= Month(date()) END IF IF MODE="PREV" Then YYYYMM = Dateadd("m",-1,YYYY & "/" & MM) ELSEIF MODE="NEXT" Then YYYYMM = Dateadd("m",1,YYYY & "/" & MM) else YYYYMM = YYYY & "/" & MM END IF YYYY= Right("0000" & Year(YYYYMM),4) MM= Right("00" & Month(YYYYMM),2) ConnectDB J=0 SQL = "SELECT T_NEWS.ID, T_NEWS.TITLE, T_NEWS.NDATE, T_NEWS.TITLE_ONLY, T_NEWS.URL1, T_NEWS.URL2, T_NEWS.DKBN, Count(T_NEWS_COMMENT.ID) AS IDのカウント" SQL = SQL &" FROM T_NEWS_COMMENT RIGHT JOIN T_NEWS ON T_NEWS_COMMENT.ID = T_NEWS.ID" SQL=SQL & " WHERE (((T_NEWS.DEL1)=0) AND ((T_NEWS.DEL2)=0))" SQL = SQL & " GROUP BY T_NEWS.ID, T_NEWS.TITLE, T_NEWS.NDATE, T_NEWS.TITLE_ONLY, T_NEWS.URL1, T_NEWS.URL2, T_NEWS.DKBN" SQL = SQL & " ORDER BY T_NEWS.NDATE DESC , T_NEWS.ID" Set RST = Session("conObj").Execute( SQL ) REDIM DictTmp2(8,0) DO UNTIL RST.EOF Redim Preserve DictTmp2(8,J) DictTmp2(0,J)="1" DictTmp2(1,J)=RST("ID") DictTmp2(2,J)=RST("TITLE") DictTmp2(3,J)=RST("IDのカウント") DictTmp2(4,J)=RST("NDATE") DictTmp2(5,J)=RST("TITLE_ONLY") DictTmp2(6,J)=RST("URL1") DictTmp2(7,J)=RST("URL2") DictTmp2(8,J)=RST("DKBN") Bytecut DictTmp2(2,J),50 TITLE = TITLE & "..." J = J + 1 RST.MOVENEXT if j>6 then exit do end if LOOP '&response.end if j=0 then DictTmp2(0,J)="0" end if RST.close set rst=nothing Session("conObj").close set Session("conObj")=nothing %> 挽臼・石臼 販売 | 粉挽き臼の ギャラリーひきうす |
コンテンツ
粉挽き石臼とは
商品のご紹介
お買物について
送料について
ギャラリーニュース

癒しと健康に「粉挽き石臼」
小魚など乾物を粉挽きして、自分だけの健康ふりかけや、
緑茶を粉挽きして、より有効成分を飲用してはいかがですか?
また自分で挽いたそば粉から、こだわりの蕎麦を打つなど日本の癒しを味わえます。
岐阜・愛知産のみかげ石で本磨加工の為、艶良く清掃も楽で衛生的です。

送料なんと1,790円!
<%IF DictTmp2(0,0)="1" Then%> <%for j=0 to Ubound(DictTmp2,2)%> <%next%> <%else%> <%END IF%>
<%=DALT(DictTmp2(8,J))%> <% select case DictTmp2(5,J) %> <% case 0 %> <%=MID(DictTmp2(4,J),1,10)%>:<%=DictTmp2(2,J)%> comment:<%=DictTmp2(3,J)%> <% case 1 %> <%=MID(DictTmp2(4,J),1,10)%>:<%=DictTmp2(2,J)%> <% case 2 %> <%if DictTmp2(7,J)<>"" THEN %> <%=MID(DictTmp2(4,J),1,10)%>:<%=DictTmp2(2,J)%> <%ELSEif DictTmp2(6,J)<>"" THEN %> <%=MID(DictTmp2(4,J),1,10)%>:<%=DictTmp2(2,J)%> <%ELSE%> <%end if%> <%END select%>

現在、表示該当ありません。
特集:石臼ライフ 特集:粉挽き道場


 
ホーム|-|特集:石臼ライフ特集:粉挽き道場ギャラリーニュース
粉挽き石臼とは商品のご紹介ご購入受付フォームお買物について送料について
法規に基づく表示プライバシーポリシー免責事項関連リンク集