% ' change to address of your own SMTP server strHost = "mail.fortworthchamber.com" If Request("Send") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.From = Request("Nominated Email") ' From address Mail.FromName = Request("nominated contact") ' optional Mail.AddAddress Request("To") ' message subject Mail.Subject = "Wants to Join the Chamber" ' message body Mail.Body = "Business: " & Request("nominated business") & chr(13) & chr(10) Mail.Body = Mail.Body & "Contact: " & Request("nominated contact") & chr(13) & chr(10) Mail.Body = Mail.Body & "Address: " & Request("nominated Address1") & chr(13) & chr(10) Mail.Body = Mail.Body & "City: " & Request("Nominated City") & chr(13) & chr(10) Mail.Body = Mail.Body & "State: " & Request("Nominated State") & chr(13) & chr(10) Mail.Body = Mail.Body & "Zip: " & Request("Nominated Zip") & chr(13) & chr(10) Mail.Body = Mail.Body & "Phone: " & Request("Nominated Phone") & chr(13) & chr(10) Mail.Body = Mail.Body & "Fax: " & Request("Nominated Fax") & chr(13) & chr(10) Mail.Body = Mail.Body & "Email: " & Request("Nominated Email") & chr(13) & chr(10) Mail.Body = Mail.Body & "Website: " & Request("Website") & chr(13) & chr(10) Mail.Body = Mail.Body & "Primary Business Activity: " & Request("PrimaryBusiness") & chr(13) & chr(10) Mail.Body = Mail.Body & "Questions: " & Request("Questions") & chr(13) & chr(10) strErr = "" bSuccess = False On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If End If %>
![]() |
![]() |
![]() |
||||||
![]() |
![]() |
|||||||
![]() |
|
|||||||
Please complete the form below and we will have a membership representative contact you regarding your membership.
For more information contact: |
||||||||
|
||||||||
| 777 Taylor Street, Suite 900 |
||||||||