<%@ Language = VBScript 
    EnableSessionState = False %>

<%  

    Dim boolWasPosted

    'Indicate whether or not this page was invoked by a POST or not.
    boolWasPosted = FALSE

    If( Request.ServerVariables("CONTENT_LENGTH") <> 0 )Then
      boolWasPosted = TRUE
	  
		' function to clean up data
		
		Function StripSymbols(sString)
			Dim nCharPos, sOut, nChar
			nCharPos = 1
			sOut = ""
			For nCharPos = 1 To Len(sString)
				nChar = Asc(Lcase(Mid(sString, nCharPos, 1)))
				If ((nChar > 47 And nChar < 58) or (nChar > 96 And nChar < 123) or nChar = 32) Then
					sOut = sOut & Mid(sString, nCharPos, 1)
				End If
			Next
			StripSymbols = sOut
		End Function
	 
      ' Variables for sending mail message.
      Dim objCDOMail, strBody, strName, strEmail, strAddress, strCategory, strBotBreaker, strBotBreakerArea, strIPAddress, strUserAgent, strFormReferrer, objConn, strQuery
      ' Get form field values.
      strName   = StripSymbols(Request.Form("Name"))
	  strAddress   = StripSymbols(Request.Form("Address")) & " - " & StripSymbols(Request.Form("City")) & ", " & Request.Form("State") & ", " & Request.Form("Zip")
	  strEmail   = Request.Form("Email")
	  strCategory   = Request.Form("Category")

	  strBotBreaker = Request.Form("botBreaker")
	  strBotBreakerArea = Request.Form("botBreakerArea")
	  
	  IF strBotBreaker <> "" OR strBotBreakerArea <> "" THEN
	  
		  strIPAddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
			  If strIPAddress="" Then strIPAddress = Request.ServerVariables("REMOTE_ADDR")
			  
			  strUserAgent = Request.ServerVariables("HTTP_USER_AGENT")
			  strFormReferrer = Request.ServerVariables("HTTP_REFERER")
			  
			  ' Construct body of mail message.
			  strBody = "IP Address:       " & strIPAddress & vbCrlf & vbCrlf & _
						"User Agent:       " &  strUserAgent & vbCrLf & vbCrLf & _
						"Form:             " & strFormReferrer & vbCrlf
		
			  ' Create mail message and send.
			  Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
			  objCDOMail.From       = "WestConn Bot Notifier <web@wcsu.edu>"
			  objCDOMail.To         = "shpuntj@wcsu.edu;veillettes@wcsu.edu"
			  objCDOMail.Subject    = "Form Bot " & strFormReferrer
			  objCDOMail.Body       = strBody
			  objCDOMail.MailFormat = 0 ' CdoMailFormatMime     
			  objCDOMail.Send
			  Set objCDOMail = Nothing
			  
			 ' Create database connection and insert new record.
			  Set objConn = Server.CreateObject("ADODB.Connection")
			  objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\wwwdata\technology\botBreaker.mdb;"
			  strQuery = "INSERT INTO Results(UserAgent, IPAddress, Message, Stamp) values "
			  strQuery = strQuery & "('" & strUserAgent & "', '" & strIPAddress & "', '" & strFormReferrer & "', '" & strDateTime & "');"
			  objConn.Execute strQuery
			  objConn.close
			  Set objConn = Nothing
	  	  
      ELSE
      
      ' Construct body of mail message.
      strBody = "Name:                  " & strName & vbCrlf & vbCrlf & _
	  			"Address:               " & strAddress & vbCrlf & vbCrlf & _
				"Email:                 " & strEmail & vbCrlf & vbCrlf & _
				"Category:              " & strCategory & vbCrlf & vbCrlf

      ' Create mail message and send.
      Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
      objCDOMail.From       = "WestConn Form Submission" & "<web@wcsu.edu>"
      objCDOMail.To         = "shpuntj@wcsu.edu;mcdonoughe@wcsu.edu"
   	  objCDOMail.Subject    = "One Book One Community Essay Contest"
   	  objCDOMail.Body       = strBody
   	  objCDOMail.MailFormat = 0 ' CdoMailFormatMime     
   	  objCDOMail.Send
   	  Set objCDOMail = Nothing

      ' Variables for inserting record into database.
      Dim strDateTime

	  ' Get date and time for stamp.
	  strDateTime = Date & " " & Time

      ' Create database connection and insert new record.
   	  Set objConn = Server.CreateObject("ADODB.Connection")
	  objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\onebookdanbury\2010\essay.mdb;"
	  strQuery = "INSERT INTO Results(applicantName, applicantAddress, applicantEmail, applicantCategory, Stamp) values "
	  strQuery = strQuery & "('" & strName & "', '" & strAddress & "', '" & strEmail & "', '" & strCategory & "', '" & strDateTime & "');"
	  objConn.Execute strQuery
	  objConn.close
      Set objConn = Nothing
      
      Response.Redirect "http://www.onebookdanbury.org/2010/upload-application.asp?email=" & strEmail & ""
	  
	  END IF
    Else

    End If
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office"><!-- InstanceBegin template="/Templates/OBOC2010.dwt" codeOutsideHTMLIsLocked="false" -->
<!-- DW6 -->
<head>
<!-- Copyright 2005 Macromedia, Inc. All rights reserved. -->
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>One Book, One Community - Danbury, CT</title>
<link rel="stylesheet" href="2col_leftNav.css" type="text/css" />
<!-- InstanceParam name="id" type="text" value="content" -->
<style type="text/css">
.style1 {
				text-indent: -.25in;
				font-size: 11.0pt;
				font-family: Calibri, sans-serif;
				margin-left: .5in;
				margin-right: 0in;
				margin-top: 0in;
				margin-bottom: .0001pt;
}
</style>
</head>
<!-- The structure of this file is exactly the same as 2col_rightNav.html;
     the only difference between the two is the stylesheet they use -->
