Excelデータファイルの取り込み・解析が終了しました。

現時点ではまだユーザーは追加されておりません。
以下の解析結果を最後まで確認し、問題が無ければ「ユーザー追加」ボタンをクリックして下さい。
<% If UBound(TmpRow) > 0 Then %>

<% '取得結果の表示 For ii = 1 To UBound(TmpRow) TmpCol = Split(TmpRow(ii), ",") Response.Write(" " & vbCrLf) For jj = 0 to UBound(TmpCol) -1 If jj <> 2 And jj <> 3 And TmpCol(jj) = "" Then Response.Write(" " & vbCrLf) Else Response.Write(" " & vbCrLf) End If Next Response.Write(" " & vbCrLf) Next %>

以下のユーザーが追加されます
	ユーザーID	氏名	略氏名（捺印）	パスワード
○	×××	" & TmpCol(jj) & "

<% 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 bCheck = 1 Then %>

<% '取得結果の表示 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(" " & vbCrLf) For jj = 1 to UBound(TmpCol) -1 If jj <> 3 And jj <> 4 And TmpCol(jj) = "" Then Response.Write(" " & vbCrLf) Else Response.Write(" " & vbCrLf) End If Next Response.Write(" " & vbCrLf) End If Next %>

以下のエントリは必須項目に抜けがあるため追加されません
	ユーザーID	氏名	略氏名（捺印）	パスワード
×	×××	" & TmpCol(jj) & "

<% End If %> <% End If %> <% If UBound(Bad1Row) > 0 Then %>

<% '取得結果の表示 For ii = 1 To UBound(Bad1Row) TmpCol = Split("dummy," & Bad1Row(ii) & ",dummy", ",") Response.Write(" " & vbCrLf) For jj = 1 to UBound(TmpCol) -1 If jj <> 3 And jj <> 4 And TmpCol(jj) = "" Then Response.Write(" " & vbCrLf) ElseIf jj = 1 Then Response.Write(" " & vbCrLf) Else Response.Write(" " & vbCrLf) End If Next Response.Write(" " & vbCrLf) Next %>

以下のエントリは既存のユーザーIDと重複するため追加されません
	ユーザーID	氏名	略氏名（捺印）	パスワード
×	×××	" & TmpCol(jj) & "	" & TmpCol(jj) & "

<% End If %> <% If UBound(Bad2Row) > 0 Then %>

<% '取得結果の表示 For ii = 1 To UBound(Bad2Row) TmpCol = Split("dummy," & Bad2Row(ii) & ",dummy", ",") Response.Write(" " & vbCrLf) For jj = 1 to UBound(TmpCol) -1 If jj <> 3 And jj <> 4 And TmpCol(jj) = "" Then Response.Write(" " & vbCrLf) ElseIf jj = 1 Then Response.Write(" " & vbCrLf) Else Response.Write(" " & vbCrLf) End If Next Response.Write(" " & vbCrLf) Next %>

以下のエントリはリスト内でユーザーIDが重複しているため追加されません
	ユーザーID	氏名	略氏名（捺印）	パスワード
×	×××	" & TmpCol(jj) & "	" & TmpCol(jj) & "

<% End If %> <% If UBound(Bad3Row) > 0 Then %>

<% '取得結果の表示 For ii = 1 To UBound(Bad3Row) TmpCol = Split("dummy," & Bad3Row(ii) & ",dummy", ",") Response.Write(" " & vbCrLf) For jj = 1 to UBound(TmpCol) -1 If jj <> 3 And jj <> 4 And TmpCol(jj) = "" Then Response.Write(" " & vbCrLf) ElseIf jj = 1 Then Response.Write(" " & vbCrLf) Else Response.Write(" " & vbCrLf) End If Next Response.Write(" " & vbCrLf) Next %>

以下のエントリはユーザーIDに不正な文字が含まれるため追加されません
	ユーザーID	氏名	略氏名（捺印）	パスワード
×	×××	" & TmpCol(jj) & "	" & TmpCol(jj) & "

<% End If %> <% If UBound(Bad4Row) > 0 Then %>

