- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：ドロップダウンボックスに・・）
ドロップダウンボックスに月を選択する方法
このQ&Aのポイント
- 初めて投稿します。よろしくお願いします。現在月に応じて、３ヶ月分のドロップダウンボックスを作成したいと思い、下記VBScriptを作成しましたがエラーになりできません。
- <body> ・ <select name="MonthValue> <% Dim I Dim SMonth Dim EMonth SMonth = DateAdd("m", -1, Date) EMonth = DateAdd("m", 1, Date) For I = SMonth To EMonth Response.Write("<option>" & I & "月</option>") Next I %> </body>
- 他に動的に値をセットできる方法も知らず、上記のコードを作成しました。どなたか、解決策をご教授くださいませ。
- goochiichiichii
- お礼率80% (4/5)
- Microsoft ASP
- 回答数3
- ありがとう数3
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
#1です >Response.Write("<option>" & Month() & "月</option>") Response.Write("<option>" & Month(NMonth ) & "月</option>") >Next I Next VBS(ASP)ではIいりません。 の間違いです。すいません
その他の回答 (2)
- X-trail_00
- ベストアンサー率30% (438/1430)
回答No.3
>SMonth = Month(DateAdd("m", -1, Date)) >EMonth = Month(DateAdd("m", 1, Date)) これじゃダメですよ １２月のとき Smonthが11でEmonthが1になり forに入りません。 ですのでセレクトボックスが空になりますよ
質問者
お礼
なるほど。。確かに。 デバッグまですみません。（滝汗） 見直してみます。
- X-trail_00
- ベストアンサー率30% (438/1430)
回答No.1
Dim NMonth For I = -1 To 1 NMonth = DateAdd("m", I, Date) Response.Write("<option>" & Month() & "月</option>") Next I これでいいでしょう Forのカウンターに数値以外を当てはめることは厳しいかと思います。
お礼
Nextのみにすると動きました。こんなところに問題があったのかとびっくりです。 ちなみにコード間違えて転記してました。 SMonth = DateAdd("m", -1, Date) EMonth = DateAdd("m", 1, Date) は、 SMonth = Month(DateAdd("m", -1, Date)) EMonth = Month(DateAdd("m", 1, Date)) でした。 ありがとうございました。