<%
' **********************************************************
' 条件文字列の処理
' **********************************************************
Function SetCond( strCond )

	if strCond = "" then
		strCond = strCond & " where "
	else
		strCond = strCond & " and "
	end if

End Function

' **********************************************************
' データ読出し
' **********************************************************
Function GetData( )

	Query = "select * from 商品分類マスタ"
	strCond = ""

	if MyData("In1Cond") <> "" then
		Call SetCond( strCond )
		strCond = strCond & "名称 like '%" & MyData("In1Cond") & "%'"
	end if

	if MyData("In1Cond2") <> "" then
		Call SetCond( strCond )
		strCond = strCond & "left(商品分類,1) = " & Ss(MyData("In1Cond2"))
	end if

	Call DBGet( Cn, Rs, Query & strCond, false )

	Do While not DBEof( Rs )
		Call EditQueryData( )
		Rs.MoveNext
	Loop

End Function

' **********************************************************
' データベースデータの編集
' **********************************************************
Function EditQueryData(  )

	OutData = OutData & "<TR>"

	OutData = OutData & "<TD class=MyCell>"
	OutData = OutData &  Rs.Fields("商品分類").Value
	OutData = OutData & "</TD>"

	OutData = OutData & "<TD class=MyCell>"
	OutData = OutData &  Rs.Fields("名称").Value
	OutData = OutData & "</TD>"

	OutData = OutData & "</TR>"

End Function

' **********************************************************
' VIEW の編集
' **********************************************************
Function EditDataHead( )

	Query = "select コード,名称 from コード名称マスタ"
	Query = Query & " where 区分 = 5 order by コード"
	OptionList = CreateOption( Cn, Rs, "In1Cond2", Query )

End Function

' **********************************************************
' VIEW2 の編集
' **********************************************************
Function EditDataBody( )


End Function

%>