<% Dim err(9) 'エラーメッセージ格納用 Dim gat(9) '受け取ったメッセージ Dim cls(9) 'tdのクラス用 'Dim his(9) '必須項目かどうか1:必須 0:必須じゃない pNo =Cint(Request.Form("pNo")) mHissu = "
必須項目です。" gat(1)=Request.Form("joho") gat(2)=Request.Form("name") gat(3)=Request.Form("kana") gat(4)=Request.Form("yubin") gat(5)=Request.Form("add") gat(6)=Request.Form("tell") gat(7)=Request.Form("mail") gat(8)=Request.Form("kakunin") gat(9)=Request.Form("keitaitell") 'his = Array(0,1,1,1,1,1,0,1,1,0,0) '←必須項目を設定する his = Array(0,0,1,0,0,0,0,1,1,0,0) '←必須項目を設定する if pNo>0 then for i=1 to 9 if gat(i)="" and his(i)=1 then ' Response.write "errNum:" & i err(i)=mHissu errNum=errNum+1 cls(i)="on" else cls(i)="off" end if next if errNum=0 then pNo=2 end if if pNo=3 then 'メール送信 for i=1 to 9 gat(i)=Request.Form("s"&i) next '----完了画面(メール送信)---- '----ユーザ sepa=vbCr & vbLf Mb1=Mb1 & "kokorozen事務局 全てのお問い合わせです" & sepa Mb1=Mb1 & sepa Mb1=Mb1 & "このメールは自動送信されています。" & sepa Mb1=Mb1 & sepa Mb1=Mb1 & "以下の内容で『お問い合わせ』が届いています。" & sepa Mb1=Mb1 & sepa Mb1=Mb1 & "ご回答よろしくお願いします。" & sepa Mb1=Mb1 & sepa Mb1=Mb1 & "内容は以下とおりです。" & sepa Mb1=Mb1 & sepa Mb=sepa Mb=Mb & "[〜 お問い合わせをお書き込み下さい 〜]" & ":" & sepa Mb=Mb & gat(1) & sepa Mb=Mb & sepa Mb=Mb & "[お名前]" & ":" & gat(2) & sepa ' Mb=Mb & "[ふりがな]" & ":" & gat(3) & sepa ' Mb=Mb & "[郵便番号]" & ":" & gat(4) & sepa Mb=Mb & "[住所]" & ":" & gat(5) & sepa ' Mb=Mb & "[電話番号]" & ":" & gat(6) & sepa ' Mb=Mb & "[携帯電話番号]" & ":" & gat(9) & sepa Mb=Mb & "[メールアドレス]" & ":" & gat(7) & sepa Mb=Mb & "[確認メール]" & ":" & gat(8) & sepa Mb=Mb & sepa Mb=Mb & "以上" & sepa '■■■■メール設定■■■■ ' strServer = "mail.n-bcom.co.jp" ' strFrom = "umeda@n-bcom.co.jp" strServer = "mail.kokorozen.jp" strFrom = "sato@kokorozen.jp" strTo = "choozenjiko@yahoo.co.jp" ' strTo = "umeda@n-bcom.co.jp" strSub = "お問い合わせ(自動メール)" strBody = Mb1 & Mb Set bobj = Server.CreateObject("basp21") result = bobj.SendMail(strServer,strTo,strFrom, strSub,strBody,strFile) If result <> "" Then Response.write "メールエラー1:" & result End If Set bobj = Server.CreateObject("basp21") strTo = "inobuta0911@nike.eonet.ne.jp" result = bobj.SendMail(strServer,strTo,strFrom, strSub,strBody,strFile) If result <> "" Then Response.write "メールエラー1:" & result End If strTo = gat(7) strSub = "Kokorozen お問い合わせ(返信メール)" Mb2=gat(2) & "様" & sepa Mb2=Mb2 & sepa Mb2=Mb2 & "このメールは自動返信しています。" & sepa Mb2=Mb2 & sepa Mb2=Mb2 & "お問い合わせを、お受けいたしました。" & sepa Mb2=Mb2 & sepa Mb2=Mb2 & "早急に、ご返信をさせて頂きたく存じます。" & sepa Mb2=Mb2 & sepa Mb2=Mb2 & sepa Mb2=Mb2 & "今しばらく、お待ちくださいませ。" Mb2=Mb2 & sepa Mb2=Mb2 & sepa Mb2=Mb2 & "                 担当 合掌" Mb2=Mb2 & sepa Mb2=Mb2 & sepa Mb2=Mb2 & "送信いただいた内容は以下とおりです。" & sepa Mb2=Mb2 & sepa Mb3=Mb3 & sepa Mb3=Mb3 & "*………………………………………………………………………………………+" & sepa Mb3=Mb3 & sepa Mb3=Mb3 & "このメールに心当たりのない方、アンケートに関するお問い合わせ、ご質問は下記よりお願いします。" & sepa Mb3=Mb3 & "mailto:choozenjiko@yahoo.co.jp" & sepa Mb3=Mb3 & sepa Mb3=Mb3 & "kokorozen" & sepa Mb3=Mb3 & "http://www.kokorozen.jp" & sepa strBody = Mb2 & Mb & Mb3 if gat(8)="受取る" then result = bobj.SendMail(strServer,strTo,strFrom, strSub,strBody,strFile) If result <> "" Then Response.write "メールエラー2:" & result ' Response.write "メールエラー2:" & Mb2 ' Response.write "メールエラー2:" & Mb End If end if end if %> kokorozen : 全てのご質問
蓮
澄禅寺 事務局
お問い合わせ ページ。                                                               戻 る 

 
<%if pNo=0 then%>


下記の必要事項を入力して、「確認します」ボタンを押下して下さい。




★ 印は必須項目です。

<%elseif pNo=1 then%>  

送信された内容に漏れまたは誤りがあります。
修正してください。












★ 印は必須項目です。
<%elseif pNo=2 then%> ■下記の内容で送信いたします。
入力項目に誤りや抜けている部分がないか確認してから、送信ボタンをクリックしてください。

<%end if%>
<%if pNo=1 or pNo=0 then%>
    
〜 お問い合わせをお書き込み下さい 〜
どのようなお問い合わせにも、ていねいにお答えいたします。

><%=err(1)%>
お名前★ ><%=err(2)%>
ご住所 ><%=err(5)%>
メールアドレス★>例)aaa@aaaaa.aa.jp <%=err(7)%>
確認メール★ > >受取る >受取らない<%=err(8)%>
お問い合わせ頂きました情報は、
質問にご回答する以外には使用いたしません。




<%elseif pNo=2 then '----確認画面----%>
〜 お問い合わせ 〜
お問い合わせ情報
お名前<%=gat(2)%>
ご住所<%=gat(5)%>
メールアドレス<%=gat(7)%>
確認メール<%=gat(8)%>
<%for i=2 to 9 response.write "" & chr(13) next%>  

入力項目に誤りや抜けている部分はないですか?



<%elseif pNo=3 then '----完了画面----%>


お問い合わせを、お受けいたしました。
早急に、ご返信をさせて頂きたく存じます。
今しばらく、お待ちくださいませ。

                 担当 合掌





<%end if '---フッタ---%>

ウィンドウサイズ 800x600以上推奨 このページは CSS を使用しています このページは JavaScript を使用しています
このサイトはkokorozen事務局が運営しています / copyright © 2006 kokorozen.jp