<% ' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1252 Session.LCID = 1033 Err.Clear strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Cannot create connection" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Cannot create record set" fp_conn.Open Application("Newsletter31_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "Results", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Cannot open record set" fp_rs.AddNew FP_DumpError strErrorUrl, "Cannot add new record set to the database" Dim arFormFields0(12) Dim arFormDBFields0(12) Dim arFormValues0(12) arFormFields0(0) = "See1" arFormDBFields0(0) = "See1" arFormValues0(0) = Request("See1") arFormFields0(1) = "See2" arFormDBFields0(1) = "See2" arFormValues0(1) = Request("See2") arFormFields0(2) = "Street" arFormDBFields0(2) = "Street" arFormValues0(2) = Request("Street") arFormFields0(3) = "Speed" arFormDBFields0(3) = "Speed" arFormValues0(3) = Request("Speed") arFormFields0(4) = "Heard" arFormDBFields0(4) = "Heard" arFormValues0(4) = Request("Heard") arFormFields0(5) = "Your Name" arFormDBFields0(5) = "Your_Name" arFormValues0(5) = Request("Your Name") arFormFields0(6) = "City" arFormDBFields0(6) = "City" arFormValues0(6) = Request("City") arFormFields0(7) = "Email" arFormDBFields0(7) = "Email" arFormValues0(7) = Request("Email") arFormFields0(8) = "Zip" arFormDBFields0(8) = "Zip" arFormValues0(8) = Request("Zip") arFormFields0(9) = "See" arFormDBFields0(9) = "See" arFormValues0(9) = Request("See") arFormFields0(10) = "State" arFormDBFields0(10) = "State" arFormValues0(10) = Request("State") arFormFields0(11) = "Comments" arFormDBFields0(11) = "Comments" arFormValues0(11) = Request("Comments") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type" End If If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name" End If FP_SaveFieldToDB fp_rs, Now, "Timestamp" If Request.ServerVariables("REMOTE_USER") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "User_name" End If fp_rs.Update FP_DumpError strErrorUrl, "Cannot update the database" fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Form Confirmation",_ "Thank you for submitting the following information:",_ "Newsletter3.asp",_ "Return to the form." End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> Sign Up Here for the E-Mail Newsletter

Sign Up Here for the
Erie MetroParks E-mail Newsletter

In a continuing effort to stretch operating dollars, EMP will change how programs and events are announced, beginning in 2007.  Instead of the full page paid ad in the Sandusky Register, smaller advertisements and a new E-mail newsletter will be available free to all who subscribe.  The monthly E-mail will provide readers with programs and events descriptions, plus announcements and news releases.  All of the same program information can be found here online anytime. 

 

Fill out this survey and it submit it below.  Look for your E-mail Newsletter starting in December.

If you can't use the form, you may e-mail your responses directly to pr@eriemetroparks.org.

Your name:

E-mail Address: 

Street Address:  

City:  State:    Zip:

 

How did you hear about the E-mail Newsletter?       

Do you have high speed Internet (cable, DSL, wireless, satellite, air card)?   Yes  No

What do you want to see in the E-mail Newsletter?

Programs and Events Info 
News and Announcements  
Other

Please let us know of any suggestions or other information that you'd like to add regarding the E-mail Newsletter:

 

Before you hit the Submit button, here are some things you need to know:

Please only click the Submit button ONCE to prevent duplicate entries.  Thanks!

Technical problems with this page?  Please contact the Web Designer.