<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	 名称	:Excelファイルから商品取り込み
'	 作成日	:2020/12/15
'	 作成者	:小野
'	 目的	:
'	 概要	:
'################################################
'-->
%>
<%
main()
Sub main()

	Dim Sheet
	Dim Header
	Dim GroupCD

	Sheet = Request("Sheet")
	Header = Request("Header")
	GroupCD = Request("GroupCD")

	Dim fs, obj
	Dim ExcelDir
	Dim a, b, f1, fsize1, l1, FileName

	ExcelDir = "/" & HomeAlias & "/data/user"
	FileName = "userdata.xls"


	Dim ExcelConnection
	Dim Query
	Dim Content
	Dim Content2
	Dim rs

	ExcelConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(ExcelDir) & "\" & FileName & ";Extended Properties="
	If Header = "ON" Then
		ExcelConnection = ExcelConnection & "Excel 8.0;"
	Else
		ExcelConnection = ExcelConnection & "'Excel 8.0;HDR=NO'"
	End If
'	ExcelConnection = "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & Server.MapPath(ExcelDir) & "\" & FileName & ";"	
	Query = "select * from [" & Sheet & "]"

	Set rs = Server.CreateObject("ADODB.Connection")
	rs.ConnectionTimeout = 60
	rs.CommandTimeout    = 60
	On Error Resume Next
		Err.Clear()
		rs.Open ExcelConnection
		If Err.Description <> "" Then
			Response.Write("エラーが発生しました。<BR>選択されたファイルに異常があるようです。<br><br>")
			Response.Write("エラーコード:")
			Response.Write(Err.Description)
			Response.Write("<br><br>")
			Response.Write("<a href=""JavaScript:history.go(-1)"">戻る</a>")
			Exit Sub
		End If
		Err.Clear()
		Set Content = rs.Execute(Query)
		If Err.Description <> "" Then
			If InStr(Err.Description, Sheet & "$") > 0 Then
				Response.Write("エラーが発生しました。<BR>Excelデータ内に指定されたシートが存在しない可能性があります。")
			Else
				Response.Write("エラーが発生しました。<BR>サーバーの Microsoft Excel Driver に異常があるようです。<br><br>")
				Response.Write("エラーコード:")
				Response.Write(Err.Description)
			End If
			Response.Write("<br><br>")
			Response.Write("<a href=""JavaScript:history.go(-1)"">戻る</a>")
			Exit Sub
		End If
	On Error Goto 0

	'クエリ結果待機処理(Contentに結果が返っていないか、もしくはNothing以外の結果が返っている間ループさせる)
	'	Nothingであれば正しく「フィールド無し」の結果が返っているのでループ内処理を行わなず次へ。
	'	Nothingでない場合は (1)正しくフィールド結果が返っている (2)まだ結果が返っていない の2パターンがあり得るので
	'	(1)であればその時点でループを抜け、(2)の場合は念のためNextRecordSet()を発行してからループ先頭に戻る。
	Do While Not Content Is Nothing
		If Content.Fields.Count > 0 Then
			Exit Do
		End If
		Set Content = Content.NextRecordSet()
	Loop


	Dim TmpRow
	ReDim TmpRow(0)	'(0)は予備配列として実際の処理では捨てる
	TmpRow(UBound(TmpRow)) = ""
	Dim Bad0Row	'バッドエントリ
	ReDim Bad0Row(0)	'(0)は予備配列として実際の処理では捨てる
	Bad0Row(UBound(Bad0Row)) = ""
	Dim Bad1Row	'ユーザーID重複
	ReDim Bad1Row(0)	'(0)は予備配列として実際の処理では捨てる
	Bad1Row(UBound(Bad1Row)) = ""
	Dim Bad2Row	'リスト内ユーザーID重複
	ReDim Bad2Row(0)	'(0)は予備配列として実際の処理では捨てる
	Bad2Row(UBound(Bad2Row)) = ""
	Dim Bad3Row	'ユーザーID不正文字
	ReDim Bad3Row(0)	'(0)は予備配列として実際の処理では捨てる
	Bad3Row(UBound(Bad3Row)) = ""
	Dim Bad4Row	'ユーザーID文字数オーバー
	ReDim Bad4Row(0)	'(0)は予備配列として実際の処理では捨てる
	Bad4Row(UBound(Bad4Row)) = ""
	Dim Bad5Row	'氏名文字数オーバー
	ReDim Bad5Row(0)	'(0)は予備配列として実際の処理では捨てる
	Bad5Row(UBound(Bad5Row)) = ""
	Dim Bad6Row	'略氏名文字数オーバー
	ReDim Bad6Row(0)	'(0)は予備配列として実際の処理では捨てる
	Bad6Row(UBound(Bad6Row)) = ""
	Dim Bad7Row	'パスワード不正文字
	ReDim Bad7Row(0)	'(0)は予備配列として実際の処理では捨てる
	Bad7Row(UBound(Bad7Row)) = ""
	Dim Bad8Row	'パスワード文字数オーバー
	ReDim Bad8Row(0)	'(0)は予備配列として実際の処理では捨てる
	Bad8Row(UBound(Bad8Row)) = ""
	Dim Bad9Row	'グループ未存在
	ReDim Bad9Row(0)	'(0)は予備配列として実際の処理では捨てる
	Bad9Row(UBound(Bad9Row)) = ""
	Dim ii
	Dim jj
	Dim bCheck
	bCheck = 3
	Dim TmpValue
	Dim TmpRowValue
	Dim TmpValue2
	Dim TmpContent(5)

