![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_08.png?e8efa67)
下記のaspを動かすとエラーがでます。どこを修正すればよいのでしょうか?教えてください。
エラー タイプ
Microsoft VBScript コンパイル エラー (0x800A0400)
ステートメントがありません。
/NBC/bunrui/box_order.asp, line 76
End If
ブラウザ タイプ
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)
ページ
POST 536 bytes to /NBC/bunrui/box_order.asp
POST Data:
irai_nen=2007&irai_tuki=9&irai_hi=25&okyaku=1&tanto=%82P&box_1=11&biko_1=bunn&box_11=%81@&biko_11=%81@&box_2=%81@&biko_2=%81@&box_12=%81@&biko_12=%81@&box_3=%81@&biko_3=%81@&box_13=%81@&biko_13=%81@&b . . .
<%@ language = VBScript %>
<%
DC = Chr(&H22)
' 実行環境に合わせて、以下の7行目から25行目について適切な名称に変更してください。
' テーブル内のフィールド名は11行目から25行目までですので、これも適切な名称に変更
' してください。
DATABASE_NAME = "ABC" ' データベース名
DB_USERNAME = "AB" ' ユーザー名
DB_PASSWORD = "ABCD" ' パスワード
TABLE_NAME = "T31_管理_W" ' テーブル名
FLD_RECNO = "recNo" ' レコードNo.
FLD_IRAI = "inputdata" ' 依頼日
FLD_OKYAKU = "ucode" ' お客様名
FLD_TANTO = "tanto" ' 担当者名
FLD_BOX = "boxno" ' BOX No.1
FLD_BIKO1 = "bunrui" ' 書類内容1
FLD_BIKO2 = "bunrui" ' 書類内容2
FLD_BIKO3 = "bunrui" ' 書類内容3
FLD_YOBI1 = "yobi1" ' 予備1
FLD_YOBI2 = "yobi2" ' 予備2
FLD_YOBI3 = "yobi3" ' 予備3
'On Error Resume Next
' フォームの値を取得
iDt = Array(0, 0, 0)
iDt(0) = Trim(Request.Form("irai_nen"))
iDt(1) = Trim(Request.Form("irai_tuki"))
iDt(2) = Trim(Request.Form("irai_hi"))
irai = DateSerial(iDt(0), iDt(1), iDt(2))
okyaku = Trim(Request.Form("okyaku"))
tanto = Trim(Request.Form("tanto"))
ReDim box(20)
ReDim biko(20)
For i = 1 To 20
box(i) = Trim(Request.Form("box_" & CStr(i)))
biko(i) = Trim(Request.Form("biko_" & CStr(i)))
Next
RecDate = Now
' テーブルを開く
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=SQLOLEDB;" & _
"Data Source=(local);" & _
"Initial Catalog=" & DATABASE_NAME, DB_USERNAME, DB_PASSWORD
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.BeginTrans
On Error Resume Next
Rs.Open "SELECT * FROM " & TABLE_NAME & " WHERE ([RecNo] Like '" & _
Right(Year(RecDate),2) & Right("0" & Month(RecDate),2) & _
Right("0" & Day(RecDate),2) & Right("0" & Hour(RecDate),2) & _
Right("0" & Minute(RecDate),2) & "%');", Conn, 1, 3, 1
iRec = 0
Do Until Rs.EOF
If iRec < CInt(Right(Rs(FLD_RECNO), 2)) Then
iRec = CInt(Right(Rs(FLD_RECNO), 2))
End If
Rs.MoveNext
Loop
i = 1
Do Until i > 20
If IsNumeric(box(i)) = False Then Exit Do
If CLng(box(i)) = 0 Then Exit Do
iRec = iRec + 1
Rs.AddNew
Rs(FLD_RECNO) = Right(Year(RecDate),2) & Right("0" & Month(RecDate),2) & _
Right("0" & Day(RecDate),2) & Right("0" & Hour(RecDate),2) & _
Right("0" & Minute(RecDate),2) & Right("0" & iRec, 2)
Rs(FLD_IRAI) = irai
Rs(FLD_TANTO) = tanto
Rs(FLD_BOX) = CLng(box(i))
If biko(i) = "" Then
Rs(FLD_BIKO1) = " "
Else
Rs(FLD_BIKO1) = biko(i)
End If
Rs(FLD_BIKO2) = " "
Rs(FLD_BIKO3) = " "
End If
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) データベースから絞り込んでデータを読み込み 1 2023/02/21 19:51
- PHP php テーブルが作成できない 1 2022/11/17 23:41
- Access(アクセス) docmd.gotorecordを起動するには 5 2022/06/17 15:20
- Access(アクセス) DoCmd.SearchForRecord が動かない時の解決方法 3 2022/07/22 15:31
- Access(アクセス) チェックボックスにチェックが入った後の挙動 1 2022/08/21 12:39
- MySQL php テーブルを作れない 2 2022/11/17 18:22
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- CGI perlで書いたcgiでsqliteの使い方を教えてください 2 2023/05/08 21:29
- Access(アクセス) 実行時エラー3131 FROM 句の構文エラーです について 7 2022/06/13 15:45
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ネットカフェで、ネットの接続...
-
内部エラーが発生しました!リ...
-
Error 523 について
-
日立 洗濯機 エラー解除方法...
-
送信エラー554、エラーID:0x80...
-
家のBuffalo無線WiFiが全端末で...
-
aspエラーについて
-
ノートpcの Wi-Fiが昨日から繋...
-
Webページを表示できません
-
エラーがでます。
-
ネットでホテル予約をするとパ...
-
クリックする位置がずれる
-
ポップタウンを起動すると、こ...
-
DSの下の画面が黄ばんでます
-
IE6をダウンロードしたPCとは異...
-
ポケモンダイアモンドパールの...
-
Minecraftをインストールしよう...
-
Esetを一時的に完全停止させたい
-
プレステ2 初期化
-
DSライト画面のが変色してい...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
内部エラーが発生しました!リ...
-
ネットカフェで、ネットの接続...
-
Error 523 について
-
家のBuffalo無線WiFiが全端末で...
-
FFFTPでxサーバーのデータがダ...
-
Webページを表示できません
-
vistaで、tracertをやっても「...
-
proxy errorとは
-
firefoxを使っているのですがサ...
-
お名前comで独自ドメイン契約を...
-
CentOS7にdigコマンドを入れる...
-
outlook(2003)設定
-
IPアドレスとシステムのネット...
-
至急お願いします。 Wiiでゲー...
-
斎藤さんをやっている者です。 ...
-
屋外無線LANについて
-
PCのことでなるべく早くおね...
-
送信エラー554、エラーID:0x80...
-
このサーバーエラーは問題何で...
-
日立 洗濯機 エラー解除方法...
おすすめ情報