0001: <% @Language = "VBScript" %>
0002: 
0003: <!-- #include FILE="include/adovbs.inc" -->
0004: <!-- #include FILE="include/constants.inc" -->
0005: 
0006: <%
0007: ReturnTo = Request.QueryString("From")
0008: message = Trim(Request.Form("Message"))
0009: from =  Request.Form("EmailAddress")
0010: vote = Request.Form("Vote")
0011: messageDate = Request.Form("MessageDate")
0012: 
0013: 	Set rs = Server.CreateObject("ADODB.Recordset")
0014: 	rs.Open "mmSurvey", conn, adOpenDynamic, adLockOptimistic, adCmtTable 
0015: 	rs.AddNew
0016: 	rs("Message").Value = message
0017: 	rs("EmailAddress").Value = from
0018: 	rs("MessageDate").Value = messageDate
0019: 	rs("Season").Value = season
0020: 	rs("Vote").Value = vote
0021: 	rs.Update
0022: 	rs.Close
0023: 	Set rs = Nothing
0024: 
0025: Response.Redirect(ReturnTo)
0026: 
0027: %>