If Content.Fields.Count > 2 Then

	'要素を配列に変換
	Do While Not(Content.EOF Or Content.BOF)
		TmpContent(0) = Trim(ConvProhiStr("" & Content(0)))
		TmpContent(1) = Trim(ConvProhiStr("" & Content(1)))
		TmpContent(2) = Trim(ConvProhiStr(Replace("" & Content(2), ",", "")))
		TmpContent(3) = Trim(ConvProhiStr(Replace("" & Content(3), ",", "")))
'Response.Write(TmpContent(3))
		If Content.Fields.Count > 4 Then
			TmpContent(4) = Trim(ConvProhiStr("" & Content(4)))
		End If
		bCheck = "true"
		For ii = 0 to 4
			If (ii <> 3 And ii <> 4) And ("" & TmpContent(ii) = "" Or "" & TmpContent(ii) = " " Or "" & TmpContent(ii) = " ") Then	'バッドエントリ
				bCheck = 0
				Exit For
			End If
			If ii = 0 Then
				If AscLen("" & TmpContent(ii)) > 40 Then '名称文字数オーバー
					bCheck = 1
				End If
			End If
			If ii = 1 Then
				If AscLen("" & TmpContent(ii)) > 20 Then '略名称文字数オーバー
					bCheck = 2
				End If
			End If
			If ii = 2 Then
				If Not(IsNumeric("" & TmpContent(ii))) Then '定価NaN
					bCheck = 3
				End If
				If Len("" & TmpContent(ii)) > 10 Then '定価文字数オーバー
					bCheck = 4
					Exit For
				End If
			End If
			If ii = 3 Then
				If "" & TmpContent(ii) <> "" And Not(IsNumeric("" & TmpContent(ii))) Then '税率NaN
					bCheck = 5
				End If
				If "" & TmpContent(ii) <> "" And Len("" & TmpContent(ii)) > 5 Then '税率文字数オーバー
					bCheck = 6
					Exit For
				End If
			End If
			If ii = 4 Then
				If AscLen("" & TmpContent(ii)) > 40 Then 'カテゴリ文字数オーバー
					bCheck = 7
				End If
			End If
		Next
		If "" & bCheck = "true" Then
			ReDim PreServe TmpRow(UBound(TmpRow) + 1)	'配列を追加
			TmpRow(UBound(TmpRow)) = ""
			For ii = 0 to 4
				If TmpRow(UBound(TmpRow)) <> "" Then
					TmpRow(UBound(TmpRow)) = TmpRow(UBound(TmpRow)) & ","
				End If
				TmpRow(UBound(TmpRow)) = TmpRow(UBound(TmpRow)) & Replace("" & TmpContent(ii), ",", ",")
			Next
			TmpRow(UBound(TmpRow)) = TmpRow(UBound(TmpRow)) & ",dummy"
		ElseIf bCheck = 7 Then
			ReDim PreServe Bad7Row(UBound(Bad7Row) + 1)	'配列を追加(カテゴリ文字数オーバー)
			Bad7Row(UBound(Bad7Row)) = ""
			For ii = 0 to 4
				If Bad7Row(UBound(Bad7Row)) <> "" Then
					Bad7Row(UBound(Bad7Row)) = Bad7Row(UBound(Bad7Row)) & ","
				End If
				Bad7Row(UBound(Bad7Row)) = Bad7Row(UBound(Bad7Row)) & Replace("" & TmpContent(ii), ",", ",")
			Next
		ElseIf bCheck = 6 Then
			ReDim PreServe Bad6Row(UBound(Bad6Row) + 1)	'配列を追加(税率文字数オーバー)
			Bad6Row(UBound(Bad6Row)) = ""
			For ii = 0 to 4
				If Bad6Row(UBound(Bad6Row)) <> "" Then
					Bad6Row(UBound(Bad6Row)) = Bad6Row(UBound(Bad6Row)) & ","
				End If
				Bad6Row(UBound(Bad6Row)) = Bad6Row(UBound(Bad6Row)) & Replace("" & TmpContent(ii), ",", ",")
			Next
		ElseIf bCheck = 5 Then
			ReDim PreServe Bad5Row(UBound(Bad5Row) + 1)	'配列を追加(税率NaN)
			Bad5Row(UBound(Bad5Row)) = ""
			For ii = 0 to 4
				If Bad5Row(UBound(Bad5Row)) <> "" Then
					Bad5Row(UBound(Bad5Row)) = Bad5Row(UBound(Bad5Row)) & ","
				End If
				Bad5Row(UBound(Bad5Row)) = Bad5Row(UBound(Bad5Row)) & Replace("" & TmpContent(ii), ",", ",")
			Next
		ElseIf bCheck = 4 Then
			ReDim PreServe Bad4Row(UBound(Bad4Row) + 1)	'配列を追加(定価文字数オーバー)
			Bad4Row(UBound(Bad4Row)) = ""
			For ii = 0 to 4
				If Bad4Row(UBound(Bad4Row)) <> "" Then
					Bad4Row(UBound(Bad4Row)) = Bad4Row(UBound(Bad4Row)) & ","
				End If
				Bad4Row(UBound(Bad4Row)) = Bad4Row(UBound(Bad4Row)) & Replace("" & TmpContent(ii), ",", ",")
			Next
		ElseIf bCheck = 3 Then
			ReDim PreServe Bad3Row(UBound(Bad3Row) + 1)	'配列を追加(定価NaN)
			Bad3Row(UBound(Bad3Row)) = ""
			For ii = 0 to 4
				If Bad3Row(UBound(Bad3Row)) <> "" Then
					Bad3Row(UBound(Bad3Row)) = Bad3Row(UBound(Bad3Row)) & ","
				End If
				Bad3Row(UBound(Bad3Row)) = Bad3Row(UBound(Bad3Row)) & Replace("" & TmpContent(ii), ",", ",")
			Next
		ElseIf bCheck = 2 Then
			ReDim PreServe Bad2Row(UBound(Bad2Row) + 1)	'配列を追加(略名称文字数オーバー)
			Bad2Row(UBound(Bad2Row)) = ""
			For ii = 0 to 4
				If Bad2Row(UBound(Bad2Row)) <> "" Then
					Bad2Row(UBound(Bad2Row)) = Bad2Row(UBound(Bad2Row)) & ","
				End If
				Bad2Row(UBound(Bad2Row)) = Bad2Row(UBound(Bad2Row)) & Replace("" & TmpContent(ii), ",", ",")
			Next
		ElseIf bCheck = 1 Then
			ReDim PreServe Bad1Row(UBound(Bad1Row) + 1)	'配列を追加(名称文字数オーバー)
			Bad1Row(UBound(Bad1Row)) = ""
			For ii = 0 to 4
				If Bad1Row(UBound(Bad1Row)) <> "" Then
					Bad1Row(UBound(Bad1Row)) = Bad1Row(UBound(Bad1Row)) & ","
				End If
				Bad1Row(UBound(Bad1Row)) = Bad1Row(UBound(Bad1Row)) & Replace("" & TmpContent(ii), ",", ",")
			Next
		Else
			ReDim PreServe Bad0Row(UBound(Bad0Row) + 1)	'配列を追加(バッドエントリ)
			Bad0Row(UBound(Bad0Row)) = ""
			For ii = 0 to 4
				If Bad0Row(UBound(Bad0Row)) <> "" Then
					Bad0Row(UBound(Bad0Row)) = Bad0Row(UBound(Bad0Row)) & ","
				End If
				Bad0Row(UBound(Bad0Row)) = Bad0Row(UBound(Bad0Row)) & Replace("" & TmpContent(ii), ",", ",")
			Next
		End If
		Content.MoveNext
	Loop

