![]() |
Sergey Kornilov admin 6/26/2004 |
Stuart, Function WriteYears(d, f) if f="" then val=0 else val=CInt(f) end if WriteYears = WriteYears & "<option value=""""> </option>" for x=Year(d)-100 to Year(d)+50 if x=val then WriteYears = WriteYears & "<option value=" & x & " selected>" & x & "</option>" else WriteYears = WriteYears & "<option value=" & x & ">" & x & "</option>" end if next end Function
|