<%response.buffer=true%>
FEEDBACK
<%
RedURL=Request.Querystring("RedURL")
opt=Request.Querystring("opt")
strFrom=Request.Form("MailFrom")
strFromNm=Request.Form("MailFromName")
if strFrom="" then strFrom=Request.Querystring("from")
strDetails=Request.Form("Details")
strSubj = "Feedback from " & strFromNm
strTo = "info@odisha.com"
if opt = 1 then
dim mail
set mail=Server.CreateObject("CDO.Message")
mail.HTMLBody=strDetails
'set mail = Server.CreateObject("CDONTS.NewMail")
'mail.body = strDetails
'mail.BodyFormat = 0 ' CdoBodyFormatHTML
'mail.MailFormat = 0 ' CdoMailFormatMime
mail.From = strFrom
mail.To = strTo & "<" & strTo & ">"
mail.Subject = strSubj
'mail.Cc = strCC
'mail.Bcc="thekollandgang007@yahoo.co.in"
mail.Send
set mail = nothing
Response.Write "Successfully Sent the Mail."
if RedURL = "" then
RedURL="feedback.asp"
end if
Response.redirect RedURL & "?success=1&to=" & strTo
end if
%>
