The Code
<%
Dim iCounter, iCounter1
For iCounter = 0 to 6
%>
<%= iCounter %>
<%=DateAdd("d", iCounter, Date) %>
<br />
<% Next %> |
The Code
<%
For iCounter1 = 0 to 6
Response.Write(iCounter1)
Response.Write(" ")
Response.Write(DateAdd("d", iCounter1, Date))
Response.Write("<br />")
Next
%> |