Xmldocument xdc = new xmldocument ();
Xdc. Load (server. mappath ("Web. config "));
Xmlnode root = xdc. selectsinglenode ("configuration/etettings/Add ");
Xmlelement Xe = root as xmlelement;
Xe. setattribute ("value", "Server =.; database = pubs; user id = sa; Password = ");
Xe. innertext = "tesstadd ";
Xdc. Save (server. mappath ("Web. config "));
Response. Write (Xe. getattribute ("key "));
Dim xdc as xmldocument = new xmldocument
Xdc. Load (request. physicalapplicationpath + ("Web. xml "))
Dim XN as xmlnode = xdc. selectsinglenode ("root/config/PC ")
Dim Xe as xmlelement = ctype (Xn, xmlelement)
Xe. getattribute ("name ")
Xe. getattribute ("ip ")
Xe. getattribute ("open ")
Dim IP as string = Xe. getattribute ("ip ")
Dim open as string = Xe. getattribute ("open ")
If open = "yes" then
Else
Response. Redirect (request. url. tostring ())
End if
