今月表示を本日表示だけにしたい

質問

下記構文（今月表示）を本日だけの表示にしたいのですが、素人なのでわかりません。誰か教えてください。
構文が長いので2回に分けます。
↓
<table border="2" cellspacing="0" width="100%">
<tr style="font-size: 10pt">
<td width="14.2%" bgcolor=#6FF79B><p align="center"><%response.write week(1)%></p></td>
<td width="14.2%" bgcolor=#6FF79B><p align="center"><%response.write week(2)%></p></td>
<td width="14.2%" bgcolor=#6FF79B><p align="center"><%response.write week(3)%></p></td>
<td width="14.2%" bgcolor=#6FF79B><p align="center"><%response.write week(4)%></p></td>
<td width="14.2%" bgcolor=#6FF79B><p align="center"><%response.write week(5)%></p></td>
<td width="14.2%" bgcolor=#6FF79B><p align="center"><%response.write week(6)%></p></td>
<td width="14.2%" bgcolor=#6FF79B><p align="center"><%response.write week(7)%></p></td>
</tr>
<%
'===========================
' DB接続
'===========================
Set objBbs = Server.CreateObject("ADODB.Connection")
objBbs.Open "2eng_task2"

'===========================
' カレンダー描画
'===========================
dim temp_date(41)
dim td_bg(41)
dim task_ID(41)
dim d_fg(41)
dim ap_fg(41)
dim hsty_fg(41)
dim st_fg(41)
dim ed_fg(41)
dim buil_n(41)
dim man_n(41)
dim st_d_plan(41)
dim st_t_plan(41)
dim ed_d_plan(41)
dim ed_t_plan(41)
dim st_d_rslt(41)
dim st_t_rslt(41)
dim ed_d_rslt(41)
dim ed_t_rslt(41)
dim task(41)
dim risk(41)
dim tel(41)
dim end_ap_fg(41)

回答No.1

mar0325

1.Nowで現在日時を取得し,Year関数,Month関数,Day関数をNowを引数として使用し,現在日を取得します.

2.ifなどの制御演算子を利用して表示を制御する形で表現できると思います.

参考URL：

http://www.site-cooler.com/tips/asp_systemdate.htm