質問: strmessage & "" & "基礎は数値で入力してください" end if
回答: kisoというフォームデータが数値かどうかの判定しかしてませんよね。 データの長さをlen関数で調べてみてはいかがでしょうか。 dim formdata formdata=request.form("kiso") if len(formdata)=0 then '空欄? rs.fields("kiso").value = 0 else if isnumeric(formdata) then '数値? rs.fields("kiso").value = cint(formdata) else strmessage = strmessage & "" & "基礎は数値で入力してください" end if テストはしてませんので、どこかにチョンボがあるかも!?