将第二个记录数据插入数据库时​​出现问题

Question

用户可以在表单中添加多个字段。

当他们提交表单时，我需要接收这些数据，将其保存在数据库中并将用户重定向回表单页面。

但是，只有第一个数据被插入到数据库中，用户会立即重定向回表单页面。

我在这里做错了什么？

For i = 0 to Request.Form("totalGRADES")
    If Request.Form("x") = "p" AND Session("Access") = "On" Then

        classYEAR   = Clean(Request.Form("classYEAR" & i))
        gpa         = Clean(Request.Form("gpa" & i))

        Call AddGrades (classYEAR, gpa)

    End If
Next


Sub AddGrades (classYEAR, gpa)

    SQL = "INSERT INTO grades (memberid, classYEAR, gpa, dateENTERED) VALUES ('"& Session("MEMBERID") &"', '"& classYEAR &"', '"& gpa &"', '"& FormatDateMySQL(NOW) &"')"
    Set objAddGRADE = objConn.execute(SQL)

Response.Redirect Request.ServerVariables("HTTP_REFERER")   

End Sub

Answer 1

从Response.Redirect Request.ServerVariables("HTTP_REFERER")移动Sub并将其放在Next语句之后。 顺便说一句，你的代码是不安全的。在将表单字段值传递给SQL之前，您需要检查'等等......