<!-- #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


%>
<!-- #include file="./include_top.asp" -->
<%

	Dim ActShopID
	ActShopID = Request("ActShopID")
	If ActShopID <> "" And 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 TargetTBL
	Dim TargetTBLRecv
	TargetTBL = "ビジター"
	TargetTBLRecv = "ショップ"
	If ActShopID <> "" Then
		TargetTBL = "ショップ"
		TargetTBLRecv = "ビジター"
	End If

	Dim SendID
	SendID = Request("SendID")
	Dim Subject
	Subject = ConvProhiStr(Request("Subject"))
	Dim Honbun
	Honbun = Replace(ConvProhiStr(Request("Honbun")), vbCrLf, "<br>")

'Response.Write(Subject)
'Exit Sub


	Dim Query
	Dim Content
	Dim Content2


	Dim SendMailID
	Dim RecvMailID

	'送信メール
	Query = ""
	Query = Query & "  "
	Query = Query & " SELECT MAX(TFメール" & TargetTBL & ".メールID) AS 最大メールID "
	Query = Query & " FROM TFメール" & TargetTBL & " "
	If ActShopID <> "" Then
		Query = Query & " WHERE TFメール" & TargetTBL & ".ショップID = " & ActShopID & " "
	Else
		Query = Query & " WHERE TFメール" & TargetTBL & ".ログインID = '" & GB_UserID & "' "
	End If
	Query = Query & " 	AND TFメール" & TargetTBL & ".送受信区分 = 'S' "
	Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
	If Not(Content.BOF Or Content.EOF) Then
		SendMailID = Content.Fields("最大メールID")
	End If
	If "" & SendMailID = "" Then
		SendMailID = 0
	End If
	SendMailID = SendMailID + 1
	Query = ""
	Query = Query & "  "
	If ActShopID <> "" Then
		Query = Query & " INSERT INTO TFメールショップ (ショップID, 送受信区分, メールID, ログインID, 日時, 題名, 本文) "
		Query = Query & " VALUES (" & ActShopID & ", 'S', " & SendMailID & ", '" & SendID & "', GETDATE(), '" & Subject & "', '" & Honbun & "') "
	Else
		Query = Query & " INSERT INTO TFメールビジター (ログインID, 送受信区分, メールID, ショップID, 日時, 題名, 本文) "
		Query = Query & " VALUES ('" & GB_UserID & "', 'S', " & SendMailID & ", " & SendID & ", GETDATE(), '" & Subject & "', '" & Honbun & "') "
	End If
'Response.Write(Query)
'Exit Sub
	Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)

	'受信メール
	Query = ""
	Query = Query & "  "
	Query = Query & " SELECT MAX(TFメール" & TargetTBLRecv & ".メールID) AS 最大メールID "
	Query = Query & " FROM TFメール" & TargetTBLRecv & " "
	If ActShopID <> "" Then
		Query = Query & " WHERE TFメール" & TargetTBLRecv & ".ログインID = '" & SendID & "' "
	Else
		Query = Query & " WHERE TFメール" & TargetTBLRecv & ".ショップID = " & SendID & " "
	End If
	Query = Query & " 	AND TFメール" & TargetTBLRecv & ".送受信区分 = 'R' "
	Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
	If Not(Content.BOF Or Content.EOF) Then
		RecvMailID = Content.Fields("最大メールID")
	End If
	If "" & RecvMailID = "" Then
		RecvMailID = 0
	End If
	RecvMailID = RecvMailID + 1
	Query = ""
	Query = Query & "  "
	If ActShopID <> "" Then
		Query = Query & " INSERT INTO TFメールビジター (ログインID, 送受信区分, メールID, ショップID, 日時, 題名, 本文) "
		Query = Query & " VALUES ('" & SendID & "', 'R', " & RecvMailID & ", " & ActShopID & ", GETDATE(), '" & Subject & "', '" & Honbun & "') "
	Else
		Query = Query & " INSERT INTO TFメールショップ (ショップID, 送受信区分, メールID, ログインID, 日時, 題名, 本文) "
		Query = Query & " VALUES ('" & SendID & "', 'R', " & RecvMailID & ", '" & GB_UserID & "', GETDATE(), '" & Subject & "', '" & Honbun & "') "
	End If
	Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)


	Response.Redirect("mail.asp?Mode=S&MailID=" & SendMailID & "&ActShopID=" & ActShopID & "")


End Sub
%>