<%
mailsent = ""
'response.write request("ta_feedback") & "tezt"
'response.end
If request("emailid") <> "" And request("ta_feedback")<> "" Then
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Feedback from Travelerschoice.com"
myMail.From = request("emailid")
myMail.To="pondy@travelerschoice.in;pnytchoice@gmail.com;"
myMail.Bcc = "shahul_j@yahoo.com"
myMail.HTMLBody = "
Sender Mail: " & request("emailid") & "
Sender Feedback: " & request("ta_feedback") &"
"
'myMail.Configuration.Fields.Item _
'("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
'myMail.Configuration.Fields.Item _
'("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
'="smtp.server.com"
'Server port
'myMail.Configuration.Fields.Item _
'("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
'=25
'myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
mailsent = "
