>>アンケートにご協力ください抽選で素敵なプレゼントが当たります

<% ' --- 指定されたジャンルに属する商品の一覧を表示する Set C = Server.CreateObject("ADODB.Connection") Set R = Server.CreateObject("ADODB.Recordset") C.Open "Provider=SQLOLEDB;Server=MSSQL2000A;Database=alive-corp;uid=alive-corp;pwd=wlh2j+bm" imgdir = "../images/" R.Open "SELECT 商品.*,ジャンル名 FROM 商品 INNER JOIN ジャンル ON 商品.ジャンルID = ジャンル.ID WHERE 表示識別 = 1 AND ジャンルID = 1 ORDER BY 表示順", C, 0, 1 If Not R.EOF Then While Not R.EOF %> "> "> <% R.MoveNext If Not R.EOF Then %> <% End If Wend End If R.Close %> .asp">" alt="<% =R("商品名") %>" width="150" height="188" border="0" class="thumb150"> <% =R("商品名") %>　<% =R("容量") %>  <% =FormatNumber(R("価格"),0) %>円 （税込み） .asp"> <% =R("キャプション") %> <% =R("商品説明") %> <% If R("ID") = 4 OR R("ID") = 7 Then %> （３つ以上まとめてお買い上げの場合、消費税は当社が負担します。） <% End If If R("在庫切れ識別") = False Then %> <% If R("ID") = 102 then %> <% End if %> サイズ： S〜M（22〜24cm） M〜L（23〜25cm） 数量： 1 2 3 4 5 6 7 8 9 10 <% End If %> <% ' --- 指定されたジャンルに属する商品の一覧を表示する R.Open "SELECT 商品.*,ジャンル名 FROM 商品 INNER JOIN ジャンル ON 商品.ジャンルID = ジャンル.ID WHERE 表示識別 = 1 AND ジャンルID = 2 ORDER BY 表示順", C, 0, 1 If Not R.EOF Then While Not R.EOF %> <% R.MoveNext If Not R.EOF Then %> <% End If Wend End If R.Close C.Close Set R = Nothing Set C = Nothing %> .asp">" alt="<% =R("商品名") %>" width="150" height="188" border="0" class="thumb150"> <% =R("商品名") %>　<% =R("容量") %> <% =FormatNumber(R("価格"),0) %>円 （税込み） .asp"> <% =R("キャプション") %> <% =R("商品説明") %> <% If R("ID") = 4 OR R("ID") = 7 Then %> （３つ以上まとめてお買い上げの場合消費税は当社が負担します。） <% End If If R("在庫切れ識別") = False Then %> "> "> <% If R("ID") = 102 then %> <% End if %> サイズ： S〜M（22〜24cm） M〜L（23〜25cm） 数量： 1 2 3 4 5 6 7 8 9 10 <% End If %> ALIVE CORPORATION Co,Ltd. All rights reserved. 当ホームページに記載されている写真・記事などすべてのものは株式会社ALIVE CORPORATIONに 帰属します。無断での転載・その他の行為はお断りいたします。