% '--------------------------- 'Variables and Class Instantiation '--------------------------- dim message set CLASS_cEmail = new CEmail set CLASS_cEmailtemplate = new CEmailtemplate set CLASS_cLink = new CLink '--------------------------- 'Actions '--------------------------- if PARAM.state = "post" then 'Validate CLASS_cEmail.FillFromForm("cemail_fld") PARAM.ErrorHTML = CLASS_cEmail.Validate("tell friend") 'If Validated, then Save If PARAM.ErrorHTML = "True" then 'Load Template CLASS_cEmailTemplate.LoadFromTemplateName("Tell Friend") 'Setup CLASS_cEmail.EmailComponent=CONFIG.Setting("EmailComponent") CLASS_cEmail.EmailServerName=CONFIG.Setting("EmailServerName") CLASS_cEmail.EmailFormat=CONFIG.Setting("EmailFormat") 'Formulate Email CLASS_cEmail.EmailFrom=CLASS_cEmail.EmailFrom CLASS_cEmail.EmailTo=CLASS_cEmail.EmailTo CLASS_cEmail.EmailBody=CLASS_cEmailTemplate.header&CLASS_cCast.cast(CLASS_cEmail.EmailBody,"str","screen") & CLASS_cEmailTemplate.footer 'Send an email to administrator CLASS_cEmail.sendEmail 'Save CLASS_cEmail.storedata() 'Confirmation Message message = message & "
"
message = message & "Thank you for telling your friend. " message = message & "Your e-mail has been successfully sent. " message = message & " |