% 'Option Explicit if not isempty(request.Form()) then Dim objNewMail ' First create an instance of NewMail Object Set objNewMail = Server.CreateObject("CDONTS.NewMail") ' After an instance of NewMail Object has been created. ' If you like you can use this one line of code to send the mail. ' objNewMail.Send From, To, Subject, Message ' or you can give every value seperate objNewMail.From = request.form("email") objNewMail.To = "info@digitecme.com" ' Please replace the "From" and "To" email addresses with your ' own valid email address. I recieve too many emails ' from people who test this sample and keep sending ' emails to test@devasp.com, or they keep the "From" property ' as webmaster@devasp.com and I get response of ' undeliverable emails. ' NOTE: If the "To" or "From" properties of CDONTS contain ' invalid email address you will not recieve the email. objNewMail.Subject = "feedback." objNewMail.Body = request.form("message") objNewMail.Send ' After the Send method, NewMail Object become Invalid ' You should set it to nothing to relase the memory Set objNewMail = Nothing ' If you want to send another mail ' you have to create a new instance of NewMail Object again. msg="Email has been sent" end if %>