<% action = Request( "action" ) IF action = "send" THEN DIM strName, strEmail, strCountry, strHow, strFeedback, Mailer strName = request.form("Name") strEmail = request.form("Email") strCountry = request.form("Country") strHow = request.form("How") strFeedback = request.form("Feedback") Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = strName Mailer.FromAddress= strEmail Mailer.RemoteHost = "smtp.seaandsilver.com" Mailer.AddRecipient "Shady Salamah", "marketing@seaandsilver.com" Mailer.Subject = "Feedback from seaandsilver.com" strMsgHeader = "This mail message was sent from seaandsilver.com Feedback Form" & vbCrLf & vbCrLf Mailer.BodyText = strMsgHeader & vbCrLf & "Email: " & strEmail & _ vbCrLf & "Name: " & strName & _ vbCrLf & "Country: " & strCountry & _ vbCrLf & "Heard about us from: " & strHow & _ vbCrLf & "Feedback: " & strFeedback Mailer.SendMail Set Mailer = Nothing END IF %> Sea & Silver - Feedback



Name:
Email:
Country:
How did you hear about us?
Your Feedback:

<% IF action = "send" THEN %>Thank you for submitting your feedback!<% ELSE %><% END IF %>