%
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 ActShopID
ActShopID = Request("ActShopID")
If ActShopID <> "" And LCase(ActShopID) <> LCase(GB_ShopAdmin) Then
Response.Write("別のウィンドウまたは別のタブページで現在と異なるIDでログインしました。
" & vbCrLf)
Response.Write("同一PC上で複数のIDでログインすることはできません。
" & vbCrLf)
Response.Write("
" & vbCrLf)
Response.Write("戻る" & 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, "
")
'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
%>