%@ 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
%>
挽臼・石臼 販売 | 粉挽き臼の ギャラリーひきうす |
|
|
癒しと健康に「粉挽き石臼」
小魚など乾物を粉挽きして、自分だけの健康ふりかけや、
緑茶を粉挽きして、より有効成分を飲用してはいかがですか?
また自分で挽いたそば粉から、こだわりの蕎麦を打つなど日本の癒しを味わえます。
岐阜・愛知産のみかげ石で本磨加工の為、艶良く清掃も楽で衛生的です。 |
 |
<%IF DictTmp2(0,0)="1" Then%>
<%for j=0 to Ubound(DictTmp2,2)%>
)%>.gif) |
<% 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%> |
<%next%>
<%else%>
現在、表示該当ありません。 |
<%END IF%>
|
|
|
|
|