%
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%>
<%elseif pNo=2 then '----確認画面----%>
<%elseif pNo=3 then '----完了画面----%>
お問い合わせを、お受けいたしました。
早急に、ご返信をさせて頂きたく存じます。
今しばらく、お待ちくださいませ。
担当 合掌
<%end if '---フッタ---%>
|
|
 |
 |
 |
 |
|
|