kokorozen : ゆらぎの会

<% Dim err(8) 'エラーメッセージ格納用 Dim gat(8) '受け取ったメッセージ Dim cls(8) 'tdのクラス用 'Dim his(8) '必須項目かどうか１：必須　０：必須じゃない 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") his = Array(0,1,0,1,1,1,1,1,1,1) '←必須項目を設定する if pNo>0 then for i=1 to 8 if gat(i)="" and his(i)=1 then 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 8 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(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" strTo = "choozenjiko@yahoo.co.jp" ' strTo = "inobuta0911@yahoo.co.jp" ' strServer = "mail.zeze.net" ' strFrom = "kawaraban@zeze.net" ' strTo = "kawaraban@zeze.net" 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 = "高速浄化開運祈願の資料請求(返信メール)" 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 & "送信いただいた内容は以下とおりです。" & 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%>

　　　

～コメント(一言ありましたらどうぞ) ～
><%=gat(1)%><%=err(1)%>
資料発送先
氏名★	><%=err(2)%>
ふりがな★	><%=err(3)%>
郵便番号★	>例)123-0000<%=err(4)%>
住所★	><%=err(5)%>
電話番号★	>例)077-000-0000<%=err(6)%>
メールアドレス★	>例)aaa@aaaaa.aa.jp <%=err(7)%>
確認メール★	> >受取る >受取らない<%=err(8)%>

<%elseif pNo=2 then '----確認画面----%>

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

資料請求ありがとうございました。

資料を発送させていただきます。

トップページに戻る

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


	このサイトはkokorozen事務局が運営しています / copyright © 2006 kokorozen.jp