<%@ language="vbscript" %>
<%
sub genSelect(year)
start = CDate("01-01-" & year)
iterationer = DateDiff("d", start, DateAdd("yyyy", 1, start)) - 1
response.write "<select>" & vbcrlf
for idx = 0 to iterationer
curDate = dateAdd("d",idx,start)
response.write " <option value=""" & curDate & """>"
response.write curDate
response.write "</option>" & vbcrlf
next
response.write "</select>"
end sub
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "
http://www.w3.org/TR/html4/loose.dtd"> <html>
<head>
<title>datoSelect</title>
</head>
<body>
<form id="Form1" method="post">
<% genSelect("2005") %>
</form>
</body>
</html>