<%@LANGUAGE="VBSCRIPT" CODEPAGE="932"%> <% DIM fno dim cnt dim syu buf = server.mappath(DbName) ret = Tfc.OpenDatabase(cstr(buf)) syu = 9 Ret = Tfc.SqlClear Tfc.SqlAddBuf = "SELECT * " Tfc.SqlAddBuf = "FROM SYUBETU " Tfc.SqlAddBuf = "WHERE CD=" & syu fno = Tfc.OpenRecordSet(Tfc.Sql) buf = Tfc.Rs(fno,"商品種別名") ret = Tfc.CloseRecordset(fno) %> ハンドメイド・雑貨 - <%= buf %>
<%= buf %> もどる

<% Ret = Tfc.SqlClear Tfc.SqlAddBuf = "SELECT * " Tfc.SqlAddBuf = "FROM (SYOHIN " Tfc.SqlAddBuf = "LEFT JOIN SYUBETU ON SYOHIN.商品種別 = SYUBETU.CD) " Tfc.SqlAddBuf = "LEFT JOIN ZAIKO ON SYOHIN.在庫 = ZAIKO.CD " Tfc.SqlAddBuf = "WHERE 商品種別=" & syu Tfc.SqlAddBuf = " AND おすすめ=True" Tfc.SqlAddBuf = " ORDER BY SYOHIN.CD" fno = Tfc.OpenRecordSet(Tfc.Sql) do if Tfc.Eof(fno) then exit do %>
"> " width="128" height="96" border="0">
"><%= Tfc.Rs(fno,"商品名") %>

<% ret = Tfc.MoveNext(fno) loop ret = Tfc.CloseRecordset(fno) %>
<% Ret = Tfc.SqlClear Tfc.SqlAddBuf = "SELECT * " Tfc.SqlAddBuf = "FROM (SYOHIN " Tfc.SqlAddBuf = "LEFT JOIN SYUBETU ON SYOHIN.商品種別 = SYUBETU.CD) " Tfc.SqlAddBuf = "LEFT JOIN ZAIKO ON SYOHIN.在庫 = ZAIKO.CD " Tfc.SqlAddBuf = "WHERE 商品種別=" & syu Tfc.SqlAddBuf = " ORDER BY SYOHIN.CD" fno = Tfc.OpenRecordSet(Tfc.Sql) if not Tfc.Eof(fno) then ret = Tfc.MoveLast(fno) ret = Tfc.MoveFirst(fno) end if for cnt = 1 to Tfc.RecordCount(fno) step 4 %> <% next ret = Tfc.CloseRecordset(fno) %>
<% if not Tfc.Eof(fno) then %> ">" width="128" height="96" border="0">
"><%= Tfc.Rs(fno,"商品名") %>
"><%= Tfc.Tformat(Tfc.Rs(fno,"価格"),"#,##0円") %>(税込み) <% ret = Tfc.MoveNext(fno) end if %>
<% if not Tfc.Eof(fno) then %> ">" width="128" height="96" border="0">
"><%= Tfc.Rs(fno,"商品名") %>
"><%= Tfc.Tformat(Tfc.Rs(fno,"価格"),"#,##0円") %>(税込み) <% ret = Tfc.MoveNext(fno) end if %>
<% if not Tfc.Eof(fno) then %> ">" width="128" height="96" border="0">
"><%= Tfc.Rs(fno,"商品名") %>
"><%= Tfc.Tformat(Tfc.Rs(fno,"価格"),"#,##0円") %>(税込み) <% ret = Tfc.MoveNext(fno) end if %>
<% if not Tfc.Eof(fno) then %> ">" width="128" height="96" border="0">
"><%= Tfc.Rs(fno,"商品名") %>
"><%= Tfc.Tformat(Tfc.Rs(fno,"価格"),"#,##0円") %>(税込み) <% ret = Tfc.MoveNext(fno) end if %>