End If

	Dim TmpCol
	Dim TmpCol2

	Response.AddHeader "Content-Type", "text/html; charset=Shift_JIS"	'文字化け対策
%>

<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 0;
-->
</SCRIPT>


<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form OnKeyDown="FormKeyDown(this)"	method="GET" name="form1" action="fm_shohin_excel_bin.asp" >
<input type="hidden" name="ExcelDir" value="<% = ExcelDir %>">
<input type="hidden" name="FileName" value="<% = FileName %>">
<input type="hidden" name="Sheet" value="<% = Sheet %>">
<input type="hidden" name="Header" value="<% = Header %>">
<input type="hidden" name="GroupCD" value="<% = GroupCD %>">


<%
	Response.Write(HtmlDesign(8))

	Response.Write(HttpL1(4))

	Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "ユーザー管理", "", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL3_2("戻る", "", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL4("ユーザー管理", "Excelデータのインポート"))

	Response.Write(HttpL5("全てのユーザーを表示しています。"))
%>


<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
	<tr>
		<td valign="top">
			<table border="0" cellpadding="5" cellspacing="0" width="100%" height="100%">
				<tr>
					<td align="CENTER" valign="MIDDLE">
						<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="15" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="680" HEIGHT="100%">
							<TR>
								<TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">
									<TABLE WIDTH="680" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%" CLASS="tx1618">
										<TR>
											<TD HEIGHT="20" VALIGN="TOP" WIDTH="780">
												<DIV ID="Layer1" STYLE="position:relative; left:0px; top:0px; width:780px; height:100%; z-index:1; border: 1px none #000000; overflow: auto;">
