//Check if the user has pressed the Modify button //If Yes validate and update the contact type into the contatcttype table if form(ModifyContact) if form(txtContactType) //open the an instance of the contatcttype table for modifying data table contype=contacts.contacttype //Check if the contact exists contype(recordno)=form(recno) //assgin all the input values to respective fields. contype(contacttype)=form(txtContactType) // modify the record contype(modify) //Check if the records was succesfully modified if contype(recordno)>"0" "

Contact Type modified succesfully

" else "

Error occured while modifying record !!

" endif else //Give an error messsage to the user "

Contact type cannot be Empty

" endif //end further execution over endif //------------------------------------------------------------------------------- //Check if the user has pressed the Delete button //If Yes validate and delete the contact type into the contatcttype table if form(DeleteContact) if form(txtContactType) //open the an instance of the contatcttype table for delete data table delete_contype=contacts.contacttype //assgin all the input values to respective fields. delete_contype(recordno)=form(recno) // delete the record delete_contype(deleterecord) //Check if the records was succesfully modified if delete_contype(recordno)>"0" "

Contact Type deleted succesfully

" else "

Error occured while deleting record !!

" endif else //Give an error messsage to the user "

Contact type cannot be Empty

" endif //end further execution over endif
include sample_top.html
Caravan Business Server>Examples>Date & Time Variables

Delete/Modify Contact Type

Contact Type
(Ex: Buyer,Seller,Manger) 
table contype_modify=contacts.contacttype select * from contype_modify where contacttype is unique order by asc if form(cmbContactType) contype_modify(recordno)=form(cmbContactType) endif

if form(cmbContactType)   else

endif
  include sample_bottom.html