Dato funktion

Jeg har en kode her, hvor jeg henter dag,måned,år,time,minutter frem. "Problemet" er bare at det ikke er den helt rigtige måde at løse dette på. Det må kunne gøres med noget dato format, men det har jeg ikke helt styr på.

Jeg vil gerne have at funktionen går 5 år frem i tiden.

<select name="FraDatoDD" class="input1">
        <%
        for i = 1 to 31 %>
        <option value="<%=i%>" <%if day(now()) = i then%>selected<%end if %>><%=i%></option>
        <%next%>
        </select>
       
        <select name="FraDatoMM" class="input1">
        <%
        for i = 1 to 12 %>
        <option value="<%=i%>" <%if month(now()) = i then%>selected<%end if %>><%=i%></option>
        <%next%>
        </select>
       
        <select name="FraDatoAAAA" class="input1">
        <%
        for i = year(now()) to 2020 %>
        <option value="<%=i%>" <%if year(now()) = i then%>selected<%end if %>><%=i%></option>
        <%next%>
        </select>
       
        Kl.
        <select name="FraDatoTT" class="input1">
        <%For i = 0 To 23%>
        <option value="<%=i%>" <%if hour(now()) = i then%>selected<%end if %>><%=i%></option>
        <%Next%>
        </select>
        <select name="FraDatoMM" class="input1">
        <%For i = 0 To 59 %>
        <option value="<%=i%>" <%if minute(now()) = i then%>selected<%end if %>><%=i%></option>
        <%Next%>
        </select>

Nogen som kan hjælpe mig med at stille dette op lidt mere smartere?