<%
posted = request.form ("submit")
if posted = "Submit" then
vtoaddress = "president@noida-sindhis.com"
vmailhost = "brinkster\noida-sindhis.com"
vfromaddress = "president@noida-sindhis.com"
vfrompwd = "president"
vsubject = " Contact Form"
vfromname=request.form ("Tname")
vbody = request.form ("Tbody)
vreplyto = request.form ("Temail)"
vmsgbody = vfromname &"
"& vrplyto &"
"& vbody
set objEmail = server.createObject ("Persits.MailSender")
objEmail.username = vfromaddress
objEmail.Password = vfrompwd
objEmail.host = vmailhost
objEmail.From = vfromaddress
objEmail.AddAddress = vtoaddress
objEmail.subject = vsubject
objEmail.Body = vmsgbody
objEmail.IsHTML = True
objEmail.Send
Set objEmail = Nothing
response.write "Thank you, your messeage has been sent."
end if
%>
Feed Back Form