<!-- #include file="./include.asp" -->
<%
main()
Sub main()

	If Not(InternetCheck()) Then
		Exit Sub
	End If
'	If Not(VisitorCheck()) Then
'		Exit Sub
'	End If
'Response.Write(GB_VisitorID)
'Exit Sub

	Dim LoginID
	LoginID = Replace(Request("LoginID"), "'", "")
	Dim Password
	Password = Replace(Request("Password"), "'", "")
	Dim Shimei
	Shimei = Replace(Request("Shimei"), "'", "")

	Dim Mode
	Mode = Replace(Request("Mode"), "'", "")

	Dim Mail
	Mail = Replace(Request("Mail"), "'", "")

'Response.Write(Mail)
'Exit Sub

	Dim ErrFlg
	ErrFlg = 0

	Dim Query
	Dim Content

	If LoginID <> "" Then
		If Mode = "2" Then
			'新規
			Query = ""
			Query = Query & "  "
			Query = Query & " SELECT * "
			Query = Query & " FROM TMビジター "
			Query = Query & " WHERE ログインID = '" & LoginID & "' "
			Query = Query & " 	AND パスワード = '" & Password & "' "
			Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
			If Not(Content.BOF Or Content.EOF) Then
				ErrFlg = 2 'ログインID重複エラー
			Else
				Query = "exec SPMビジター作成 '" & Year(Now) & Right("0" & Month(Now), 2) & Right("0" & Day(Now), 2) & "'"
				Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
				If Not(Content.BOF Or Content.EOF) Then
					'セッションに代入（自動ログイン動作）
					Session("ECMallVisitorID") = Content.Fields(0) & Right("000000" & Content.Fields(1), 7)
					Session("ECMallUserID") = LoginID
					Session("ECMallPassword") = Password
					GB_VisitorID = Session("ECMallVisitorID")
					GB_UserID = Session("ECMallUserID")
					GB_Password = Session("ECMallPassword")
					Query = ""
					Query = Query & "  "
					Query = Query & " UPDATE TMビジター "
					Query = Query & " SET ログインID = '" & LoginID & "' "
					Query = Query & " 	, パスワード = '" & Password & "' "
					Query = Query & " WHERE ビジターYMD = '" & Content.Fields(0) & "' "
					Query = Query & " 	AND ビジターID = " & Content.Fields(1) & " "
					Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
					Query = ""
					Query = Query & "  "
					Query = Query & " SELECT * "
					Query = Query & " FROM TMログイン "
					Query = Query & " WHERE メールアドレス = '" & LoginID & "' "
					Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
					If Content.BOF Or Content.EOF Then
						Query = ""
						Query = Query & "  "
						Query = Query & " INSERT INTO TMログイン (メールアドレス, パスワード, 氏名, 登録日時) "
						Query = Query & " VALUES ('" & LoginID & "', '" & Password & "', '" & Shimei & "', GETDATE()) "
						Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
					End If
					'ビジターログインに飛ぶ
					Response.Redirect("" & HomeAliasSL & "visitor_bin.asp?LoginID=" & LoginID & "&Password=" & Password & "&Mail=" & Mail)
					Exit Sub
				End If
			End If
		Else
			Query = ""
			Query = Query & "  "
			Query = Query & " SELECT * "
			Query = Query & " FROM TMビジター "
			Query = Query & " WHERE ログインID = '" & LoginID & "' "
			Query = Query & " 	AND パスワード = '" & Password & "' "
			Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
			If Not(Content.BOF Or Content.EOF) Then
				'ビジターログイン
				Session("ECMallVisitorID") = Content.Fields("ビジターYMD") & Right("000000" & Content.Fields("ビジターID"), 7)
				Session("ECMallUserID") = LoginID
				Session("ECMallPassword") = Password
				GB_VisitorID = Session("ECMallVisitorID")
				GB_UserID = Session("ECMallUserID")
				GB_Password = Session("ECMallPassword")
				'運用管理者でない場合はショップIDを連動作成
				If LCase(LoginID) <> LCase(SysAdminID) Or LCase(Password) <> LCase(SysAdminPass) Then
