%@language=vbscript%>
<%
vfname = request.form("Email_Id")
vadd = request.form("details")
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "localhost"
JMail.Sender = "customerservice@silverresorts.co.in"
JMail.Subject = "Feedback Detail from " & vfname & " " & vlname
JMail.AddRecipient "feedback@silverresorts.co.in"
JMail.AddRecipient "gayatrimicrosystems@gmail.com"
JMail.Body = vpdetail & vbCRLF & vprdetail
JMail.Priority = 1
Dim el
'add every form element and its value to the email
FOR EACH el IN Request.Form
JMail.appendtext( el & ": " & Request.form(el) & vbcrlf )
NEXT
JMail.Execute
%>