<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% 'setup connection string set cn=server.createobject("ADODB.Connection") cn.open="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("..\db\mccullohreunion.mdb") & ";Persist Security Info=False" if request("do")="submit" then fname=request.form("fname") lname=request.form("lname") email=request.form("email") submit=true if fname<>"" then fname=replace(fname,"'","*ap*") end if if lname<>"" then lname=replace(lname,"'","*ap*") end if if email<>"" then email=replace(email,"'","*ap*") end if if email="" or (instr(email,"@")=false) or (instr(email,".")=false) then strErr="Invalid Email Address" submit=false end if if submit then sql="INSERT INTO tbEmailList (FirstName,LastName,Email,DateInserted) VALUES ('" & fname & "'," & "'" & lname & "'," & "'" & email & "'," & "#" & now() & "#)" cn.execute(sql) else session("strErr")=strErr response.redirect("?do=rqemail") end if end if%> Sign Up






Sign up



<%if request("do")="submit" then%> Thanks! Your email address has been submitted.

Add another email address | Back to homepage <%else%> <%if session("strErr")<>"" then%> <%=session("strErr")%>
<%session("strErr")=""%> <%else%>
<%end if%> Would you like to be notified when new information is added to this website? If so please sign up by entering your information below. (We won't give or sell your e-mail address to anyone else. We anticipate sending no more than one or two update e-mails each month.)

First Name
 Last Name
Email
<%end if%>