如何同时动态的修改web.config里多个值？？？

Question

Dim selxml As string=server.mappath("web.config")
try
ds.readxml(selxml)
ds.Tables(1).Rows(0)(1)=setname.text
ds.Tables(1).Rows(1)(1)=sethomepage.text
ds.Tables(1).Rows(2)(1)=seturl.text
ds.Tables(1).Rows(3)(1)=setemail.text
ds.Tables(1).Rows(5)(1)=setpage.text
ds.Tables(1).Rows(6)(1)=setlogo.text
ds.Tables(1).Rows(7)(1)="#"+setbgcolor.text
ds.Tables(1).Rows(8)(1)="#"+setlinebg.text
ds.Tables(1).Rows(9)(1)="#"+setline.text
ds.Tables(1).Rows(10)(1)="#"+setrebg.text
ds.Tables(1).Rows(11)(1)="#"+setlink.text
ds.Tables(1).Rows(12)(1)="#"+settext.text
ds.Tables(1).Rows(13)(1)="#"+setretext.text
ds.Tables(1).Rows(14)(1)=setadmin.text
ds.Tables(1).Rows(15)(1)=setpassword.text
ds.Tables(1).Rows(16)(1)=mailserver.text
ds.Tables(1).Rows(17)(1)=replymail.text
ds.Tables(1).Rows(18)(1)=ipinfo.SelectedItem.Value
ds.acceptchanges()
ds.writexml(selxml)
ds.clear()
response.redirect("default.aspx")
Catch objex As exception
      response.redirect("default.aspx")
End Try