<%@ Language="VBScript" %> <% Option Explicit %> <% ' TimeOut判定用セッション Session( "cart_timeout" ) = "alive" %> <% '------------------------------------------------------------------------------ ' 関数名　： カテゴリリスト生成関数 ' 機能　　：カテゴリリストのＨＴＭＬを作成する。 ' 呼出形式：MakeCategorySelect(strName) ' 引数　　：strName [in] リストの名前 ' 戻り値　：なし '------------------------------------------------------------------------------ Function MakeCategorySelect(strName) Dim objCon ' コネクション Dim strSQL ' SQLバッファ Dim objRs ' レコードセット Set objCon = Server.CreateObject("ADODB.Connection") objCon.Open(CL_ACCESS_DSN) strSQL = "SELECT * FROM カテゴリ" & _ " ORDER BY カテゴリコード;" Set objRs = objCon.Execute(strSQL) With Response .Write(" " & VbCrLf ) .Write(" " ) .Write("＊未選択＊") Do While objRs.EOF <> True .Write(" " ) .Write(objRs("カテゴリ名") & VbCrLf) objRs.MoveNext Loop .Write(" " & VbCrLf) End With objRs.Close objCon.Close Set objRs = Nothing Set objCon = Nothing End Function %>

	屋号：イエローフラッグ（南町田店） 商品名：サウダーハッチ付きブックシェルフ プライス：定価\60,165→\37,590（税込） この商品への問合せはこちらから スリフトモール 地域密着型の集中レジ方式の1坪コミュニケーションモール。主にバイヤーズが主体のセレクトショップが集まった郊外型のモールで60坪〜300坪の大型店舗。古着や直輸入アウトレット家具・キッチン雑貨、コレクターズのトーイ等のショップがある。単独倉庫タイプの店舗や、ショッピングセンター内での店舗や各種商業施設等での展開。掘り出し物は間違いなくゲットでき、バイヤーの力量を感じられる。但し、まめにチェックしないといいものはすぐになくなる。