<%@ 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("seikana"))
if seikana="" then
errMsg(2)=" セイは入力必須です"
isErr=1
end if
meikana=nsp(request.form("meikana"))
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
%>
