เอา listbox date มาแบ่งปันค้าบ ^_^ นั่งเเกะจาก PHP นะครับ

<select name="date">
					<% 
					For i = 1 To 31
					%>
					<option value="<%=i%>"<%If Day(Now())=i Then Response.write ("selected=selected")End If%>>
					<%=i%>
					</option>
					<%Next%>
				</select>
				<select name="month">
					<%
					months = array("มกราคม ", "กุมภาพันธ์ ", "มีนาคม ", "เมษายน ", "พฤษภาคม ", "มิถุนายน ", "กรกฎาคม ", "สิงหาคม ", "กันยายน ", "ตุลาคม ", "พฤศจิกายน ", "ธันวาคม ")
					%>
					<% For i=0 To uBound(months) %>
					<option value="<%=i+1%>"<%If Month(Now())=i+1 Then Response.write ("selected=selected")End If%>>
					<%=months(i)%>
					</option>
					<%Next%>
				</select>
				<select name="year">
					<%
					For i = 1 To 10
					%>
					<option value="<%=Year(Now())-i%>"<%If Year(Now())=Year(Now())+i Then Response.write ("selected=selected")End If%>>
					<%=Year(Now())-i+543%>
					</option>
					<%Next%>
				</select>