<% if request("processChange") then crlf = chr(10) message = "Hi." & crlf message = message & "We have received your address change request. Please contact us" & crlf & "by email if any additional changes need to be made." & crlf & crlf & "Here are the contents of the message we received:" & crlf & crlf message = message & "Name: " & Request("Name") & crlf message = message & "Address: " & Request("Address1") & crlf message = message & "Address2: " & Request("Address2") & crlf message = message & "Institution: " & Request("Institution") & crlf message = message & "City: " & Request("City") & crlf message = message & "State: " & Request("state") & crlf message = message & "Zip/Postal Code: " & Request("zip") & crlf message = message & "Country: " & Request("Country") & crlf message = message & "Phone: " & Request("Phone") & crlf message = message & "FAX: " & Request("FAX") & crlf message = message & "Email: " & Request("Email") & crlf message = message & "Effective date: " if Request("when") = "immediately" then message = message & "Immediately" & crlf else message = message & Request("Activation") & crlf end if Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "BSA Webmaster" Mailer.FromAddress = "bsa@botany.org" Mailer.RemoteHost = "server4" Mailer.AddRecipient Request("email"), Request("email") Mailer.AddBCC "Johanne", "johanne@botany.org" Mailer.AddBCC "Chris", "cchirgwin@lanspeed.com" Mailer.Subject = "BSA Address Change Request" Mailer.ContentType = "text" Mailer.BodyText = message if Mailer.SendMail then 'Response.Write "Mail sent..." 'success screen Response.Write "" Response.Write "Your request for an address change has been processed" Response.Write "
" Response.Write "

" Response.Write "

Your request for an address change has been processed

" Response.Write "
" Response.Write "

Any inquiries? Please contact:
the BSA Webmaster
" Response.Write "(BSA Webmaster)" Response.Write "
or the BSA Business Manager (BSA Webmaster)
" Response.Write "

" else Response.Write "Mail failure. Check mail host server name and tcp/ip connection..." Response.Write "

" & Mailer.Response & "

" end if else %>
BSA Logo

Botanical Society
of America

Current Member
Change of Address Form


This form is specifically for current members for changing their address. If you need to renew or join the society, please see our "Introduction to the BSA" - an online brochure.

Name:
Address:
Please put department on this line, if applicable.
Address:
(extra line):

This is for really long addresses!
Institution:
City: State:
Zip/
Postal Code:
Country:
Phone: FAX:
E-mail: Send confirming e-mail

This change should take place: immediately; later, on


Alternatively, print this form and mail it to:
BSA Business Manager
<% end if %>

Botanical Society of America
PO Box 299
St. Louis, MO 63166-0299
Phone: 314-577-9566
FAX: 314-577-9515