%
name=request.form("name")
email=request.form("email")
phone=request.form("phone")
fax=request.form("fax")
message1=request.form("message")
message= "Name :- " &name
message=message+"
Email ID:-"&email
message=message+"
Contact Information :- Phone :"&phone &" Fax:-"&fax
message=message+"
Message/ Suggestions :-"&message1
subject=" Feed back for techindia.com "
Dim objMail 'This holds the CDONTS NewMail object
Set objMail = CreateObject("CDONTS.NewMail") 'Creates an instance of the CDONTS.Newmail on the server
objMail.From= "feedback@techindia.com"
objMail.To= "info@allstategroup.com" 'Set the mail ID to which the mail is being sent
objMail.Cc= "allstategroup@gmail.com" 'Carbon Copy to be sent if any
'objMail.Bcc= "allstategroup@gmail.com" 'Blind Carbon Copy to be sent if any
objMail.Subject=subject 'Set the mail Subject of the mail
objMail.BodyFormat=0
objMail.MailFormat=0
objMail.Body= message 'Set the Body of the message
objMail.Send 'Send the email
Set objMail=nothing 'Free up the server resources
%>