<%@ Language="VBScript" %>
<% Option Explicit %>
一坪ショップのthriftlink.com
<%
' 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)
End With
objRs.Close
objCon.Close
Set objRs = Nothing
Set objCon = Nothing
End Function
%>
