0001: <% @Language = "VBScript" %>
0002: 
0003: <!-- #include FILE="include/adovbs.inc" -->
0004: <!-- #include FILE="include/constants.inc" -->
0005: <!-- #include FILE="include/funcs.asp" -->
0006: 
0007: <%
0008: message = Trim(Request.Form("Message"))
0009: from =  Request.Form("From")
0010: messageDate = Request.Form("MessageDate")
0011: 
0012: If message <> "" Then
0013: 	Set rs = Server.CreateObject("ADODB.Recordset")
0014: 	rs.Open "mmMessageBoard", conn, adOpenDynamic, adLockOptimistic, adCmdTable 
0015: '		rs.Open "mmMessageBoard", conn, adOpenDynamic, adLockOptimistic, adCmdText
0016: 	rs.AddNew
0017: 	rs("Message").Value = message
0018: 	rs("PostedBy").Value = from
0019: 	rs("MessageDate").Value = messageDate
0020: 	rs("Season").Value = season
0021: 	rs.Update
0022: 	rs.Close
0023: 	Set rs = Nothing
0024: 
0025: IF emailmsgboardpostings = "YES" Then
0026: notifyemail = "jt@folga.org"
0027: EmailSubject = "March Madness - Message Board Posting"
0028: msg  = From & " posted the following message:<br><br>"
0029: msg = msg & message & "<br><br>"
0030: msg = msg & "<a href=""http://folga.org/ncaa"">Click here to go to March Madness web site</a>"
0031: emailaddress = ""
0032: 
0033: 
0034:    sendEmail notifyemail, "", "", EmailSubject, msg, "HTML", emailaddress  
0035: End If
0036: End If
0037: %>	
0038: 
0039: <script language="JavaScript">
0040: 	var l = opener.location
0041: 	opener.location = l
0042: 	window.opener.focus()
0043: 	window.close()	
0044: </script>