アライブコーポレーションHOMEへ ショッピングカート確認
>>アンケートにご協力ください抽選で素敵なプレゼントが当たります
お知らせ
最新情報
商品ラインナップ
ご注文方法
通信販売法の表記
会社概要
お問合せ
アンケート
商品ラインナップ
ヘアケア
<% ' --- 指定されたジャンルに属する商品の一覧を表示する 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 %>
(3つ以上まとめてお買い上げの場合、消費税は当社が負担します。) <% End If If R("在庫切れ識別") = False Then %> <% If R("ID") = 102 then %> <% End if %>
サイズ:
数量:
<% 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 %>
(3つ以上まとめてお買い上げの場合消費税は当社が負担します。) <% End If If R("在庫切れ識別") = False Then %> "> "> <% If R("ID") = 102 then %> <% End if %>
サイズ:
数量:
<% End If %>
このページのトップへ戻る
ALIVE CORPORATION Co,Ltd. All rights reserved.
当ホームページに記載されている写真・記事などすべてのものは株式会社ALIVE CORPORATIONに
帰属します。 無断での転載・その他の行為はお断りいたします。