[ <% = Meisho %> ] のメールボックス
<% = Spacer(1, 10) %>
<% = Label %>
<% = Spacer(7, 1) %>
<% If MailID <> "" Or Mode = "S" Then %>
<% = ActionButton3Image("RecvBtn", "../images/btn01bl.png", "../images/btn01bl_o.png", 4, "../images/btn01bc.png", "../images/btn01bc_o.png", 90, "../images/btn01br.png", "../images/btn01br_o.png", 4, 24, "受信メール一覧", "tx1214w", "center", "location.href='" & Request.ServerVariables("SCRIPT_NAME") & "?Mode=R&ActShopID=" & ActShopID & "';") %>
<% = Spacer(7, 1) %>
<% End If %>
<% If MailID <> "" Or Mode = "R" Then %>
<% = ActionButton3Image("SendBtn", "../images/btn01bl.png", "../images/btn01bl_o.png", 4, "../images/btn01bc.png", "../images/btn01bc_o.png", 90, "../images/btn01br.png", "../images/btn01br_o.png", 4, 24, "送信メール一覧", "tx1214w", "center", "location.href='" & Request.ServerVariables("SCRIPT_NAME") & "?Mode=S&ActShopID=" & ActShopID & "';") %>
<% = Spacer(7, 1) %>
<% End If %>
<% If ActShopID <> "" Then %>
<% = Spacer(7, 1) %>
<% = ActionButton3Image("MenuBtn", "../images/btn01bl.png", "../images/btn01bl_o.png", 4, "../images/btn01bc.png", "../images/btn01bc_o.png", 112, "../images/btn01br.png", "../images/btn01br_o.png", 4, 24, "管理メニューに戻る", "tx1214w", "center", "location.href='" & HomeAliasSL & "shopadminmenu.asp';") %>
<% = Spacer(7, 1) %>
<% = ActionButton3Image("LogoutBtn", "../images/btn01bl.png", "../images/btn01bl_o.png", 4, "../images/btn01bc.png", "../images/btn01bc_o.png", 64, "../images/btn01br.png", "../images/btn01br_o.png", 4, 24, "ログアウト", "tx1214w", "center", "location.href='" & HomeAliasSL & "?Logout=1';") %>
<% = Spacer(7, 1) %>
<% = ActionButton3Image("ReturnBtn", "../images/btn01bl.png", "../images/btn01bl_o.png", 4, "../images/btn01bc.png", "../images/btn01bc_o.png", 76, "../images/btn01br.png", "../images/btn01br_o.png", 4, 24, "モールに戻る", "tx1214w", "center", "location.href='" & HomeAliasSL & "';") %>
<% End If %>
ddeeff<% Else %>bbffcc<% End If %>">
<% If Mode = "Add" Then '返信 %>
<%
Query = ""
Query = Query & " "
Query = Query & " SELECT TFメール" & TargetTBL & ".*, TMショップ.ショップID, TMショップ.ログインID AS ショップログインID, TMショップ.名称 AS ショップ名称, TMログイン.氏名 "
Query = Query & " FROM TFメール" & TargetTBL & " "
Query = Query & " INNER JOIN TMショップ "
Query = Query & " ON TFメール" & TargetTBL & ".ショップID = TMショップ.ショップID "
Query = Query & " INNER JOIN TMログイン "
Query = Query & " ON TFメール" & TargetTBL & ".ログインID = TMログイン.メールアドレス "
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 & ".送受信区分 = 'R' "
Query = Query & " AND TMショップ.演習CD = " & GB_PracticeCD & " " '演習所属ショップで絞り込む
Query = Query & " AND TFメール" & TargetTBL & ".メールID = " & MailID & " "
Query = Query & " ORDER BY TFメール" & TargetTBL & ".日時 DESC "
Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
If Not(Content.BOF Or Content.EOF) Then
%>
題名 " style="width:480px;" class="tb1416ime" maxlength="127">
<% = ActionButton3Image("SendBtn" & Content.Fields("メールID"), "../images/btn01bl.png", "../images/btn01bl_o.png", 4, "../images/btn01bc.png", "../images/btn01bc_o.png", 37, "../images/btn01br.png", "../images/btn01br_o.png", 4, 24, "送 信", "tx1416w", "center", "SendMail();") %>
<% If ActShopID <> "" Then %>
">
<% Else %>
">
<% End If %>
<%
End If
%>
<% ElseIf MailID <> "" Then '詳細 %>
<%
'既読フラグを立てる
Query = ""
Query = Query & " "
Query = Query & " UPDATE TFメール" & TargetTBL & " "
Query = Query & " SET 既読 = '1' "
Query = Query & " FROM TFメール" & TargetTBL & " "
Query = Query & " INNER JOIN TMショップ "
Query = Query & " ON TFメール" & TargetTBL & ".ショップID = TMショップ.ショップID "
Query = Query & " INNER JOIN TMログイン "
Query = Query & " ON TFメール" & TargetTBL & ".ログインID = TMログイン.メールアドレス "
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 & ".送受信区分 = '" & Mode & "' "
Query = Query & " AND TMショップ.演習CD = " & GB_PracticeCD & " " '演習所属ショップで絞り込む
Query = Query & " AND TFメール" & TargetTBL & ".メールID = " & MailID & " "
Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
Query = ""
Query = Query & " "
Query = Query & " SELECT TFメール" & TargetTBL & ".*, TMショップ.ショップID, TMショップ.ログインID AS ショップログインID, TMショップ.名称 AS ショップ名称, TMログイン.氏名 "
Query = Query & " FROM TFメール" & TargetTBL & " "
Query = Query & " INNER JOIN TMショップ "
Query = Query & " ON TFメール" & TargetTBL & ".ショップID = TMショップ.ショップID "
Query = Query & " INNER JOIN TMログイン "
Query = Query & " ON TFメール" & TargetTBL & ".ログインID = TMログイン.メールアドレス "
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 & ".送受信区分 = '" & Mode & "' "
Query = Query & " AND TMショップ.演習CD = " & GB_PracticeCD & " " '演習所属ショップで絞り込む
Query = Query & " AND TFメール" & TargetTBL & ".メールID = " & MailID & " "
Query = Query & " ORDER BY TFメール" & TargetTBL & ".日時 DESC "
Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
If Not(Content.BOF Or Content.EOF) Then
%>
<% = Content.Fields("日時") %>
<% If ActShopID <> "" Then %>
<% = Content.Fields("氏名") & """ <" & Content.Fields("ログインID") %>@hsns.sfc-jpn.jp>
<% Else %>
<% = Content.Fields("ショップ名称") %> <<% = Content.Fields("ショップログインID") %>@hsns.sfc-jpn.jp>
<% End If %>
<% If Mode <> "S" Then %>
<% = ActionButton3Image("SendBtn" & Content.Fields("メールID"), "../images/btn01bl.png", "../images/btn01bl_o.png", 4, "../images/btn01bc.png", "../images/btn01bc_o.png", 37, "../images/btn01br.png", "../images/btn01br_o.png", 4, 24, "返 信", "tx1416w", "center", "location.href='mail.asp?Mode=Add&MailID=" & Content.Fields("メールID") & "&ActShopID=" & ActShopID & "';") %>
<% End If %>
<% = Content.Fields("題名") %>
<% = Content.Fields("本文") %>
<%
End If
%>
<% Else '一覧 %>
<%
Query = ""
Query = Query & " "
Query = Query & " SELECT TFメール" & TargetTBL & ".*, TMショップ.ショップID, TMショップ.ログインID AS ショップログインID, TMショップ.名称 AS ショップ名称, TMログイン.氏名 "
Query = Query & " FROM TFメール" & TargetTBL & " "
Query = Query & " INNER JOIN TMショップ "
Query = Query & " ON TFメール" & TargetTBL & ".ショップID = TMショップ.ショップID "
Query = Query & " INNER JOIN TMログイン "
Query = Query & " ON TFメール" & TargetTBL & ".ログインID = TMログイン.メールアドレス "
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 & ".送受信区分 = '" & Mode & "' "
Query = Query & " AND TMショップ.演習CD = " & GB_PracticeCD & " " '演習所属ショップで絞り込む
' Query = Query & " AND TFメール" & TargetTBL & ".メールID = " & MailID & " "
Query = Query & " ORDER BY TFメール" & TargetTBL & ".日時 DESC "
Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
If Not(Content.BOF Or Content.EOF) Then
Do While Not(Content.BOF Or Content.EOF)
%>
<% = Content.Fields("日時") %>
<% If ActShopID <> "" Then %>
<% = Content.Fields("氏名") %>
<% Else %>
<% = Content.Fields("ショップ名称") %>
<% End If %>
&ActShopID=<% = ActShopID %>"><% = Content.Fields("題名") %>
<% If Mode <> "S" Then %>
<% If "" & Content.Fields("既読") = "1" Then %>
<% = ActionButton3Image("SendBtn" & Content.Fields("メールID"), "../images/btn01bl.png", "../images/btn01bl_o.png", 4, "../images/btn01bc.png", "../images/btn01bc_o.png", 37, "../images/btn01br.png", "../images/btn01br_o.png", 4, 24, "返 信", "tx1416w", "center", "location.href='mail.asp?Mode=Add&MailID=" & Content.Fields("メールID") & "&ActShopID=" & ActShopID & "';") %>
<% Else %>
未読
<% End If %>
<% End If %>
<%
Content.MoveNext
Loop
Else
%>
メールはありません
<%
End If
%>
<% End If %>
<%
End Sub
%>