<%@ page language="vb" validateRequest="False" %> お問合せフォーム | 応用電機株式会社 <% dim sei as string,mei as string,seikana as string,meikana as string dim email as string,emailConf as string,mailaddress as string,mailaddress2 as string dim company as string,department as string,tel as string,zip as string,address as string dim contents as string,errMsg(11) as string,isErr as integer Dim saki as integer saki = nsp(request("saki")) if nsp(request.form("flow"))="1" then '2回目以降 sei=nsp(request.form("name")) if sei="" then errMsg(0)="姓は入力必須です" isErr=1 end if mei=nsp(request.form("name2")) if mei="" then errMsg(1)="名は入力必須です" isErr=1 end if seikana=nsp(request.form("furi_sei")) if seikana="" then errMsg(2)="セイは入力必須です" isErr=1 end if meikana=nsp(request.form("furi_neme")) if meikana="" then errMsg(3)="メイは入力必須です" isErr=1 end if mailaddress=nsp(request.form("mailaddress")) if mailaddress="" then errMsg(4)="メールアドレスは入力必須です" isErr=1 elseIf IsValidEmail(mailaddress) = False Then errMsg(10)="メールアドレスの形式が正しくありません。" isErr=1 elseIf InStr(mailaddress, "oyoe.jp") > 0 then errMsg(11)="そのメールアドレスは使用できません" isErr=1 elseIf InStr(mailaddress, "oyo-electric.co.jp") > 0 then errMsg(11)="そのメールアドレスは使用できません" isErr=1 elseIf InStr(mailaddress, "aitos.jp") > 0 then errMsg(11)="そのメールアドレスは使用できません" isErr=1 elseIf InStr(mailaddress, "aitos.co.jp") > 0 then errMsg(11)="そのメールアドレスは使用できません" isErr=1 elseIf InStr(mailaddress, "tmii.jp") > 0 then errMsg(11)="そのメールアドレスは使用できません" isErr=1 end if mailaddress2=nsp(request.form("mailaddress2")) if mailaddress2="" then errMsg(5)="メールアドレス(確認)は入力必須です" isErr=1 end if if mailaddress<>mailaddress2 then errMsg(6)="メールアドレスがメールアドレス(確認)と一致しません" isErr=1 end if company=nsp(request.form("company")) if company="" then errMsg(7) = "会社(団体)名は入力必須です" isErr=1 end if department=nsp(request.form("department")) tel=nsp(request.form("tel")) if tel="" then errMsg(8)="電話番号は入力必須です" isErr=1 end if zip=nsp(request.form("zip")) address=nsp(request.form("address")) contents=nsp(request.form("contents")) if contents="" then errMsg(9)="お問合わせ内容は入力必須です" isErr=1 end if else isErr=1 '初回は必ず確認へ end if %>
page top

お問合せフォーム

HOME > お問合せ > お問合せフォーム

<%if isErr=1 then%> お問合せフォーム <% else %> お問合せ確認画面 <% end if%>

> <%if isErr=1 then%>

印は必ずご記入ください

<% else %>

入力内容をご確認して送信ボタンを押してください。

<% end if%> <%if isErr=1 then%> <% If saki=4 Then %> <% Else%> <% End If%> <% else %> <% If saki=4 Then %> <% Else%> <% End If%> <% end if%>
御氏名 <% ="" & errMsg(0) & "" %> <% ="" & errMsg(1) & "" %>
フリガナ セイ<% ="" & errMsg(2) & "" %> メイ<% ="" & errMsg(3) & "" %>
学校名 <% ="" & errMsg(7) & "" %>
学部名
メールアドレス <% ="" & errMsg(4) & errMsg(6) & errMsg(10) & errMsg(11) & "" %>
確認のためにもう一度入力して下さい。
<% ="" & errMsg(5) & "" %>
電話番号 <% ="" & errMsg(8) & "" %>
郵便番号
住所
お問合わせ内容 <% ="" & errMsg(9) & "" %>
御氏名 <% ="" & errMsg(0) & "" %> <% ="" & errMsg(1) & "" %>
フリガナ セイ<% ="" & errMsg(2) & "" %> メイ<% ="" & errMsg(3) & "" %>
会社(団体)名 <% ="" & errMsg(7) & "" %>
部署名
メールアドレス <% ="" & errMsg(4) & errMsg(6) & errMsg(10) & errMsg(11) & "" %>
確認のためにもう一度入力して下さい。
<% ="" & errMsg(5) & "" %>
電話番号 <% ="" & errMsg(8) & "" %>
郵便番号
住所
お問合わせ内容 <% ="" & errMsg(9) & "" %>
御氏名 <% =sei %>
<% =mei %>
フリガナ セイ<% =seikana %>
メイ<% =meikana %>
学校名 <% =company %>
学部名 <% =department %>
メールアドレス <% =mailaddress %>
<% =mailaddress2 %>
電話番号 <% =tel %>
郵便番号 <% =zip %>
住所 <% =address %>
お問合わせ内容 <% =contents %>
御氏名 <% =sei %>
<% =mei %>
フリガナ セイ<% =seikana %>
メイ<% =meikana %>
会社(団体)名 <% =company %>
部署名 <% =department %>
メールアドレス <% =mailaddress %>
<% =mailaddress2 %>
電話番号 <% =tel %>
郵便番号 <% =zip %>
住所 <% =address %>
お問合わせ内容 <% =contents %>

ご提供いただきました個人情報につきましては、弊社個人情報保護方針に基づき取り扱いますので、ご同意の上ご利用ください。

<%if isErr=1 then%>

<% else %>

<% end if%>