<%@ Language=VBScript %> <% Select Case Request.Form("cmd") Case "del" If Request.Form("DelEmail") <> "" Then strSQL = "DELETE * FROM tblNewsList WHERE Email LIKE " & chr(34) & Request.Form("DelEmail") & chr(34) & ";" RunSQL strSQL ErrMsg = "Your email has been removed from our list." Else ErrMsg = "Please enter an email address." Response.Redirect "enews.asp" End If Case "add" dim oSender Set oSender = New cSender oSender.LoadFromEmail(Request.Form("Email")) Select Case Session("ErrNum") Case 10000 oSender.FirstName = Request.Form("FirstName") oSender.LastName = Request.Form("LastName") oSender.Email = Request.Form("Email") oSender.DateCreated = Now() oSender.Store ErrMsg = "Thank you for registering for our monthly newsletter." Case 10001 ErrMsg = "This email has already been registered more than once." Case Else oSender.FirstName = Request.Form("FirstName") oSender.LastName = Request.Form("LastName") oSender.Email = Request.Form("Email") oSender.DateCreated = Now() oSender.Store ErrMsg = "This email has already been registered. We have updated your information." End Select End Select %> E-Newsletter signup

Register to receive our newsletter via email.

First Name:


Last Name:


Email:



If you are recieving our newsletter, and wish to be removed from this list, please enter your email below.

<%=ErrMsg%>

<% Dim Archive Set Archive = New cArchive If Archive.GetPubList > 0 Then For Each Pub in Archive.Publist.Items With Pub %> <%If PubMonth < 10 Then Response.Write("0")%><%=.PubMonth%><%=.Year%>
<% End With Next Else %> Coming Soon!
Please sign up and receive our first newsletter! <%End If%>