初めて投稿します。よろしくお願いします。現在月に応じて、３ヶ月分のドロップダウンボックスを作成したいと思い、下記VBScriptを作成しましたがエラーになりできません。・・ " & I & "月 ") Next I %> 他に動的に値をセットできる方法も知らず、上記のコードを作成しました。どなたか、解決策をご教授くださいませ。

#1です >Response.Write(" " & Month() & "月 ") Response.Write(" " & Month(NMonth ) & "月 ") >Next I Next VBS(ASP)ではIいりません。の間違いです。すいません

Dim NMonth For I = -1 To 1 NMonth = DateAdd("m", I, Date) Response.Write(" " & Month() & "月 ") Next I これでいいでしょう Forのカウンターに数値以外を当てはめることは厳しいかと思います。

ドロップダウンボックスに・・

解決済

質問者：goochiichiichii
質問日時：2006/07/18 14:09
回答数：3件

初めて投稿します。よろしくお願いします。

現在月に応じて、３ヶ月分のドロップダウンボックスを作成したいと思い、下記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>

他に動的に値をセットできる方法も知らず、上記のコードを作成しました。どなたか、解決策をご教授くださいませ。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： X-trail_00
回答日時：2006/07/18 14:21

#1です

>Response.Write("<option>" & Month() & "月</option>")

Response.Write("<option>" & Month(NMonth ) & "月</option>")

>Next I
Next
VBS(ASP)ではIいりません。

の間違いです。すいません

- 0
- 件

通報する

この回答へのお礼

Nextのみにすると動きました。こんなところに問題があったのかとびっくりです。

ちなみにコード間違えて転記してました。

SMonth = DateAdd("m", -1, Date)
EMonth = DateAdd("m", 1, Date)

は、

SMonth = Month(DateAdd("m", -1, Date))
EMonth = Month(DateAdd("m", 1, Date))

でした。

ありがとうございました。

通報する

お礼日時：2006/07/18 15:25

No.3

回答者： X-trail_00
回答日時：2006/07/18 15:37

>SMonth = Month(DateAdd("m", -1, Date))

>EMonth = Month(DateAdd("m", 1, Date))

これじゃダメですよ
１２月のとき
Smonthが11でEmonthが1になり
forに入りません。
ですのでセレクトボックスが空になりますよ

- 0
- 件

通報する

この回答へのお礼

なるほど。。確かに。
デバッグまですみません。（滝汗）

見直してみます。

通報する

お礼日時：2006/07/19 11:23

No.1

回答者： X-trail_00
回答日時：2006/07/18 14:17

Dim NMonth

For I = -1 To 1
NMonth = DateAdd("m", I, Date)
Response.Write("<option>" & Month() & "月</option>")
Next I

これでいいでしょう

Forのカウンターに数値以外を当てはめることは厳しいかと思います。