Excelデータファイルの取り込み・解析が終了しました。
<BR>
<BR>
現時点ではまだ商品は追加されておりません。
<BR>
以下の解析結果を最後まで確認し、問題が無ければ「商品追加」ボタンをクリックして下さい。
<BR>
<% If UBound(TmpRow) > 0 Then %>
<P>
<TABLE rules="ALL" bgcolor="#b0b0b0" border="0" cellpadding="3" cellspacing="2" width="750" CLASS="tx1416"><TBODY>
	<TR bgcolor="#FFFFCC">
		<TD COLSPAN="6">以下の商品が追加されます</TD>
	</TR>
	<TR bgcolor="#d0d0d0">
		<TD>&nbsp</TD>
		<TD>名称</TD>
		<TD>略名称</TD>
		<TD><nobr>定価</nobr></TD>
		<TD><nobr>税率</nobr></TD>
		<TD><nobr>カテゴリ</nobr></TD>
	</TR>
<%	'取得結果の表示
	For ii = 1 To UBound(TmpRow)
		TmpCol = Split(TmpRow(ii), ",")
		Response.Write("	<TR bgcolor=""#f0f0f0""><TD align=""center"">○</TD>" & vbCrLf)
		For jj = 0 to UBound(TmpCol) -1
			If jj <> 2 And jj <> 3 And TmpCol(jj) = "" Then
				Response.Write("		<TD><FONT COLOR=""#FF0000"">×××</FONT></TD>" & vbCrLf)
			Else
				Response.Write("		<TD>" & TmpCol(jj) & "</TD>" & vbCrLf)
			End If
		Next
		Response.Write("	</TR>" & vbCrLf)
	Next