<body>
<div id="container">
<div id="masthead">

</div>
<!-- end masthead -->

<div id="content"><br />
  <h2 id="pageName"><!-- InstanceBeginEditable name="PageName" -->Entry Form <!-- InstanceEndEditable --></h2>
  <div class="story"><!-- InstanceBeginEditable name="Content" -->
    <h2>Please complete the following </h2>
    <ul>
      <p style="mso-list: l0 level1 lfo1" class="style1"><![if !supportLists]>
		<span style="font-family:Symbol;mso-fareast-font-family:Symbol;mso-bidi-font-family:
Symbol"><span style="mso-list:Ignore">·<span style="font:7.0pt &quot;Times New Roman&quot;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
		</span></span></span><![endif]>One essay per person</p>
		<p style="mso-list: l0 level1 lfo1" class="style1"><![if !supportLists]>
		<span style="font-family:Symbol;mso-fareast-font-family:Symbol;mso-bidi-font-family:
Symbol"><span style="mso-list:Ignore">·<span style="font:7.0pt &quot;Times New Roman&quot;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
		</span></span></span><![endif]>No more than 1,500 words</p>
		<p style="mso-list: l0 level1 lfo1" class="style1"><![if !supportLists]>
		<span style="font-family:Symbol;mso-fareast-font-family:Symbol;mso-bidi-font-family:
Symbol"><span style="mso-list:Ignore">·<span style="font:7.0pt &quot;Times New Roman&quot;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
		</span></span></span><![endif]>Entry must be submitted online</p>
		<p style="mso-list: l0 level1 lfo1" class="style1"><![if !supportLists]>
		<span style="font-family:Symbol;mso-fareast-font-family:Symbol;mso-bidi-font-family:
Symbol"><span style="mso-list:Ignore">·<span style="font:7.0pt &quot;Times New Roman&quot;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
		</span></span></span><![endif]>Essay must be received by Oct. 6, 2011</p>
    </ul>
