<% @Language="VBScript" %> <% Option Explicit %> <% Response.Buffer = True %> <% '-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ '表示しているページコードを指定することでメニューボタンをアクティブにする ONpage = 7 '-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ '宣言 '-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ Dim PageFlg,ErrFlg,bobj Dim strServer 'SMTPサーバ Dim strTo '宛先 Dim strFrom '送信元 Dim strSub 'メール標題 Dim strBody 'メール本文 Dim strFile '添付ファイル Dim result '戻り値 Dim addx1,addx2 'spam防止 addx1 = Day(Now) & Month(Now) & Year(Now) Dim Submit,FormTitle Dim Att,Half,StrTxt '-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ Dim Username Username = "松本歯科医院" 'チェックボックス動的生成 Dim FNM,SNM SNM = "お問い合わせ" '-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ Dim F01,F02,F03,F04,F05,F06,F07,F08,F09,F10 Dim FM_Title,FM_Name,FM_Mail '-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ F01 = Request.Form("title") 'タイトル F02 = Request.Form("name") '名前 FM_Name = Request.Form("name") F03 = Request.Form("sex") '性別 F04 = Request.Form("mail") 'メール FM_Mail = Request.Form("mail") F05 = Request.Form("Jusin") '受診 F06 = Request.Form("honbun") '内容 PageFlg = Request.Form("PageFlg") If PageFlg = "" Then PageFlg = 0 End If '-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ 'バリデーションを通過した後 '-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ If PageFlg = "1" Then addx2 = Request.Form("addx2") If addx2 <> addx1 Then PageFlg = 0 Else If F01 = "" Or F03 = "" Or F05 = "" Or InStr(F06,"url") <> 0 Then PageFlg = 0 Else If F04 = "syrcw359@ybb.ne.jp" Then FormTitle = " - 送信が完了しました -" Else Call SendmailCode Call SendmailCodeCusromer End If End If End If End If '---------------------------------------------------------- Sub SendmailCode strServer = "mail9.winserver.ne.jp:587" 'strTo = "revolver11@gmail.com" strTo = "yuki323323@gmail.com" & vbtab & "bcc" & vbtab & "revolver11@gmail.com" If F04 = "" Then strFrom = "contact@matsumoto-dental-clinic.com" & vbTab & "contact@matsumoto-dental-clinic.com:MtSm/0501!" & vbTab & "LOGIN" Else strFrom = F04 & vbTab & "contact@matsumoto-dental-clinic.com:MtSm/0501!" & vbTab & "LOGIN" End If strSub = "【重要】WEBサイトから" & SNM & "がありました" strBody = "" strBody = strBody & "【タイトル】" & vbCrLf & F01 & vbCrLf & vbCrLf strBody = strBody & "【名前】" & vbCrLf & F02 & vbCrLf & vbCrLf strBody = strBody & "【性別】" & vbCrLf & F03 & vbCrLf & vbCrLf strBody = strBody & "【E-mailアドレス】" & vbCrLf & F04 & vbCrLf & vbCrLf strBody = strBody & "【受診歴】" & vbCrLf & F05 & vbCrLf & vbCrLf strBody = strBody & "【お問い合わせ内容】" & vbCrLf & F06 & vbCrLf & vbCrLf strFile = "" Set bobj = Server.CreateObject("basp21") result = bobj.SendMail(strServer,strTo,strFrom, strSub,strBody,strFile) If result <> "" Then FormTitle = " - 送信エラー" & result & " -" Response.End Else FormTitle = " - 送信が完了しました -" End If End Sub '---------------------------------------------------------- Sub SendmailCodeCusromer strServer = "mail9.winserver.ne.jp:587" strTo = FM_Mail strFrom = "contact@matsumoto-dental-clinic.com" & vbTab & "contact@matsumoto-dental-clinic.com:MtSm/0501!" & vbTab & "LOGIN" strSub = SNM & "を受付いたしました|" & Username strBody = "" strBody = strBody & FM_Name & "様" & vbCrLf & vbCrLf & "この度は" & Username & "への" & SNM & "をいただき誠にありがとうございます。" & vbCrLf strBody = strBody & "本メールはお客様の" & SNM & "が" & Username & "のサーバに到達した時点で送信される、自動配信メールです。" & vbCrLf strBody = strBody & "お問い合わせ頂いた内容は担当者からメールまたは電話にてご連絡差し上げます。" & vbCrLf & vbCrLf strBody = strBody & "─下記、ご送信内容をご確認ください───────────────────" & vbCrLf & vbCrLf strBody = strBody & "【タイトル】" & vbCrLf & F01 & vbCrLf & vbCrLf strBody = strBody & "【名前】" & vbCrLf & F02 & vbCrLf & vbCrLf strBody = strBody & "【性別】" & vbCrLf & F03 & vbCrLf & vbCrLf strBody = strBody & "【E-mailアドレス】" & vbCrLf & F04 & vbCrLf & vbCrLf strBody = strBody & "【受診歴】" & vbCrLf & F05 & vbCrLf & vbCrLf strBody = strBody & "【お問い合わせ内容】" & vbCrLf & F06 & vbCrLf & vbCrLf strBody = strBody & "────────────────────────────────────" & vbCrLf & vbCrLf strBody = strBody & "このメールに心当たりの無い場合は、お手数ですが" & vbCrLf strBody = strBody & "下記連絡先までお問い合わせください。" & vbCrLf & vbCrLf strBody = strBody & Username & vbCrLf & vbCrLf strBody = strBody & "〒444-0204 愛知県岡崎市土井町駒之舞24-3" & vbCrLf strBody = strBody & "TEL. 0564-54-0158" & vbCrLf strBody = strBody & "URL. http://www.matsumoto-dental-clinic.com/" & vbCrLf & "Mail. contact@matsumoto-dental-clinic.com" & vbCrLf strBody = strBody & "━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━" strFile = "" Set bobj = Server.CreateObject("basp21") result = bobj.SendMail(strServer,strTo,strFrom, strSub,strBody,strFile) If result <> "" Then FormTitle = " - 送信エラー" & result & " -" Response.End Else FormTitle = " - 送信が完了しました -" End If End Sub '-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ %> お問い合わせ | 岡崎市土井町 松本歯科医院

予防歯科や小児歯科のことや歯に関するお悩み、診療に関するご質問などお気軽にお問い合わせください。

<% Call HeaderlineMake(12) %> <% Call HeaderMake(12) %>
<% Call Menumake %> <% Call Catchmake %>
お問い合わせ
ご質問、ご相談などお気軽にお問い合わせください。
<% If PageFLG = "0" Then %>
お問い合わせ内容
お名前
性別  
メールアドレス
これまでに受診されたことがありますか?  
内容
<% ElseIf PageFLG = "1" Then %>

 お問い合わせいただきありがとうございました。
 お送りいただいたメールアドレスにご返信いたしますのでしばらくお待ちください。
 3日ほど経っても返信が無い場合は、お送りいただいたメールアドレスに誤りがあり返信ができないことも考えられますので、再度お問い合わせください。



<% End If %>
<% Call RightSideCompornent %>
このページのTOPに戻る
<% Call FooterMake(12) %>