%>
</TBODY></TABLE>
</P>
<% End If %>

<% If UBound(Bad0Row) > 0 Then
	bCheck = 0
	For ii = 1 To UBound(Bad0Row)
		TmpCol2 = Replace(Bad0Row(ii), ",", "")
		TmpCol2 = Replace(TmpCol2, " ", "")
		TmpCol2 = Replace(TmpCol2, " ", "")
		If TmpCol2 <> "" Then
			bCheck = 1
			Exit For
		End If
	Next

	If UBound(Bad0Row) > 0 Then
'	If bCheck = 0 Then
%>
<P>
<TABLE rules="ALL" bgcolor="#b0b0b0" border="0" cellpadding="3" cellspacing="2" width="750" CLASS="tx1416"><TBODY>
	<TR bgcolor="#FFCCCC">
		<TD COLSPAN="6">以下のエントリは必須項目に抜けがあるため追加されません</TD>
	</TR>
	<TR bgcolor="#d0d0d0">
		<TD>&nbsp</TD>
		<TD>名称</TD>
		<TD>略名称</TD>
		<TD><nobr>定価</nobr></TD>
		<TD><nobr>税率</nobr></TD>
		<TD><nobr>カテゴリ</nobr></TD>
	</TR>
<%	'取得結果の表示
	For ii = 1 To UBound(Bad0Row)
		TmpCol2 = Replace(Bad0Row(ii), ",", "")
		TmpCol2 = Replace(TmpCol2, " ", "")
		TmpCol2 = Replace(TmpCol2, " ", "")
		If TmpCol2 <> "" Then
			TmpCol = Split("dummy," & Bad0Row(ii) & ",dummy", ",")
			Response.Write("	<TR bgcolor=""#f0f0f0""><TD align=""center""><FONT COLOR=""#FF0000"">×</FONT></TD>" & vbCrLf)
			For jj = 1 to UBound(TmpCol) -1
				If jj <> 4 And jj <> 5 And TmpCol(jj) = "" Then
					Response.Write("		<TD><FONT COLOR=""#FF0000"">×××</FONT></TD>" & vbCrLf)
				Else
					Response.Write("		<TD>" & TmpCol(jj) & "</TD>" & vbCrLf)
				End If
			Next
			Response.Write("	</TR>" & vbCrLf)
		End If
	Next
%>
</TBODY></TABLE>
</P>
<%	End If %>
<% End If %>

<% If UBound(Bad1Row) > 0 Then %>
<P>
<TABLE rules="ALL" bgcolor="#b0b0b0" border="0" cellpadding="3" cellspacing="2" width="750" CLASS="tx1416"><TBODY>
	<TR bgcolor="#FFCCCC">
		<TD COLSPAN="6">以下のエントリは名称が文字数制限を越えているため追加されません</TD>
	</TR>
	<TR bgcolor="#d0d0d0">
		<TD>&nbsp</TD>
		<TD>名称</TD>
		<TD>略名称</TD>
		<TD><nobr>定価</nobr></TD>
		<TD><nobr>税率</nobr></TD>
		<TD><nobr>カテゴリ</nobr></TD>
	</TR>
