การวนลูป เดือนย้อนหลัง ในlistbox มีวิธีการยังไงเหรอครับ เช่นให้แสดงใน listbox เฉพาะ 5 เดือนย้อนหลังจากเดือนปัจจุบัน

<select name="select">
  <option value=""><- Select Month -></option>
  <%
	Dim i
	For i = 0 To 4
  %>
	<option value="<%=Month(DateAdd("m",-i,Date))%>"><%=MonthName(Month(DateAdd("m",-i,Date)))%> - <%=Year(DateAdd("m",-i,Date))%></option>
  <% 
	Next
  %>
</select>

Dim strSQL
strSQL = " SELECT * FROM table_name WERE MONTH(CreateDate) = '6' AND YEAR(CreateDate) = '2011'  "

<select name="select"> 
<option value=""><- Select Month -></option>
<% 
Dim d 
For d = 0 To 4
 %>

option value="<% m1=Month(DateAdd("m",-d,Date)) %><%m2=Year(DateAdd("m",-d,Date))%>">
<%=MonthName(Month(DateAdd("m",-d,Date)))%> - <%=Year(DateAdd("m",-d,Date))%>
</option>

<%  
Next
%>
</select>

sql = " SELECT * FROM wguses WHERE MONTH(fill_date) = '"&m1&"' AND YEAR(fill_date) = '"& m2 &"'  "