Web Page Design and Hosting

contactDS.Tables( Contacts ).Rows(intCurRecord)( WorkEmail ) = _ txtWorkEmail.TextcontactDS.Tables( Contacts ).Rows(intCurRecord)( HomeEmail ) = _ txtHomeEmail.TextcontactDS.Tables( Contacts ).Rows(intCurRecord)( Notes ) = txtNotes.TextExit Subhandleerror: MsgBox( An error occurred in UpdateDataSetValues: & Err.Number & - Err.Description) Exit SubEnd Sub26.Add the following ClearFormprocedure to the form. This procedure is responsible for clearingthe controls on the form so that the user can add a new record. Sub ClearForm() On Error GoTo handleerror clear the controls on the form so can go into add modetxtContactId.Text = txtLName.Text = txtFName.Text = txtMName.Text = txtTitle.Text = txtCompany.Text = txtAddress1.Text = txtAddress2.Text = txtCity.Text = txtRegion.Text = txtPostalCode.Text = txtWorkPhone.Text = txtHomePhone.Text = txtCellPhone.Text = txtWorkEmail.Text = txtHomeEmail.Text = txtNotes.Text = lnklblGoogleResults.Text = blnAddMode = TrueExit Subhandleerror: MsgBox( An error occurred in ClearForm: & Err.Number & - & _ Err.Description) Exit SubEnd Sub251Case

Note: If you are looking for good and high quality web space to host and run your application check Lunarwebhost Inexpensive Web Hosting services