膳所駅前商店街 : ときめき坂かわら版

<% 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,1,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 & "ぜぜ駅まえ商店街　街の情報アンケート係り　様" & 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 = "nagae@n-bcom.co.jp" ' strTo = "nagae@n-bcom.co.jp" strServer = "mail.zeze.net" strFrom = "kawaraban@zeze.net" strTo = "kawaraban@zeze.net" ' strServer = "mail.zeze.net" ' strFrom = "zeze-ekimae@zeze.net" ' strTo = "zeze-ekimae@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 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 & sepa Mb2=Mb2 & sepa Mb2=Mb2 & "なお抽選は厳正に行い、抽選結果は商品の発送をもって返させていただきます。" Mb2=Mb2 & sepa Mb2=Mb2 & "送信いただいたアンケート内容は以下とおりです。" & sepa Mb2=Mb2 & sepa Mb3=Mb3 & sepa Mb3=Mb3 & "*………………………………………………………………………………………+" & sepa Mb3=Mb3 & sepa Mb3=Mb3 & "このメールに心当たりのない方、アンケートに関するお問い合わせ、ご質問は下記よりお願いします。" & sepa Mb3=Mb3 & "mailto:kawaraban@zeze.net" & sepa Mb3=Mb3 & sepa Mb3=Mb3 & "ぜぜ駅まえ商店街" & sepa Mb3=Mb3 & "http://www.zeze.net" & 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 %> 膳所駅前商店街 : ときめき坂かわら版


	「平野、膳所、中央の話題で満載」を目指して、膳所駅前商店街が運営しています

アンケート　平野、膳所、中央周辺の身近な街の情報を教えてください！！

<%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 '---フッタ---%>


	このサイトは滋賀県大津市の膳所(ぜぜ)駅前商店街が運営しています / copyright © 2006 膳所駅前商店街