'				Query = " SELECT * FROM TMシステム WHERE システムCD = 'SFC' "
'				Query = Query & " AND 管理者ID = '" & LoginID & "' AND パスワード = '" & Password & "' "
'				Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
'				If Content.BOF Or Content.EOF Then
					Query = " SELECT * FROM TMショップ WHERE ログインID = '" & LoginID & "' AND パスワード = '" & Password & "' "
					Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
					If Content.BOF Or Content.EOF Then
						Dim NewShop
						NewShop = 1
						Query = " SELECT MAX(ショップID) AS 最大ID FROM TMショップ "
						Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
						If Not(Content.BOF Or Content.EOF) Then
							NewShop = NewShop + Content.Fields("最大ID")
						End If
						If "" & NewShop = "" Then
							NewShop = "1"
						End If
						Query = ""
						Query = Query & " INSERT INTO TMショップ (ショップID, ログインID, パスワード, 公開フラグ) "
						Query = Query & " VALUES (" & NewShop & ", '" & LoginID & "', '" & Password & "', '1') "
'Response.Write(Query)
'Exit Sub
						Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
						'ここでショップ管理者ログインさせる
						Session("ECMallShopAdmin") = "" & NewShop 'ショップ番号をフラグとする
						GB_ShopAdmin = Session("ECMallShopAdmin")
					Else
						'ここでショップ管理者ログインさせる
						Session("ECMallShopAdmin") = "" & Content.Fields("ショップID") 'ショップ番号をフラグとする
						GB_ShopAdmin = Session("ECMallShopAdmin")
					End If
					If LocalMode = "1" Then
						'ローカルモードでは学校「hsns」の所属ショップに追加する
						'※新規作成時だけでなくショップインポート時にも必要なので常に処理する
						Query = ""
						Query = Query & " SELECT * FROM TM学校所属ショップ "
						Query = Query & " WHERE 学校CD = 'hsns' AND ショップID = " & GB_ShopAdmin & " "
						Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
						If Content.BOF Or Content.EOF Then
							Query = ""
							Query = Query & " INSERT INTO TM学校所属ショップ (学校CD, ショップID) "
							Query = Query & " VALUES ('hsns', " & GB_ShopAdmin & ") "
							Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
						End If
					End If
				Else
					'ここで運用管理者ログインさせる
					Session("ECMallSysAdmin") = "1"
					GB_SysAdmin = Session("ECMallSysAdmin")
					Session("ECMallSysAdminPC") = "1"
					GB_SysAdminPC = Session("ECMallSysAdminPC")
				End If
			Else
				'運用管理者IDまたはショップIDの場合はビジターを新規作成（辻褄合わせ）
				Dim Flg
				Flg = ""
				Query = " SELECT * FROM TMシステム WHERE システムCD = 'SFC' "
				Query = Query & " AND 管理者ID = '" & LoginID & "' AND パスワード = '" & Password & "' "
				Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
				If Not(Content.BOF Or Content.EOF) Then
					Flg = "運用管理者"
					'ここで先に運用管理者ログインさせる
					Session("ECMallSysAdmin") = "1"
					GB_SysAdmin = Session("ECMallSysAdmin")
					Session("ECMallSysAdminPC") = "1"
					GB_SysAdminPC = Session("ECMallSysAdminPC")
				Else
					Query = " SELECT * FROM TMショップ WHERE ログインID = '" & LoginID & "' AND パスワード = '" & Password & "' "
					Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
					If Not(Content.BOF Or Content.EOF) Then
						Flg = Content.Fields("名称") & "の管理者"
						'ここで先にショップ管理者ログインさせる
						Session("ECMallShopAdmin") = "" & Content.Fields("ショップID") 'ショップ番号をフラグとする
						GB_ShopAdmin = Session("ECMallShopAdmin")
					End If
				End If
				If Flg <> "" Then
					'ビジター新規作成に飛ぶ
					Response.Redirect("" & HomeAliasSL & "visitor_bin.asp?LoginID=" & LoginID & "&Password=" & Password & "&Shimei=" & Flg & "&Mode=2&Mail=" & Mail)
					Exit Sub
				Else
					ErrFlg = 1 'ログインエラー
				End If
			End If
		End If
	End If

'Response.Write(ErrFlg)
'Exit Sub

	If ErrFlg > 0 Then
		Response.Redirect("" & HomeAliasSL & "visitor.asp?ErrFlg=" & ErrFlg & "&Mode=" & Mode & "&Mail=" & Mail)
'	ElseIf Mail = "1" Then
'		Response.Redirect("" & HomeAliasSL & "mail/mail.asp")
	ElseIf GB_SysAdmin = "1" Then
		Response.Redirect("" & HomeAliasSL & "sysadminmenu.asp")
	Else
		Response.Redirect("" & HomeAliasSL & "practice.asp?Mail=" & Mail)
	End If

End Sub
%>