<%@ 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 %>

	・専門ショッピングサイトから探す ・6つのジャンル別出店者から探す ・各店舗の個別出店者を検索 ・南町田ガレージセール ・集中レジ方式で代行してもらい売る ・自ら店頭で接客して売る ・商品撮影を代行してもらう ・自分で撮影してWEBアップ ・HIS WEBサイトと連動して売る ・直接バイヤーに交渉する ・集金代行、発送代行してもらう ・スリフトクラブ会員 ・南町田ガレージセール ・スリフトモール/スリフトリンク出店要項 ・スリフトモール「アクセル仙台店」 ・スリフトモール「ららぽーと店」 ・スリフトモール「相模大野店」 ・スリフトモール「志津店」 ・スリフトモール「南町田店」 ・スリフトモールleaps「相模大野店」 ・スリフトリンク代官山 ・H.I.S. ・代官山コレクション ・無芸塾 ・会社情報