%@ Language=VBScript%>
<%
Response.Buffer = true
Response.Clear
if request.form("Submitflag") = "true" then
Name = (trim(Request("name")))
Email = (trim(Request("emailid")))
comment = (trim(Request("comment")))
thebody=""
thebody=thebody & ""
thebody=thebody & "
Name : " & name & "
Email : " & Email & "
Comment : " & comment & "
"
thebody=thebody & ""
thebody=thebody & ""
set MyMail = server.CreateObject("CDO.MESSAGE")
myMail.TEXTBODY= 0
'myMail.MailFormat = 0
myMail.Subject ="Feedback Form"
mymail.From =Email
'Mymail.To = "info@bawarchitolla.com"
Mymail.To = "info@bawarchitolla.com"
Mymail.cc = "marketing@yahoo.com"
'Mymail.cc = "vivek_dixit2003@yahoo.com"
'Mymail.Bcc= "keshav@infovisiongroup.com"
'myMail.CreateMHTMLBody "http://www.ktsindia.com/mail.htm"
myMail.TEXTBody =theBody
myMail.Send
set Mymail =nothing
thebody=""
%>
<%
end if
%>
Bawarchi Tolla