<%Option Explicit%> <% '========================================================================== 'お問い合わせフォーム '========================================================================== Dim strCmd Dim oUtil Dim oInquiryData Set oUtil = new Utility '問い合わせデータセット Set oInquiryData = new InquiryData strCmd = Request.QueryString("cmd") If strCmd = "back" Then 'エラーで戻ってきたとき oInquiryData.ImportSession("InquiryData") End If %> お問い合わせ|チッソ株式会社

共通ヘッダを読みとばす

液晶、電子部品、樹脂、繊維、食品・医療開発資材などで「情報社会」「環境」「暮らし」「産業」に貢献します。

お問い合わせ サイトマップEnglish


お問い合わせ

■お問い合わせになる前に

  • お問い合わせの内容により、お電話や封書にてご回答させて頂くことがございます。
  • お問い合わせ内容により、回答までにお時間を頂くこと、お返事を差し上げられないことがございますので、あらかじめご了承ください。
  • お急ぎの場合は、直接お電話でお問い合わせください。
  • ※必須」は、必須項目ですので記入漏れの無いようにお願い致します。必須項目の記入漏れがあった場合、送信できない可能性があります。

お名前

お名前(全角)※必須 姓  "> 名 ">
<%=oInquiryData.ErrMsg("name")%>
フリガナ(全角カナ) ※必須 セイ"> メイ">
<%=oInquiryData.ErrMsg("kana")%>

法人名

会社名 ">
部署名 ">
事業内容 ">

電話番号

お電話番号(半角数字) ※必須 "> - "> - ">
<%=oInquiryData.ErrMsg("tel")%>

メールアドレス

メールアドレス(半角英語・数字) ※必須 ">
<%=oInquiryData.ErrMsg("mail")%>
確認のためもう一度入力して下さい※必須 " onPaste="return false">

住所

郵便番号(半角数字) ※必須 "> - ">
<%=oInquiryData.ErrMsg("zipCode")%>
都道府県 ※必須 <%=oUtil.CreateHtmlSelect(" name=adress2", strKenNames, strKenValues, oInquiryData.Item("adress2"))%>
<%=oInquiryData.ErrMsg("adress2")%>
市町村(全角) ※必須 ">
<%=oInquiryData.ErrMsg("adress3")%>
番地(半角数字・記号) ※必須 ">
<%=oInquiryData.ErrMsg("adress4")%>
ビル・マンション名 ">
<%=oInquiryData.ErrMsg("adress5")%>

ご記入欄

詳細なお問い合わせ内容を記載して下さい(500字以内) ※必須

<%=oInquiryData.ErrMsg("require")%>


このページの先頭へ