<%option explicit%>
<%'PC版共通定義%>
<%'サイト毎の定義＆既存アプリ定義%>
<%
on error resume next
dim SessionID
dim l_objDbClass
dim l_objRSet
dim Hozon
dim l_strSql
dim l_params
dim l_clsSession
dim strMsg
dim objBasp
dim custName
dim eMail
dim toMail
dim fromMail
dim subj
dim body
dim webEmail
dim webPhone
dim webName
dim webBumon
dim Que
dim passWord
dim sendMailFlg
Sub Hozonx(sts)
l_strSql = "insert into USERLOG values("
l_strSql = l_strSql & "?,"
l_strSql = l_strSql & "?,"
l_strSql = l_strSql & "?,"
l_strSql = l_strSql & "?,"
l_strSql = l_strSql & "?,"
l_strSql = l_strSql & "?,"
session("kaijyun") = clng(session("kaijyun")) + 1
l_strSql = l_strSql & "128,"
l_strSql = l_strSql & "null,null,null,null,null,null,null,null,null,null,null,"
l_strSql = l_strSql & "?)"
Redim l_params(7)
l_params(1) = session("shop")
l_params(2) = cdate(session("raiten"))
l_params(3) = session("jikan")
l_params(4) = session("RIPｱﾄﾞﾚｽ")
l_params(5) = clng(session("countno"))
l_params(6) = clng(session("kaijyun")) + 1
l_params(7) = sts
Call l_objDbClass.doTranzaction(l_strSql, l_params)
END Sub
SessionID = Trim(Request("sessionid"))
eMail = trim(Request("EmailTxt"))
sendMailFlg = false
Set l_objDbClass = new CDb
l_objDbClass.Connect(Session(C_WEBSHOP_CON))
Set l_clsSession = new CSession
Call l_clsSession.SetSessionId(SessionID)
Call l_clsSession.SelectSession
l_strSql = "select * from INIT where ACODE = ? and ID = '1'"
Redim l_params(1)
l_params(1) = ACODE
Set l_objRSet = l_objDbClass.doSelect(l_strSql, l_params)
if Not l_objRSet.Eof then
Hozon = cint(l_objRSet("検索結果保存ﾌﾗｸﾞ"))
end if
webEmail = l_clsSession.SetWebemail(trim(l_objRSet("問合せEMAIL")))
webPhone = l_clsSession.SetWebphone(trim(l_objRSet("問合せ電話番号")))
webName = l_clsSession.SetWebname(trim(l_objRSet("会社名")))
webBumon = trim(l_objRSet("問合せ部門名"))
l_objRSet.close
Set l_objRSet = Nothing
if Hozon = 2 then Hozonx "忘パスワード送信画面"
if eMail <> "" then
'質問内容を取得する
l_strSql = "select * from CUST where EMAIL = ? AND ACODE = ?"
Redim l_params(2)
l_params(1) = eMail
l_params(2) = ACODE
Set l_objRSet = l_objDbClass.doSelect(l_strSql, l_params)
If l_objRSet.EOF Then
strMsg = "該当するe-mailアドレスが存在しません。"
End If
if strMsg = "" then
Que = Trim(l_objRSet.Fields("PASSQ"))
If Trim(Request("AnsFlg")) = "True" Then
passWord = Trim(l_objRSet.Fields("ﾊﾟｽﾜｰﾄﾞ"))
custName = Trim(l_objRSet.Fields("顧客名"))
'メール送信
Set objBasp = Server.CreateObject("basp21")
toMail = CustName & "<" & eMail & ">"
'toMail = "a-and-i@tapirs.co.jp"
fromMail = SendPerson & "<" & webEmail & ">"
subj = "パスワード通知メールです。" & "(" & date & " " & time & ")"
body = "お問合せのパスワードを通知させて頂きます。" & vbCrLf
body = body & " お客様名：" & custName & vbCrLf
body = body & " パスワード：" & passWord & vbCrLf
body = body & vbCrLf
body = body & MailInf1 & vbCrLf
body = body & MailInf2 & vbCrLf
body = body & MailInf3 & vbCrLf
body = body & MailInf4 & vbCrLf
strMsg = objBasp.SendMailEx("", SMTP_NAME, ToMail, FromMail, subj, body, "")
Set objBasp = Nothing
if strMsg = "" then
sendMailFlg = true
end if
End If
end if
end if
%>
パスワード通知
パスワード通知
<%if eMail = "" or (strMsg <> "" and Trim(Request("AnsFlg")) = "") then%>
<%elseif sendMailFlg = false then%>
※<%=eMail%>へパスワードをメールにて送信します。
<%
if strMsg <> "" then
response.write("
")
response.write(strMsg)
end if
else
%>
※パスワード通知メールを送信いたしました。
<%
end if 'end of [if eMail = "" then]
%>
戻る
<%
'SESSION更新
Call l_clsSession.UpdateSession
Set l_objRSet = Nothing
set l_objDbClass = nothing
'Sessionオブジェクトを破棄する。
session.abandon
%>