<%@ Language=VBScript %> <% strHost = "mail.crystone.net" if Request.QueryString("send") = "Ok" then Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.From = "info@plantagon.com" ' From address Mail.FromName = "www.plantagon.com" ' optional Mail.AddAddress "markus@plantagon.com" Mail.AddAddress "info@plantagon.com" ' message subject Mail.Subject = "Membership" ' message body dim texten texten = "Namn: " & Request.Form("name") & vbCrLf texten = texten + "Phone: " & Request.Form("phone") & vbCrLf texten = texten + "E-mail: " & Request.Form("email") & vbCrLf Mail.Body = texten 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 %>

<%if Request.QueryString("send") <> "Ok" then%> Apply for membership in Plantagon Non-Profit Association

Name:
Phone:
E-mail:

This is not a binding application.
We will get back to you shortly with information regarding membership fees and our program.

<%end if%> <% If strErr <> "" Then %>

Error occurred: <% = strErr %> <% End If %> <% If bSuccess Then %> Thank you for your application.

We will get back to you shortly with information regarding membership fees and our program.

Back to the blog <% End If %>

Error occurred: <% = strErr %> <% End If %> <% If bSuccess Then %> Thank you for your application. We will get back to you shortly with information regarding membership fees and our program. Back to the blog <% End If %>

Error occurred: <% = strErr %> <% End If %> <% If bSuccess Then %> Thank you for your application.

We will get back to you shortly with information regarding membership fees and our program.

Back to the blog <% End If %>