<% '取得結果の表示 For ii = 1 To UBound(Bad4Row) TmpCol = Split("dummy," & Bad4Row(ii) & ",dummy", ",") Response.Write(" " & vbCrLf) For jj = 1 to UBound(TmpCol) -1 If jj <> 3 And jj <> 4 And TmpCol(jj) = "" Then Response.Write(" " & vbCrLf) ElseIf jj = 1 Then Response.Write(" " & vbCrLf) Else Response.Write(" " & vbCrLf) End If Next Response.Write(" " & vbCrLf) Next %>

以下のエントリはユーザーIDが文字数制限を越えているため追加されません
	ユーザーID	氏名	略氏名（捺印）	パスワード
×	×××	" & TmpCol(jj) & "	" & TmpCol(jj) & "

<% End If %> <% If UBound(Bad5Row) > 0 Then %>

<% '取得結果の表示 For ii = 1 To UBound(Bad5Row) TmpCol = Split("dummy," & Bad5Row(ii) & ",dummy", ",") Response.Write(" " & vbCrLf) For jj = 1 to UBound(TmpCol) -1 If jj <> 3 And jj <> 4 And TmpCol(jj) = "" Then Response.Write(" " & vbCrLf) ElseIf jj = 2 Then Response.Write(" " & vbCrLf) Else Response.Write(" " & vbCrLf) End If Next Response.Write(" " & vbCrLf) Next %>

以下のエントリは氏名が文字数制限を越えているため追加されません
	ユーザーID	氏名	略氏名（捺印）	パスワード
×	×××	" & TmpCol(jj) & "	" & TmpCol(jj) & "

<% End If %> <% If UBound(Bad6Row) > 0 Then %>

<% '取得結果の表示 For ii = 1 To UBound(Bad6Row) TmpCol = Split("dummy," & Bad6Row(ii) & ",dummy", ",") Response.Write(" " & vbCrLf) For jj = 1 to UBound(TmpCol) -1 If jj <> 3 And jj <> 4 And TmpCol(jj) = "" Then Response.Write(" " & vbCrLf) ElseIf jj = 3 Then Response.Write(" " & vbCrLf) Else Response.Write(" " & vbCrLf) End If Next Response.Write(" " & vbCrLf) Next %>

以下のエントリは略氏名が文字数制限を越えているため追加されません
	ユーザーID	氏名	略氏名（捺印）	パスワード
×	×××	" & TmpCol(jj) & "	" & TmpCol(jj) & "

<% End If %> <% If UBound(Bad7Row) > 0 Then %>

<% '取得結果の表示 For ii = 1 To UBound(Bad7Row) TmpCol = Split("dummy," & Bad7Row(ii) & ",dummy", ",") Response.Write(" " & vbCrLf) For jj = 1 to UBound(TmpCol) -1 If jj <> 3 And jj <> 4 And TmpCol(jj) = "" Then Response.Write(" " & vbCrLf) ElseIf jj = 4 Then Response.Write(" " & vbCrLf) Else Response.Write(" " & vbCrLf) End If Next Response.Write(" " & vbCrLf) Next %>

以下のエントリはパスワードに不正な文字が含まれるため追加されません
	ユーザーID	氏名	略氏名（捺印）	パスワード
×	×××	" & TmpCol(jj) & "	" & TmpCol(jj) & "

<% End If %> <% If UBound(Bad8Row) > 0 Then %>

<% '取得結果の表示 For ii = 1 To UBound(Bad8Row) TmpCol = Split("dummy," & Bad8Row(ii) & ",dummy", ",") Response.Write(" " & vbCrLf) For jj = 1 to UBound(TmpCol) -1 If jj <> 3 And jj <> 4 And TmpCol(jj) = "" Then Response.Write(" " & vbCrLf) ElseIf jj = 4 Then Response.Write(" " & vbCrLf) Else Response.Write(" " & vbCrLf) End If Next Response.Write(" " & vbCrLf) Next %>

以下のエントリはパスワードが文字数制限を越えているため追加されません
	ユーザーID	氏名	略氏名（捺印）	パスワード
×	×××	" & TmpCol(jj) & "	" & TmpCol(jj) & "

<% End If %>

<% If UBound(TmpRow) > 0 Then %> 　　　 <% Else %> Excelシート内に追加可能なエントリは存在しませんでした。　　　 <% End If %>