%@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 'session("vfname").Abandon %>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||