I normally use Class but it think this may help or at less give you some option I have used the With method to right multi rows to DB

Code:

            <%
Dim quantity
quantity = Request.Form("quantity")

sql= "Update oddlist Set quantity='"& quantity & "' WHERE user_ID=" & ID

Rs.Open sql, Conn

With Rs
.AddNew()
                    .Fields("DBField1") = Request.Form("FormData1")
                    .Fields("DBField2") = Request.Form("FormData2")
                    .Fields("DBField3") = Request.Form("FormData3")
                    .Fields("DBField4") = Request.Form("FormData4")

                .Update()
End With

Conn.Close
Set Rs=Nothing
Set Conn = Nothing

%>