<%
rfdate=date
rfday=day (rfdate)
rfmonth= month (rfdate)
rfyear= year (rfdate)
response.write rfdate
%>
<table border="0" cellspacing="0">
<tr>
<td><b><font size="1" face="Verdana">GÜN</font></b></td>
<td><b><font size="1" face="Verdana"> AY</font></b></td>
<td><b><font size="1" face="Verdana"> YIL</font></b></td>
</tr>
<tr>
<td><select size="1" name="GUN">
<%
rfgun=1
Do While not rfgun=32
IF rfday = rfgun THEN%>
<option value="<%=rfgun%>" selected><%=rfgun%></option>
<%ELSE%>
<option value="<%=rfgun%>"><%=rfgun%></option>
<%END IF
rfgun=rfgun+1
loop
%>
</select></td>
<td><select size="1" name="AY">
<%
rfay=1
Do While not rfay=13
IF rfmonth = rfay THEN%>
<option value="<%=rfay%>" selected><%=rfay%></option>
<%ELSE%>
<option value="<%=rfay%>"><%=rfay%></option>
<%END IF
rfay=rfay+1
loop
%>
</select></td>
<td><select size="1" name="YIL">
<%
rfyil=rfyear-3 'üç yıl önceden başla
Do While not rfyil=rfyear+1 'bu yılda kal
IF rfyear = rfyil THEN%>
<option value="<%=rfyil%>" selected><%=rfyil%></option>
<%ELSE%>
<option value="<%=rfyil%>"><%=rfyil%></option>
<%END IF
rfyil=rfyil+1
loop
%>
</select></td>
</tr>
</table>