<%'Include Data Connection%> <%'Include ADO constants include file for VBScript%> <% 'open data connection OpenConn() %> <% dim strUserFeedBack dim strSubscribedStatus 'set the status of the subscribing transaction strSubscribedStatus = Session("UserIsSubscribedStatus") 'if the subscribing transaction was successfull then... If strSubscribedStatus = "ok" Then 'alert the user of the transaction's success status (good) strUserFeedBack = "*** You have been successfully subscribed. ***" Else 'if the strSubscribedStatus variable is different than an empty string then... If strSubscribedStatus <> "" And IsNumeric(strSubscribedStatus) Then 'alert the user of the transaction's success status (bad) strUserFeedBack = "*** An error has occured during the subscribing process, please try again later.***" Else End If End If %>

If you would like to be notified by e-mail when a new News Release is available on our Web site, please subscribe to this service below.

First Name:
Last Name:
Organization:
Email:
">
<%=DisplayPostingTypeCheckboxes()%>



<%=strUserFeedBack%>
<% 'close data connection Call CloseConn() %>