<% ' 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:",_ "Newsletter%20Registration.htm",_ "Return to the form." End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> Sign Up Here for the eNewsletter

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. 

 

Due to a server change, our interactive form is currently unavailable, so please E-mail your responses directly to pr@eriemetroparks.org.

To ensure delivery (so your message does not get caught in a Spam filter), please type eNewsletter into the subject line of your message.  Thanks!

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)?  

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


Please see our privacy statement.

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