Prosperity

<% dim strFullName, strEmail, strError, objEmail if ucase(trim(request.serverVariables("REQUEST_METHOD"))) = "POST" then ' retrieve form values strFullName = trim(request.form("fullName")) strEmail = trim(request.form("email")) ' validate form values if strFullName = "" then strError = strError & ",noName" if strEmail = "" then strError = strError & ",noEmail" ' send email if strError = "" then set objEmail = server.createObject("CDO.Message") with objEmail .from = "join@deliveringprosperity.com" .to = "bfedorko@nysanet.org" .subject = "Request to Join the Delivering Prosperity Email List" .textBody = "Please add the following individual to the Delivering Prosperity email list:" & vbCrLf .textBody = .textBody & vbCrLf .textBody = .textBody & "Name: " & strFullName & vbCrLf .textBody = .textBody & "Email: " & strEmail & vbCrLf .send() end with server.transfer "join_success.asp" end if end if %> Prosperity

>> Contact Us

>>Join Email List

Please fill out the information below to join our mailing list.

<% if not strError = "" then %>

ERROR
<% if instr(strError, "noName") then response.write "Name is required
" & vbCrLf %> <% if instr(strError, "noEmail") then response.write "Email address is required
" & vbCrLf %>

<% end if %>