</div>

    <form name="theForm" method="post" action="entry.asp" onSubmit="var the_result = checkMandatory(); return the_result;">
      <div id="botBreaker"><h3>Bot Breaker</h3><br>
        Please do not fill in the following two form fields, they are used to prevent spam
        <input type="text" name="botBreaker" size="30" maxlength="50" />
        <br/>
        <textarea name="botBreakerArea"></textarea>
        </div>
      <p>
        <label>Name:<br />
          <input name="name" type="text" size="52" "id="name" />
        </label>
      </p>
      <p>
        <label>Address:<br />
          <input name="address" type="text" size="52" id="address" />
        </label>
      </p>
      <p>
        <label>City:
          <br />
          <input name="city" type="text" size="52" id="city" />
        </label>
      </p>
      <p>
        <label>State:
          <br />
          <select name="state" size="1" id="state">
            <option value="AL">AL</option>
            <option value="AK">AK</option>
            <option value="AR">AR</option>
            <option value="AS">AS</option>
            <option value="AZ">AZ</option>
            <option value="CA">CA</option>
            <option value="CO">CO</option>
            <option value="CT" selected="selected">CT</option>
            <option value="DE">DE</option>
            <option value="DC">DC</option>
            <option value="FL">FL</option>
            <option value="GA">GA</option>
            <option value="Hi">HI</option>
            <option value="ID">ID</option>
            <option value="IA">IA</option>
            <option value="IL">IL</option>
            <option value="IN">IN</option>
            <option value="KS">KS</option>
            <option value="KY">KY</option>
            <option value="LA">LA</option>
            <option value="MA">MA</option>
            <option value="MD">MD</option>
            <option value="MI">MI</option>
            <option value="MN">MN</option>
            <option value="MO">MO</option>
            <option value="MS">MS</option>
            <option value="MT">MT</option>
            <option value="NC">NC</option>
            <option value="ND">ND</option>
            <option value="NE">NE</option>
            <option value="NH">NH</option>
            <option value="NJ">NJ</option>
            <option value="NM">NM</option>
            <option value="NV">NV</option>
            <option value="NY">NY</option>
            <option value="OH">OH</option>
            <option value="OK">OK</option>
            <option value="OR">OR</option>
            <option value="PA">PA</option>
            <option value="RI">RI</option>
            <option value="SC">SC</option>
            <option value="SD">SD</option>
            <option value="TN">TN</option>
            <option value="TX">TX</option>
            <option value="UT">UT</option>
            <option value="VA">VA</option>
            <option value="VI">VI</option>
            <option value="WA">WA</option>
            <option value="WI">WI</option>
            <option value="WV">WV</option>
            <option value="WY">WY</option>
          </select>
        </label>
      </p>
      <p>
        <label> Zip:<br />
          <input name="zip" type="text" id="zip" size="20" maxlength="10" />
        </label>
      </p>
      <p>
        <label>Email:<br />
          <input name="email" type="text" size="52" id="email" />
        </label>
      </p>
      <p>
        <label> Submission Category (select one): <br />
          <input type="radio" name="category" id="category" value="DHS" />
        High School Student</label><br />
        <label>
          <input type="radio" name="category"  id="category"value="WCSU" />
        Western Connecticut State University Student (WCSU)</label>
        <br />
        <label>
          <input type="radio" name="category" id="category" value="Community" />
      Community (age 18 and over and not a high school or WCSU student)</label></p>
      <p>
        <label>
          <input type="submit" name="Submit" value="Go to step 2 and upload essay" />
        </label>
        <label>
          <input name="Clear" type="reset" id="Clear" value="Clear Form" />
        </label>
        <br />
      </p>
    </form>
<!-- InstanceEndEditable --><br /><br />
      <div id="footer"><strong>One Book, One Community<br />
      </strong>is a partnership comprised of the <a href="http://www.danburylibrary.org" target="_blank">Danbury Library</a>, <a href="http://www.danbury.k12.ct.us/" target="_blank">Danbury Public Schools</a>,
					<a href="http://woosterschool.org/">Wooster School</a> and 
					<br />
					<a href="http://www.wcsu.edu/" target="_blank">Western Connecticut State University</a>.</div>
	  <br />
  </div>
<!--end content -->
<div id="navBar">
  <div id="sectionLinks" style="left: 0px; top: 0px">
    <ul>
      <li></li>
      <li><a href="index.htm">Home</a></li>
      <li><a href="book.html">The Book </a></li>
      <li><a href="author.html">The Author </a></li>
      <li><a href="discussions.html">Community Book Discussions </a></li>
	  <li><a href="questions.html">Discussion Questions </a></li>
      <li><a href="events.html">Events</a></li>
      <li><a href="essay.html">Essay / Video Contest</a></li>
      <li><a href="firstyear.html">Info for First-Year WCSU Students  </a></li>
      <li><a href="sponsors.html">Our Sponsors</a></li>
      <li><a href="contact.html">About / Contact Us </a></li>
      <li>&nbsp;</li>
      <li><a href="directions.html">Venues, Directions &amp; Maps</a></li><li>&nbsp;</li>
      <li><a href="suggestions.html">Suggest a book for 2013</a></li>
	  <li><a href="http://www.facebook.com/pages/One-Book-One-Community-Danbury/114130478608"><br />
          <br />
        <img src="images/Facebook.gif" alt="Facebook" border="0" longdesc="http://www.facebook.com/pages/One-Book-One-Community-Danbury/114130478608" width="65" height="64" /></a></li>
    	<div id="navBarTitle">
						Prior Programs:
          </div>
		<li><a href="http://www.onebookdanbury.org/2008/"><span class="style13">2008: 
		<em>The Namesake</em></span></a></li>
		<li><a href="http://www.onebookdanbury.org/2009/"><span class="style13">2009: 
		<em>Hurry Down Sunshine</em></span></a></li>
		<li><a href="http://www.onebookdanbury.org/2010/"><span class="style13">2010: 
		<em>The Things They Carried</em></span></a></li>
    </ul>
    <br />
	<br />
  </div>
</div>
  <div id="headlines"></div>

<!--end navbar -->
<br />
</body>
<!-- InstanceEnd --></html>