Hi I have been using the following code to update a recorset. Could you show me how I can execute all these records in a batch command outside the Loop. In which I can roll back later in the page if there is a problem with later queries.
Do While Not Products.EOF
'For each sub-categories the child products are displayed for that site added
Dim Product_Mask
Product_Mask = SubCat_Mask_Dif + cint(Products("Mask"
.value)
Product_ID = Products("Product_ID"
.value
strSql= "UPDATE tblProducts SET mask = '" & Product_Mask & "' WHERE product_ID = '" & Product_ID & "';"
'objConn.Execute(strsql)
Products.Movenext
Loop
End If
Angus
Do While Not Products.EOF
'For each sub-categories the child products are displayed for that site added
Dim Product_Mask
Product_Mask = SubCat_Mask_Dif + cint(Products("Mask"
Product_ID = Products("Product_ID"
strSql= "UPDATE tblProducts SET mask = '" & Product_Mask & "' WHERE product_ID = '" & Product_ID & "';"
'objConn.Execute(strsql)
Products.Movenext
Loop
End If
Angus