お問い合せ

<% response.buffer=true response.redirect("mailsend.php") tomail = request("tomail") %> <% function gethtmlText(str) if str <> "" then str = replace(str , chr(13) ,"
") end if gethtmlText = str end function %>

<%if request("input") = "send" then CRLF = chr(10) & chr(13) subj = request.form("subject") name = request.form("name") mailadd = request.form("mailadd") naiyou = request.form("naiyou") naiyou = name & CRLF & CRLF & naiyou & CRLF Set mailmsg = Server.CreateObject("CDONTS.NewMail") mailmsg.To = "shiencent@city.shunan.yamaguchi.jp" mailmsg.subject=subj mailmsg.From = mailadd mailmsg.Body = naiyou mailmsg.Host = "ms1.city.shunan.yamaguchi.jp" mailmsg.Send %>

メールの送信を完了しました。
どうもありがとうございました。 <%elseif request("input") = "go" then%> <% tomail = request.form("tomail") subj = request.form("subj") name = request.form("name") mailadd = request.form("mailadd") mailadd2=request.form("mailadd2") naiyou = request.form("naiyou") shozokumei = request.form("shozokumei") checkmail =true if subj = "" then response.write("題名が入力されていません。
") checkmail = false end if if name = "" then response.write("お名前が入力されていません。
") checkmail = false end if if mailadd = "" then response.write("emailが入力されていません。
") checkmail = false end if if mailadd2 = "" then response.write("確認用emailが入力されていません。
") checkmail = false end if if naiyou = "" then response.write("内容が入力されていません。
") checkmail = false end if if mailadd <> mailadd2 then response.write("メールアドレスが間違っています。
") checkmail = false end if %> <%if checkmail then%>

入力された内容をご確認のうえ、メール送信ボタンをクリックしてください。

題名	<%=subj%>
お名前	<%=name%>
あなたの emailアドレス	<%=mailadd%>
お問い合わせ内容	<%=gethtmlText(naiyou)%> ">

<%end if%> <%else%>

お問い合せ内容等を入力してください。

題名	必須
お名前	必須
あなたの emailアドレス	必須
emailアドレスの再確認	必須
お問い合わせ内容	必須

<%end if%>

周南市市民活動支援センター

〒745-0034
周南市御幸通2丁目28番地周南市市民交流センター3F
TEL 0834-33-7700　 FAX 0834-31-3711
E-mail shiencent@city.shunan.lg.jp

周南市西部市民活動支援センター

〒746-0025
周南市古市1丁目1番21号周南市西部市民交流センター内
TEL 0834-62-4682
E-mail seibushien@ccsnet.ne.jp

<%response.flush%>