<% if Request.Form("message") = "" then %>

Select Your Favorite
Creepy Place in Western Pennsylvania

In keeping with the upcoming month-ending holiday, during the week of October 18th through the 22nd, WPC Daily will feature five creepy locales and offer some scientific facts that may shed some light on these creepy locales. As we did last year, we invite you to vote for your favorite. The winning NCP will be announced on Thurssday, October 28th.

Below are the candidates
Candidate No. 1 - A Foggy Cook Forest
Candidate No. 2 -Tamarack Swamp
Candidate No. 3 - A Forboding Tunnel along the Montour Trail
Candidate No. 4 - 20,000 Bats in an Abandoned Church
Candidate No. 5 - A stalactite-filled cave

Your Email Address:

Your First and Last Name
(please, no duplicate entries):
Your favorite creepy place and why. 
"CC" Yourself:
<% else '------------VARIABLES------------------ mailfrom = Request.Form("email") mailmessage = Request.Form("message") mailsubject = "An online survey response. The Best of WPC Daily - " & Request.Form("subject") if Request.Form("cc") = "yes" then mailto = "jrowley@paconserve.org," & Request.Form("email") else 'cc not checked mailto = "jrowley@paconserve.org" end if '-------------------------------------- 'create the mail object, set the parameters, and send the email set mymail = Server.CreateObject("CDONTS.NewMail") mymail.From = mailfrom mymail.To = mailto mymail.Subject = mailsubject 'Make the message body the user inputted message mymail.Body = mailmessage mymail.Send %>

Thank you for voting for your favorite creepy western Pennsylvania locale.

Click here to get your free "Creatures in Need of a Press Agent" screensaver. You will be prompted with downloading instructions.

Your message has been sent to WPC's Webmaster. The following is a copy of your message:
 

From: <%=mailfrom%>
Subject: <%=mailsubject%>
<%=mailmessage%>
<% end if %>