<% if request.servervariables("Request_method") = "POST" then dim oSMTP On Error Resume Next Set oSMTP = Server.CreateObject("SMTPControl.SMTP") oSMTP.Server = "mail.jenneyresidency.in" oSMTP.MailFrom = "feedback@jenneyresidency.in" oSMTP.SendTo = "booking@jenneyresidency.in" oSMTP.MessageSubject = "Customer Feedback" oSMTP.MessageText = "Name: " & request.form("name") & vbcrlf & "Contact phone: " & request.form("phone") & vbcrlf & "eMail id: " & request.form("mail") & vbcrlf & "Address: " & request.form("address") & vbcrlf & "Comments: " & request.form("comments") 'response.Write "Name: " & request.form("name") & vbcrlf & "Contact phone: " & request.form("phone") & vbcrlf & "eMail id: " & request.form("mail") & vbcrlf & "Address: " & request.form("address") & vbcrlf & "Comments: " & request.form("comments") 'response.End response.Write "BF:" oSMTP.SendEmail response.Write "AF:" If Err.Number <> 0 Then Response.Write "Error " & Err.Number & ": " & Err.Description Else Response.Write "" End If end if %>


		Online Feedback Form
	Name :
	Contact Phone :
	E-Mail :
	Address :
	Query/Comments :