<%
namae = Trim(Request("namae"))
email = Trim(Request("email"))
phone = Trim(Request("phone"))
syuru = Trim(Request("syuru"))
naiyo = Trim(Request("naiyo"))
snbtn = Trim(Request("snbtn"))
If snbtn<>"" Then SendFlg=1 Else SendFlg=0
' メール送信
If SendFlg=1 Then
Set smtp = Server.CreateObject("basp21")
'smtp.CodePage = 65001 'UTF-8
' Asvname = "mail.assetin.jp"
' Amailfrom= "info@assetin.jp"
Asvname = "mail.quicknetwork.co.jp"
Amailfrom = "autosender@quicknetwork.co.jp" & vbTab & "autosender@quicknetwork.co.jp:919auto658send0032"
If email = "isao@carhoo.co.jp" Then
' Amailto = email
Amailto = email & vbTab & "cc" & vbTab & "i.ishikawa@quicknetwork.co.jp" & vbTab & ">Reply-To: i.ishikawa@quicknetwork.co.jp"
Else
Amailto = email & vbTab & "cc" & vbTab & "info@assetin.jp" & vbTab & ">Reply-To: info@assetin.jp"
End If
ASubject = "ホームページよりお問合せ"
'--------------------------------------------------------
wMSG = vbCRLF
wMSG = wMSG & "下記内容にて受付致しました。" & vbCRLF
wMSG = wMSG & vbCRLF
wMSG = wMSG & "-----------------------------------------------" & vbCRLF
wMSG = wMSG & "お 名 前:" & namae & vbCRLF
wMSG = wMSG & "e メール:" & email & vbCRLF
wMSG = wMSG & "TEL/携帯:" & phone & vbCRLF
wMSG = wMSG & "お問合せの種類:" & syuru & vbCRLF
wMSG = wMSG & "お問合せ内容:"& vbCRLF
wMSG = wMSG & naiyo
wMSG = wMSG & vbCRLF
wMSG = wMSG & "----------------------------------------" & vbCRLF
wMSG = wMSG & vbCRLF
wMSG = wMSG & vbCRLF
wMSG = wMSG & "株式会社 アセットインオートサービス" & vbCRLF
wMSG = wMSG & " e-mail: info@assetin.jp" & vbCRLF
wMSG = wMSG & vbCRLF
' wMSG = wMSG & "----------------------------------------" & vbCRLF
' wMSG = wMSG & "このメールはシステムにより、自動送信されています。" & vbCRLF
' wMSG = wMSG & "このメールに直接返信してもお問い合わせいただくことはできません。" & vbCRLF
Abody= wMSG
'送信
FilePath = ""
'認証なし
BASP_RC = smtp.SendMail(Asvname, Amailto, Amailfrom, ASubject, Abody, FilePath)
'レスポンス
If BASP_RC <> "" Then
resMSG = "
送信エラー" & BASP_RC
Else
resMSG = "
送信いたしました。"
End If
Set smtp = Nothing
End If
%>