%
SUB sendMail(fromWho, toWho, Subject, Body)
DIM myMail
SET myMail=Server.CreateObject("CDONTS.Newmail")
myMail.From=fromWho
myMail.TO=toWho
myMail.Subject=Subject
myMail.Body=Body
myMail.send
SET mymail=Nothing
END SUB
fromWho=TRIM(Request.form("fromWho"))
toWho="info@sakova.com"
Subject="Enquiry from Website"
Body=TRIM(Request.form("UserName")) & vbCrLf
Body=Body & TRIM(Request.form("userPhone")) & vbCrLf
Body=Body & TRIM(Request.form("UserCountry")) & vbCrLf
Body=Body & TRIM(Request.form("UserRefer"))& vbCrLf
Body=Body & TRIM(Request.form("Body"))
%>
Sakova Scientific Co.