<% if Request("submit") <> "" then Dim objCDO Set objCDO = Server.CreateObject("CDO.Message") Dim objCDOConf Set objCDOConf = Server.CreateObject("CDO.Configuration") With objCDOConf.Fields .Item(cdoSendUsingMethod) = 2 .Item(cdoSMTPServer) = "mail-fwd" .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPconnectiontimeout) = 10 .Update End With Set objCDO.Configuration = objCDOConf ' Be sure to use a valid email addresses below: objCDO.From = "ejescamilla@gmail.com" objCDO.To = "ejescamilla@gmail.com" objCDO.Subject = "FormMail from " & Request.ServerVariables("URL") objCDO.TextBody = "Membership Registration from " & Request.ServerVariables("URL") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Name: " objCDO.TextBody = objCDO.TextBody & Request("Name") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "Address: " objCDO.TextBody = objCDO.TextBody & Request("Address") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "city: " objCDO.TextBody = objCDO.TextBody & Request("city") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "state: " objCDO.TextBody = objCDO.TextBody & Request("state") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "zipcode: " objCDO.TextBody = objCDO.TextBody & Request("zipcode") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "telephone: " objCDO.TextBody = objCDO.TextBody & Request("telephone") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "fax: " objCDO.TextBody = objCDO.TextBody & Request("fax") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & "email: " objCDO.TextBody = objCDO.TextBody & Request("email") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & Request("referral") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.TextBody = objCDO.TextBody & Request("working_committee") objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13) objCDO.Send 'Clean-up Set objCDO = Nothing Set objCDOConf = Nothing ' Happy response. If you would rather, ' change the following to ' Response.Redirect "thanks.html" or similar Response.Write "Your registration has been emailed. Thank you!" Response.End end if %> United African American Ministerial Action Council (UAAMAC)

 

 

Membership Form

 

">

 

Name 
Address 
City
State
Zipcode 
Telephone 
Fax 
Email