<% Set bsp = Server.CreateObject("basp21") Set objFSO = CreateObject("Scripting.FileSystemObject") smtp = "mail.jomon.ne.jp" 'mailto = "nishimata@kbs-web.com" & vbtab & "cc" & vbtab & Request.Form("mailfrom") mailto = "hirosakicity.promo@gmail.com" & vbtab & "cc" & vbtab & Request.Form("mailfrom") 'response.Write("mailto=" & mailto) mailfrom = Request.Form("mailfrom") subject = "ホームページよりお問い合わせ・情報提供です" mailinfo = Request.Form("mailinfo") if Request.Form("photo") <> "" then files = Request.Form("photo") else files = "" end if rc = bsp.SendMail(smtp,mailto,mailfrom,subject,mailinfo,files) if rc <> "" then ' エラーチェック response.write "エラーが発生したため、送信できませんでした。
お手数ですが、もう一度送信してください。" & Chr(13) ' response.Write("
rc=" & rc) else response.write "送信しました。
お問い合わせ・情報提供ありがとうございました。" & Chr(13) end if if files <> "" then objFSO.DeleteFile files end if Set basp = Nothing Set objFSO = Nothing %>