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

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

	if MyData("In1Meisyo") <> "" then
		Query = Query & " where 名称 like '%" & MyData("In1Meisyo") & "%'"
	end if

	Call DBGet( Cn, Rs, Query, false )

	OutData = ""
	bFirst = true
	nRow = 0

	Do While not DBEof( Rs )

		' 初回ヘッダー印刷
		if bFirst then
			bFirst = false
			Call HeadPrint()
		end if

		' 改頁ヘッダー印刷
		if nRow > nMax then
			OutData = OutData & "</PRE>"
			OutData = OutData & "<PRE style='page-break-before:always'>"
			OutData = OutData & vbCrLf
			Call HeadPrint()
		end if

		Call DetailPrint( )
		Rs.MoveNext

	Loop

End Function

' **********************************************************
' ヘッダ出力
' **********************************************************
Function HeadPrint(  )

	OutData = OutData & String( 25, " " )
	OutData = OutData & "＊＊ 商品分類一覧 ＊＊" & vbCrLf
	OutData = OutData & "商品分類 名  称" & vbCrLf
	OutData = OutData & String( 80, "-" ) & vbCrLf

	nRow = 4
		
End Function

' **********************************************************
' 1行出力
' **********************************************************
Function DetailPrint( )

	OutData = OutData & Rs.Fields("商品分類").Value & "      "
	OutData = OutData & Rs.Fields("名称").Value & vbCrLf

	nRow = nRow + 1

End Function


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


End Function

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


End Function

%>