<%
submitrequest = false
if trim(cstr(Request.Form("Submit"))) = "Submit" Then
submitrequest = true
Name = request.form("Name")
EMail = request.form("Email")
Set Mail = Server.CreateObject("Persits.MailSender")
' Mail.Username = "info@meawest.org"'
Mail.Password = "marine"
' enter valid SMTP host
Mail.Host = "127.0.0.1"
' setup from and to web@aient.net
Mail.From = EMail
Mail.FromName = Name
Mail.AddAddress "joblist-request@meawest.org"
Mail.AddReplyTo EMail ' Reply to email address
' Mail.AddBcc "brian.wemple@aient.net"
' message subject
Mail.Subject = "Subscribe from MEA-West job opportunities list."
' message body
Mail.Body = "SUBSCRIBE"
strErr = ""
bSuccess = False
on error resume next ' catch errors
Mail.Send ' send message
if Err <> 0 Then ' error occurred
Response.Write "An error occurred: " & Err.Description
else
bSuccess = True
end if
Set Mail = nothing
end if
if submitrequest then
%>
The Marine Executive Association – West, is a non-profit 501c(19), all-volunteer veteran's organization.
Thank you for registering for the MEA-West job opportunities email list. You will receive an email to <%=EMail%> confirming your registration.
