Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
System.Configuration.ConfigurationManager.AppSettings.Set("ServerName", Server_Box.Text)
System.Configuration.ConfigurationManager.AppSettings.Set("DatabaseName", Database_box.Text)
System.Configuration.ConfigurationManager.AppSettings.Set("UserID", User_box.Text)
System.Configuration.ConfigurationManager.AppSettings.Set("Password", Password_box.Text)
System.Configuration.ConfigurationManager.AppSettings.Set("Payment_Ref", Payment_Box.Text)
System.Configuration.ConfigurationManager.AppSettings.Set("SMTP-Server", Smtp_box.Text)
System.Configuration.ConfigurationManager.AppSettings.Set("EmailFromName", Email_Name_box.Text)
System.Configuration.ConfigurationManager.AppSettings.Set("EmailFromAddress", Email_Addr_box.Text)
System.Configuration.ConfigurationManager.RefreshSection("AppSettings")
End Sub
|