
ASPの中でVBScriptを使用して入力フォームに入力された値を取得したいです。
現在は下記のように記述しているのですが、エラーになります。
documentってこんな使い方できないですっけ?
<htm> <head> <link rel="shortcut icon" href="../src/img/ai21.ico"> <title>ITPN トップページ</title> <meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS"> <meta http-equiv="Content-Style-Type" content="text/css"> <link rel="stylesheet" type="text/css" href="../src/css/tooltip.css"> <link rel="stylesheet" type="text/css" href="../src/css/theme.css"> <link rel="stylesheet" type="text/css" href="../src/css/default.css"> <link rel="stylesheet" type="text/css" href="../src/css/circular.css"> </head> <body leftmargin=0 rightmargin=0 topmargin=0 marginwidth=0 marginheight=0 bgcolor="#ffefd5" text="#000000" link="#0000FF" vlink="#800080" alink="#DD0000"> <FORM NAME='LoginForm'> <br> <center> <font size=5><b> ダウンロード <br><br> 以下の情報を入力してください <br><br> <% Dim TheForm Set TheForm = document.forms("LoginForm") dim storecode Set storecode = CStr(TheForm.wds1.Value) If storecode="111111" Then response.write"<form action="'./dl_2.asp"' method="'POST"'id=frm1f name=frm1f onSubmit=""return check();"">" response.write"<font color=""#000000"" size=2><b>" Else response.write"<form action="'./dl.asp"' method="'POST"'id=frm1f name=frm1f onSubmit=""return check();"">" response.write"<font color=""#000000"" size=2><b>" End If %> ■コード<br> <% response.write "<td><input type=text name=wds1 size=40 value=" & bpx & " required><br><br>" response.write"<asp:RequiredFieldValidator ID=""RequiredFieldValidator1"" runat=""server"" ErrorMessage=""必須項目です"" ControlToValidate=""wds1""></asp:RequiredFieldValidator>" response.write"</td>" %>
Microsoft VBScript 実行時エラー エラー '800a01f4' この変数は宣言されていません。: 'document' /eijo/itpn/index.asp, 行 137

ASP.NET のタグが付いてますが、質問はクラシック ASP ですよね?
