※ ChatGPTを利用し、要約された質問です（原文：WSH）
WSHフォームのデータがないまま実行するとERRORメッセージが表示されない問題について
このQ&Aのポイント
WSHフォームにデータがないまま実行すると、ERRORメッセージが表示されずに書き込み処理が行われてしまいます。
条件分岐（if文）を使用して、フォームに値が入っていない場合にはERRORメッセージを出し、書き込み処理を行わないようにしたい。
しかし、現在の処理では入力がされていなくても書き込み処理が実行されてしまい、保存しましたと表示されます。
フォームにデータがないまま実行するとEROORメッセージを出し、書き込み処理を行わないようにしたいのですが、
if （ひとつでもフォームに値が入っていないとき）
msgbox("eroor")
else （全部入っているとき）
（書き込み）
end if
としているはずなのですが、なぜか動きません。
（入力しなくても書き込み処理をしてしまい、保存しましたと表示されてしまいます。）
<script language=vbscript>
<!--
Sub ok_OnClick
n=1
Set fso = CreateObject("Scripting.FileSystemObject")
Set tmpFile = fso.OpenTextFile("C:\borland\bcc55\t\1203\a.txt",8, True)
if File1Name1="" Or File1Name2="" Or File1Name3="" Or File1Name4="" Or File1Name5="" Or n="" Then
msgbox("eroor")
else
for I=1 to n
str1=document.all("File" & CStr(I) & "Name1").value
str2=document.all("File" & CStr(I) & "Name2").value
str3=document.all("File" & CStr(I) & "Name3").value
str4=document.all("File" & CStr(I) & "Name4").value
str5=document.all("File" & CStr(I) & "Name5").value
str=str1 & "," & str2 & "," & str3 & "," & str4 & "," & str5
tmpFile.WriteLine str
next
Document.Write "<center><br><br><br><br>"
Document.Write "保存しました。"
end if
End Sub
-->
</script>
<html><body><center>
<table><tr><td><input SIZE=12 type=text id=File1Name1></td><td><input SIZE=12 type=text id=File1Name2></td><td><input SIZE=12 type=text id=File1Name3></td><td><input SIZE=12 type=text id=File1Name4></td><td><input SIZE=12 type=text id=File1Name5></td></tr></table><br><br><input type=button name=ok value=登録></center></body></html>
お礼
.value が抜けていたのですね。 ありがとうございました。