Response.write"<selectname='"&a&"'><option>"&d&"</option>"
fori=btoc
ifi<10then
i="0"&i
endif
Response.write"<option>"&i&"</option>"
next
Response.write"</select>"
EndFunction