01.
<%
Dim
strStartDate
02.
Dim
intMonth
03.
Dim
i
04.
Dim
Conn,strSQL,objExec
05.
Set
Conn = Server.Createobject(
"ADODB.Connection"
)
06.
Conn.Open
"DRIVER=Microsoft Access Driver (*.mdb);DBQ="
& Server.MapPath(
"databasestatement.mdb"
),
""
,
""
07.
strStartDate = Request.Form(
"st"
)
08.
intMonth = Request.Form(
"diff"
)
09.
For
i = 1
To
intMonth
10.
11.
Response.Write(DateAdd(
"d"
,i,strStartDate)&
"<br>"
)
12.
Response.Write(DateAdd(
"m"
,i,strStartDate)&
"<br>"
)
13.
Response.Write(DateAdd(
"y"
,i,strStartDate)&
"<br>"
)
14.
Next
15.
%>