<%	'取得結果の表示
	For ii = 1 To UBound(Bad1Row)
		TmpCol = Split("dummy," & Bad1Row(ii) & ",dummy", ",")
		Response.Write("	<TR bgcolor=""#f0f0f0""><TD align=""center""><FONT COLOR=""#FF0000"">×</FONT></TD>" & vbCrLf)
		For jj = 1 to UBound(TmpCol) -1
			If jj <> 4 And jj <> 5 And TmpCol(jj) = "" Then
				Response.Write("		<TD><FONT COLOR=""#FF0000"">×××</FONT></TD>" & vbCrLf)
			ElseIf jj = 1 Then
				Response.Write("		<TD><font color=""#FF0000"">" & TmpCol(jj) & "</TD>" & vbCrLf)
			Else
				Response.Write("		<TD>" & TmpCol(jj) & "</TD>" & vbCrLf)
			End If
		Next
		Response.Write("	</TR>" & vbCrLf)
	Next
%>
</TBODY></TABLE>
</P>
<% End If %>

<% If UBound(Bad2Row) > 0 Then %>
<P>
<TABLE rules="ALL" bgcolor="#b0b0b0" border="0" cellpadding="3" cellspacing="2" width="750" CLASS="tx1416"><TBODY>
	<TR bgcolor="#FFCCCC">
		<TD COLSPAN="6">以下のエントリは略名称が文字数制限を越えているため追加されません</TD>
	</TR>
	<TR bgcolor="#d0d0d0">
		<TD>&nbsp</TD>
		<TD>名称</TD>
		<TD>略名称</TD>
		<TD><nobr>定価</nobr></TD>
		<TD><nobr>税率</nobr></TD>
		<TD><nobr>カテゴリ</nobr></TD>
	</TR>
<%	'取得結果の表示
	For ii = 1 To UBound(Bad2Row)
		TmpCol = Split("dummy," & Bad2Row(ii) & ",dummy", ",")
		Response.Write("	<TR bgcolor=""#f0f0f0""><TD align=""center""><FONT COLOR=""#FF0000"">×</FONT></TD>" & vbCrLf)
		For jj = 1 to UBound(TmpCol) -1
			If jj <> 4 And jj <> 5 And TmpCol(jj) = "" Then
				Response.Write("		<TD><FONT COLOR=""#FF0000"">×××</FONT></TD>" & vbCrLf)
			ElseIf jj = 2 Then
				Response.Write("		<TD><font color=""#FF0000"">" & TmpCol(jj) & "</TD>" & vbCrLf)
			Else
				Response.Write("		<TD>" & TmpCol(jj) & "</TD>" & vbCrLf)
			End If
		Next
		Response.Write("	</TR>" & vbCrLf)
	Next
%>
</TBODY></TABLE>
</P>
<% End If %>

<% If UBound(Bad3Row) > 0 Then %>
<P>
<TABLE rules="ALL" bgcolor="#b0b0b0" border="0" cellpadding="3" cellspacing="2" width="750" CLASS="tx1416"><TBODY>
	<TR bgcolor="#FFCCCC">
		<TD COLSPAN="6">以下のエントリは定価に不正な文字が含まれるため追加されません</TD>
	</TR>
	<TR bgcolor="#d0d0d0">
		<TD>&nbsp</TD>
		<TD>名称</TD>
		<TD>略名称</TD>
		<TD><nobr>定価</nobr></TD>
		<TD><nobr>税率</nobr></TD>
		<TD><nobr>カテゴリ</nobr></TD>
	</TR>
<%	'取得結果の表示
	For ii = 1 To UBound(Bad3Row)
		TmpCol = Split("dummy," & Bad3Row(ii) & ",dummy", ",")
		Response.Write("	<TR bgcolor=""#f0f0f0""><TD align=""center""><FONT COLOR=""#FF0000"">×</FONT></TD>" & vbCrLf)
		For jj = 1 to UBound(TmpCol) -1
			If jj <> 4 And jj <> 5 And TmpCol(jj) = "" Then
				Response.Write("		<TD><FONT COLOR=""#FF0000"">×××</FONT></TD>" & vbCrLf)
			ElseIf jj = 3 Then
				Response.Write("		<TD><font color=""#FF0000"">" & TmpCol(jj) & "</TD>" & vbCrLf)
			Else
				Response.Write("		<TD>" & TmpCol(jj) & "</TD>" & vbCrLf)
			End If
		Next
		Response.Write("	</TR>" & vbCrLf)
	Next
