ช่วยดูโค้ดเกี่ยวกับการ save แบบวนลูปให้หน่อยค่ะว่าควรแก้ไขยังไง

<%Dim Conn,strSQL,objExec
Dim strStartDate
Dim intMonth
Dim i
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("databasestatement.mdb"),"" , ""

strStartDate = Request.Form("st")
intMonth = Request.Form("diff")
For i = 0 To intMonth-1
strSQL = ""
strSQL = strSQL &"INSERT INTO statement "
strSQL = strSQL &"(Customer,day,month,year) "
strSQL = strSQL &"VALUES "
strSQL = strSQL &"('"&Request.Form("bannerURL")&"','"&Request.Form("start")&"','"&Request.Form("st")+i&"', '"&Request.Form("st1")&"') "
Next 
Set objExec = Conn.Execute(strSQL)

If Err.Number = 0 Then
	Response.write("Save Done.")
	response.redirect("view.asp")
Else
	Response.write("Error Save ["&strSQL&"] ("&Err.Description&")")
End If
Conn.Close()
Set objExec = Nothing
Set Conn = Nothing
%>