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

	スリフトモール一坪ショップの催事情報 スリフトモール一坪ショップ南町田店催事情報 スリフトモール一坪ショップアクセル仙台店催事情報 代官山コレクティブルマーケット出店概要 第1回代官山アーティストマーケット11月12日出店者ホームページ スリフトモール一坪ショップ／スリフトリンクで行われるイベントやキャンペーン、 得々情報などがありましたら、ＰＲコピーと写真をお送り下さい。内容により、 適当な箇所に掲載させていただきます。 お送り先 スリフトリンクドットコム株式会社　代表取締役　渡辺重己 TEL　03-5457-3551　FAX　03-5457-3552 e-mail watanabe@thriftlink.com 　URL http://www.thriftlink.com　　 【TOP】