%>
</TBODY></TABLE>
</P>
<% End If %>

<% If UBound(Bad4Row) > 0 Then %>
<P>
<TABLE rules="ALL" bgcolor="#b0b0b0" border="0" cellpadding="3" cellspacing="2" width="750" CLASS="tx1416"><TBODY>
	<TR bgcolor="#FFCCCC">
		<TD COLSPAN="6">以下のエントリは定価が桁数制限を越えているため追加されません</TD>
	</TR>
	<TR bgcolor="#d0d0d0">
		<TD>&nbsp</TD>
		<TD>名称</TD>
		<TD>略名称</TD>
		<TD><nobr>定価</nobr></TD>
		<TD><nobr>税率</nobr></TD>
		<TD><nobr>カテゴリ</nobr></TD>
	</TR>
<%	'取得結果の表示
	For ii = 1 To UBound(Bad4Row)
		TmpCol = Split("dummy," & Bad4Row(ii) & ",dummy", ",")
		Response.Write("	<TR bgcolor=""#f0f0f0""><TD align=""center""><FONT COLOR=""#FF0000"">×</FONT></TD>" & vbCrLf)
		For jj = 1 to UBound(TmpCol) -1
			If jj <> 4 And jj <> 5 And TmpCol(jj) = "" Then
				Response.Write("		<TD><FONT COLOR=""#FF0000"">×××</FONT></TD>" & vbCrLf)
			ElseIf jj = 3 Then
				Response.Write("		<TD><font color=""#FF0000"">" & TmpCol(jj) & "</TD>" & vbCrLf)
			Else
				Response.Write("		<TD>" & TmpCol(jj) & "</TD>" & vbCrLf)
			End If
		Next
		Response.Write("	</TR>" & vbCrLf)
	Next
%>
</TBODY></TABLE>
</P>
<% End If %>

<% If UBound(Bad5Row) > 0 Then %>
<P>
<TABLE rules="ALL" bgcolor="#b0b0b0" border="0" cellpadding="3" cellspacing="2" width="750" CLASS="tx1416"><TBODY>
	<TR bgcolor="#FFCCCC">
		<TD COLSPAN="6">以下のエントリは税率に不正な文字が含まれるため追加されません</TD>
	</TR>
	<TR bgcolor="#d0d0d0">
		<TD>&nbsp</TD>
		<TD>名称</TD>
		<TD>略名称</TD>
		<TD><nobr>定価</nobr></TD>
		<TD><nobr>税率</nobr></TD>
		<TD><nobr>カテゴリ</nobr></TD>
	</TR>
<%	'取得結果の表示
	For ii = 1 To UBound(Bad5Row)
		TmpCol = Split("dummy," & Bad5Row(ii) & ",dummy", ",")
		Response.Write("	<TR bgcolor=""#f0f0f0""><TD align=""center""><FONT COLOR=""#FF0000"">×</FONT></TD>" & vbCrLf)
		For jj = 1 to UBound(TmpCol) -1
			If jj <> 4 And jj <> 5 And TmpCol(jj) = "" Then
				Response.Write("		<TD><FONT COLOR=""#FF0000"">×××</FONT></TD>" & vbCrLf)
			ElseIf jj = 4 Then
				Response.Write("		<TD><font color=""#FF0000"">" & TmpCol(jj) & "</TD>" & vbCrLf)
			Else
				Response.Write("		<TD>" & TmpCol(jj) & "</TD>" & vbCrLf)
			End If
		Next
		Response.Write("	</TR>" & vbCrLf)
	Next
%>
</TBODY></TABLE>
</P>
<% End If %>

<% If UBound(Bad6Row) > 0 Then %>
<P>
<TABLE rules="ALL" bgcolor="#b0b0b0" border="0" cellpadding="3" cellspacing="2" width="750" CLASS="tx1416"><TBODY>
	<TR bgcolor="#FFCCCC">
		<TD COLSPAN="6">以下のエントリは税率が桁数制限を越えているため追加されません</TD>
	</TR>
	<TR bgcolor="#d0d0d0">
		<TD>&nbsp</TD>
		<TD>名称</TD>
		<TD>略名称</TD>
		<TD><nobr>定価</nobr></TD>
		<TD><nobr>税率</nobr></TD>
		<TD><nobr>カテゴリ</nobr></TD>
	</TR>
