<%@ LANGUAGE="VBScript" %> <%Option Explicit%> <% Dim con, rs, strSql If Request.Form("cmdSubmit") <> "" Then 'The user has submitted the page, so process the Newsletter subscription request 'Connect to the database Set con = GetDBConnection() 'Verify that the email address does not already exist in the database strSql = "SELECT FName, LName, Email FROM Subscribers WHERE Email = '" + Request.Form("txtEmail") + "'" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open strSql, con, 1, 2 If rs.EOF Then 'The email address does not already exist, so add it rs.AddNew() rs("FName") = Request.Form("txtFName") rs("LName") = Request.Form("txtLName") rs("Email") = Request.Form("txtEmail") rs.Update() 'The email address has been added, show confirmation. 'MODIFY the text below is displayed when an email is added to the newsletter %> Successfully added to the newsletter <% Else 'The email address already exists in the database 'MODIFY the text below is displayed when a person tries to enter the same email address ' a second time. %> You have already been added to the JA CHM Newsletter database, Thank you for your interest. <% End If 'Clean up database objects rs.Close() Set rs = Nothing con.Close() Set con = Nothing Else 'MODIFY the text below is displayed when the page is first loaded. %>
 
MAILING LIST
 
The Jamaica Clearing-House Mechanism we like to keep our researchers and visitors informed.
 

One of the information services we provide is periodically emailing our information users up-to-date with current news, views and meeting/conference notifications related to biodiversity and its conservation. We also post on our website a monthly feature article which is either prepared by the Natural History Division staff or is contributed by CHM colleagues and friends.

If you would like to join the Jamaica CHM Mailing List, please use the form below to register to the list. 

 
 
........................................................................................................................................................................................................................................................
 
First Name:    
 
Last Name:     
 
                                 Email:                 * (required)

<% End If %>