有限会社　巧建　ホーム

<% Dim submit Dim objMail Dim strServerName Dim strMailFrom Dim strMailFromName Dim strMailFromEmail Dim strMailTo 'Dim strMailToName 'Dim strMailToEmail Dim strSubject Dim strMessage Dim strMMessage Dim strErrorMsg Dim intEmailCheck strErrorMsg = "" submit = Request.Form("submit") if isnull(submit)= true then submit = "" end if 'もし、送信ボタンを押されてこのページにアクセスされた場合のみ 'emailを送るプロセスをする。単にリンクなどでこのページへ来た場合は、 '問い合わせフォームを表示する。 if submit <> "" then strMailFromName = Request.Form("sendername") strMailFromEmail = Request.Form("senderemail") strMessage = Request.Form("message") if isnull(strMailFromName)= true then strMailFromName = "匿名" end if if isnull(strMailFromEmail)= true then strEmail = "" end if if isnull(strMessage)= true then strMessage = "" end if ' emailアドレス・メッセージが書かれているかチェック。 if strMailFromEmail ="" then strErrorMsg ="・Eメールアドレスを入力してください。
" end if if strMessage ="" then strErrorMsg =strErrorMsg & "・お問い合わせ内容を入力してください。
" end if '簡単なemailチェック intEmailCheck=0 strMailFromEmail = trim(strMailFromEmail) 'if the len is less than 5 then it can't be an email '(i.e.: a@a.c) If Len(strMailFromEmail) <= 5 Then intEmailCheck = 1 End If If InStr(1, strMailFromEmail, "@", 1) < 2 Then 'If we find one and only one @, then the 'email address is good to go. intEmailCheck = 1 Else If InStr(1,strMailFromEmail, ".", 1) < 4 Then 'Must have a '.' too intEmailCheck = 1 End If End If If intEmailCheck <> 0 then 'Well , if goby <> 0 then something 'must be wrong strErrorMsg =strErrorMsg & "・Eメールアドレスが正しくない可能性があります。
" End If if strErrorMsg = "" then '参考：www.hi-ho.ne.jp/babaq Set objMail = Server.CreateObject("basp21") strServerName = "ns" ' SMTP サーバマシン名 'svname = "host1.who.com/odyssey:25:60" ' ドメイン名 + SMTP サーバマシン名 ' + PORT + TIMEOUT strMailTo = "kazushi@kouken.jp" ' 宛先 strMailFrom = strMailFromName & "<" & strMailFromEmail & ">" '差出し人 strSubject = "巧建サイトにてお問い合わせがありました。" & Date & " " & FormatDateTime(Time, vbLongTime) ' 件名 strMMessage = "「" & strMailFromName & "」様より、巧建のサイトにてお問い合わせがありました。"& vbCRLF & vbCRLF & _ "メッセージが送信された日時:" & Date & " " & FormatDateTime(Time, vbLongTime) & vbCRLF & _ "-----------------------------------------------------" & vbCRLF & strMessage ' 添付ファイル 'files = "g:\temp\file1.txt" & vbTab & "g:\temp\b21xx.tmp|file2.txt" files = "" rc = objMail.SendMail(strServerName,strMailTo,strMailFrom, strSubject,strMMessage,files) if rc <> "" then ' エラーチェック 'rcにエラーメッセージが入ります strErrorMsg = strErrorMsg & "サーバーエラーの為、送信できませんでした。
" & _ "大変お手数ですが、後ほど再度送信頂くか、弊社担当者の
" & _ "Eメールアドレス(kazushi@kouken.jp)に直接送信下さい。
" else 'strErrorMsg ="成功！" Response.Redirect "otoiawasesent.html" end if end if 'エラーメッセージの前後に改行を入れる strErrorMsg = "
" & strErrorMsg & "
" end if %> 有限会社　巧建　ホーム

<%=strErrorMsg%>

入力して頂いた個人情報は、問い合わせ頂いた内容の確認や、ご返答するための連絡先となります。それ以外の目的には使用致しません。個人情報・お問い合わせ内容は、ご本人の許可なく第三者への開示を行いません。 (但し、法律により要求された場合は例外です。) 　なお、お名前は無記入でも結構です。
お名前(または法人名):
Eメールアドレス(必須項目):


お問い合わせ内容: