Set rS = baglan.Execute("Update Hakkimda Set Yazi2='" & Request.Form("Yazi2" & i) & "' WHERE ID=" &i)

Bu kısımda da bir yanlışlık görünüyor, şu şekilde olmalı:
Set rS = baglan.Execute("Update Hakkimda Set Yazi2='" & Request.Form("Yazi2" & i) & "' WHERE ID="&i&"")