<%	'取得結果の表示
	For ii = 1 To UBound(Bad6Row)
		TmpCol = Split("dummy," & Bad6Row(ii) & ",dummy", ",")
		Response.Write("	<TR bgcolor=""#f0f0f0""><TD align=""center""><FONT COLOR=""#FF0000"">×</FONT></TD>" & vbCrLf)
		For jj = 1 to UBound(TmpCol) -1
			If jj <> 4 And jj <> 5 And TmpCol(jj) = "" Then
				Response.Write("		<TD><FONT COLOR=""#FF0000"">×××</FONT></TD>" & vbCrLf)
			ElseIf jj = 4 Then
				Response.Write("		<TD><font color=""#FF0000"">" & TmpCol(jj) & "</TD>" & vbCrLf)
			Else
				Response.Write("		<TD>" & TmpCol(jj) & "</TD>" & vbCrLf)
			End If
		Next
		Response.Write("	</TR>" & vbCrLf)
	Next
%>
</TBODY></TABLE>
</P>
<% End If %>

<% If UBound(Bad7Row) > 0 Then %>
<P>
<TABLE rules="ALL" bgcolor="#b0b0b0" border="0" cellpadding="3" cellspacing="2" width="750" CLASS="tx1416"><TBODY>
	<TR bgcolor="#FFCCCC">
		<TD COLSPAN="6">以下のエントリはカテゴリが文字数制限を越えているため追加されません</TD>
	</TR>
	<TR bgcolor="#d0d0d0">
		<TD>&nbsp</TD>
		<TD>名称</TD>
		<TD>略名称</TD>
		<TD><nobr>定価</nobr></TD>
		<TD><nobr>税率</nobr></TD>
		<TD><nobr>カテゴリ</nobr></TD>
	</TR>
<%	'取得結果の表示
	For ii = 1 To UBound(Bad7Row)
		TmpCol = Split("dummy," & Bad7Row(ii) & ",dummy", ",")
		Response.Write("	<TR bgcolor=""#f0f0f0""><TD align=""center""><FONT COLOR=""#FF0000"">×</FONT></TD>" & vbCrLf)
		For jj = 1 to UBound(TmpCol) -1
			If jj <> 4 And jj <> 5 And TmpCol(jj) = "" Then
				Response.Write("		<TD><FONT COLOR=""#FF0000"">×××</FONT></TD>" & vbCrLf)
			ElseIf jj = 5 Then
				Response.Write("		<TD><font color=""#FF0000"">" & TmpCol(jj) & "</TD>" & vbCrLf)
			Else
				Response.Write("		<TD>" & TmpCol(jj) & "</TD>" & vbCrLf)
			End If
		Next
		Response.Write("	</TR>" & vbCrLf)
	Next
%>
</TBODY></TABLE>
</P>
<% End If %>

<P>
<table border="0" width="100%" cellspacing="0" cellpadding="0" class="tx1618">
	<TR>
		<TD align="center">
<% If UBound(TmpRow) > 0 Then %>
			<input type="button" name="Import" value="上の条件で商品を追加する" onclick="form1.submit();">   
			<input type="button" name="Back" value="中止して戻る" onclick="tblbtn('fm_shohin_excel.asp');">
<% Else %>
			<font color="#FF0000">Excelシート内に追加可能なエントリは存在しませんでした。</font>   
			<input type="button" name="Back" value=" 戻 る " onclick="tblbtn('fm_shohin_excel.asp');">
<% End If %>
		</TD>
	</TR>
</TABLE>
</P>
<BR><BR>
												</DIV>
											</td>
										</tr>
									</table>
								</TD>
							</TR>
						</TABLE>
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>
</div>
</form>

</body>
<% = HtmlFooter %>
</html>

<%
End Sub
%>