<!-- #include file="./include.asp" -->
<%
main()
Sub main()

	If Not(InternetCheck()) Then
		Exit Sub
	End If
'	If Not(VisitorCheck()) Then
'		Exit Sub
'	End If
	If Not(ShopAdminCheck()) Then
		Exit Sub
	End If
'Response.Write(GB_ShopAdmin)
'Exit Sub
	Dim ActShopID
	ActShopID = Request("ActShopID")
	If LCase(ActShopID) <> LCase(GB_ShopAdmin) Then
		Response.Write("別のウィンドウまたは別のタブページで現在と異なるIDでログインしました。<br>" & vbCrLf)
		Response.Write("同一PC上で複数のIDでログインすることはできません。<br>" & vbCrLf)
		Response.Write("<br>" & vbCrLf)
		Response.Write("<a href=""shopadminmenu.asp"">戻る</a>" & vbCrLf)
		Exit Sub
	End If


	Dim Query
	Dim Content
	Dim Content2


	Dim LoginID
	Dim Password
	Dim Meisho
	Dim Jigyosha
	Dim Postal
	Dim ToDoFuKen
	Dim Address
	Dim TEL
	Dim FAX
	Dim Biko
	Dim MailAddr
	Dim ShopAddr
	Dim OrderAddr
	Dim OrderRegion
	Dim Henpin
	Dim FuryoHason
	Dim OrderLimit
	Dim Etc
	Dim Sekininsha
	Dim TimeTable
	Dim OrderBiko
	Dim OrderMes
	Dim Publish
	LoginID = Request("LoginID")
	Password = ConvQueryChar(Request("Password"))
	Meisho = ConvProhiStr(Request("Meisho"))
	Jigyosha = ConvProhiStr(Request("Jigyosha"))
	Postal = ConvProhiStr(Request("Postal"))
	ToDoFuKen = Request("ToDoFuKen")
	Address = ConvProhiStr(Request("Address"))
	TEL = ConvProhiStr(Request("TEL"))
	FAX = ConvProhiStr(Request("FAX"))
	Biko = Replace("" & ConvProhiStr(Request("Biko")), vbCrLf, "<br>")
	MailAddr = ConvQueryChar(Request("MailAddr"))
	OrderAddr = ConvQueryChar(Request("OrderAddr"))
	OrderRegion = Replace(Request("OrderRegion"), " ", "")
	If Len(OrderRegion) >= 131 Then
		OrderRegion = ""
	End If
	Sekininsha = ConvProhiStr(Request("Sekininsha"))
	ShopAddr = ConvQueryChar(Request("ShopAddr"))
	TimeTable = Replace("" & ConvProhiStr(Request("TimeTable")), vbCrLf, "<br>")
	Henpin = Replace("" & ConvProhiStr(Request("Henpin")), vbCrLf, "<br>")
	FuryoHason = Replace("" & ConvProhiStr(Request("FuryoHason")), vbCrLf, "<br>")
	OrderLimit = Replace("" & ConvProhiStr(Request("OrderLimit")), vbCrLf, "<br>")
	Etc = Replace("" & ConvProhiStr(Request("Etc")), vbCrLf, "<br>")
	OrderBiko = Replace("" & ConvProhiStr(Request("OrderBiko")), vbCrLf, "<br>")
	OrderMes = "" & ConvProhiStr(Request("OrderMes")) '受注メッセージはメール添付なので改行そのまま
	Publish = Request("Publish")


	Query = "exec SPMショップ基本情報更新 " & GB_ShopAdmin & " "
	Query = Query & ", '" & LoginID & "' "
	Query = Query & ", '" & Password & "' "
	Query = Query & ", '" & Meisho & "' "
	Query = Query & ", '" & Jigyosha & "' "
	Query = Query & ", '" & Postal & "' "
	If ToDoFuKen <> "" Then
		Query = Query & ", " & ToDoFuKen & " "
	Else
		Query = Query & ", null "
	End If
	Query = Query & ", '" & Address & "' "
	Query = Query & ", '" & TEL & "' "
	Query = Query & ", '" & FAX & "' "
	Query = Query & ", '" & Biko & "' "
	Query = Query & ", '" & MailAddr & "' "
	Query = Query & ", '" & OrderAddr & "' "
	Query = Query & ", '" & OrderRegion & "' "
	Query = Query & ", '" & Sekininsha & "' "
	Query = Query & ", '" & ShopAddr & "' "
	Query = Query & ", '" & TimeTable & "' "
	Query = Query & ", '" & Henpin & "' "
	Query = Query & ", '" & FuryoHason & "' "
	Query = Query & ", '" & OrderLimit & "' "
	Query = Query & ", '" & Etc & "' "
	Query = Query & ", '" & OrderBiko & "' "
	Query = Query & ", '" & OrderMes & "' "
	Query = Query & ", '" & Publish & "' "
'Response.Write(Query)
'Exit Sub
	Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
If LocalMode = "1" Then
	Query = " UPDATE TMショップ "
	Query = Query & " SET 学校名 = '" & Meisho & "' "
	Query = Query & " WHERE ショップID = " & GB_ShopAdmin & " "
	Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
End If
	'セッション情報更新
	Session("ECMallPassword") = Password
	GB_Password = Session("ECMallPassword")


If LocalMode = "1" Then
	Query = " UPDATE TMビジター "
	Query = Query & " SET パスワード = '" & Password & "' "
	Query = Query & " WHERE ログインID = '" & GB_UserID & "' "
'Response.Write(Query)
'Exit Sub
	Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
	Query = " UPDATE TMログイン "
	Query = Query & " SET パスワード = '" & Password & "' "
	Query = Query & " WHERE メールアドレス = '" & GB_UserID & "' "
'Response.Write(Query)
'Exit Sub
	Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
End If


	Response.Redirect("shopbasic.asp?ActShopID=" & ActShopID & "")

End Sub
%>