<% name = trim(request("txtName")) email = trim(request("txtEmail")) msg = trim(request("txtMsg")) f_name = trim(request("txtfname")) f_email = trim(request("txtfemail")) Submit = trim(request("submit")) if Submit <> "" then if name = "" and email = "" and f_name = "" and f_email = "" then main_err="All fields are Mandatory.
" end if if email <> "" then if instr(email,"@") = false or instr(email,".") = false or len(email) < 8 then main_err=main_err&"Invalid Email, please check
" end if end if if f_email <> "" then if instr(f_email,"@") = false or instr(f_email,".") = false or len(f_email) < 8 then main_err=main_err&"Invalid Friend's Email, please check
" end if end if if main_err = "" then Set myMail=CreateObject("CDO.Message") myMail.Subject="I would like to share this website with you" myMail.From= """" + name + """<" + email + ">" myMail.To= """" + f_name + """<" + f_email + ">" myMail.HTMLBody = "Hi " + f_name + ",
I would like to share some information with you.

Please click on the following link
http://www.physiokit.com.sg

" + msg + "

Best Regards,
" + name myMail.Send set myMail=nothing response.redirect "taf_thanku.html" end if end if %> Welcome to Physio Kit Therapy
HomeFAQS
You can tell your friends about Physio Kit simply by completing the following fields and clicking on submit button.  
<% if main_err <> "" then %>Error:<%=main_err%><% end if %>
Your Name: *  
Your Email: *  
Friend's Name: *
Friend's Email: *
Write your friend a short message:
 
Copyright © 2007 Physio Kit. All rights reserved.
Website by Ezyhealth Technology