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

ホーム> お問い合わせの入力

status
" />

お問い合わせ理由(最も大きい理由を1つ選んでください)

<% Dim i For i = 0 To UBound(strReasonItems) %> <% Next %>
/>

御希望内容

<% Dim j For j = 0 To UBound(strMaterialItems) %> <% If j Mod 2 = 0 Then %> <% End If If j = 1 Then %> <% If j Mod 2 = 1 Then %> <% End If Next %>
<% Else %> <% End if %> />

現在御使用中のフィルターがあれば、メーカーと品番を記入ください

メーカー 例)JNCフィルター
"/>
<%=oInquiryData.ErrMsg("maker")%>
品番 例)CP-01S
" />
<%=oInquiryData.ErrMsg("number")%>
月間使用本数 例)50本
" />
<%=oInquiryData.ErrMsg("usenum")%>

御質問内容

御質問
<%=oInquiryData.ErrMsg("inquiry")%>

ご連絡先

氏名 [必須] " />
<%=oInquiryData.ErrMsg("name")%>
会社名 [必須] " />
<%=oInquiryData.ErrMsg("company")%>
部署名 " />
<%=oInquiryData.ErrMsg("section")%>
役職 " />
<%=oInquiryData.ErrMsg("post")%>
都道府県 [必須] <%=oUtil.CreateHtmlSelect("class='s3' id='address1' name='address1'", strPrefNames, strPrefValues, oInquiryData.Item("address1"))%>
<%=oInquiryData.ErrMsg("address1")%>
住所 [必須]
<%=oInquiryData.ErrMsg("address2")%>
電話番号 " />
<%=oInquiryData.ErrMsg("tel")%>
メールアドレス " />
<%=oInquiryData.ErrMsg("mail")%>

電話番号とメールアドレスのどちらかは必須です。

 


Copyright © 2014 JNC FILTER CO,LTD. All Rights Reserved.