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: 
0009: ID = Request.QueryString("ID")
0010: 
0011: message = Trim(Request.Form("Message"))
0012: from =  Request.Form("From")
0013: messageDate = Request.Form("MessageDate")
0014: 
0015: If message <> "" Then
0016: IF ID = "" Then
0017: 	Set rs = Server.CreateObject("ADODB.Recordset")
0018: 	rs.Open "mmMessageBoard", conn, adOpenDynamic, adLockOptimistic, adCmdTable 
0019: '		rs.Open "mmMessageBoard", conn, adOpenDynamic, adLockOptimistic, adCmdText
0020: 	rs.AddNew
0021: 	rs("Message").Value = message
0022: 	rs("PostedBy").Value = from
0023: 	rs("MessageDate").Value = messageDate
0024: 	rs("Season").Value = season
0025: 	rs.Update
0026: 	rs.Close
0027: 	Set rs = Nothing
0028: 
0029: 	IF emailmsgboardpostings = "YES" Then
0030: 		notifyemail = "jt@folga.org"
0031: 		EmailSubject = "March Madness - Message Board Posting"
0032: 		msg  = From & " posted the following message:<br><br>"
0033: 		msg = msg & message & "<br><br>"
0034: 		msg = msg & "<a href=""http://folga.org/ncaa"">Click here to go to March Madness web site</a>"
0035: 		emailaddress = ""
0036: 
0037: 
0038: 		sendEmail notifyemail, "", "", EmailSubject, msg, "HTML", emailaddress  
0039: 	End If
0040: Else ' ID <> ""	
0041: 
0042: message = Trim(Request.Form("Message"))
0043: Testimonial = Trim(Request.Form("Testimonial"))
0044: If Testimonial = "Y" Then
0045: Testimonial = True
0046: Else
0047: Testimonial = False
0048: End IF
0049: 
0050: 		Set rs = Server.CreateObject("ADODB.Recordset")
0051: 			sqlString = "SELECT  * FROM mmMessageBoard WHERE ID = " & ID
0052: Response.Write("<br>" & SqlString)	
0053: 			rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0054: 		
0055: 		If Not Rs.Eof Then
0056: 			rs("Message").Value = Message
0057: 			rs("Testimonial").Value = Testimonial
0058: 			rs.Update
0059: 			rs.Close
0060: 			Set rs = Nothing
0061: 		End If
0062: 	End If
0063: 
0064: End If
0065: 
0066: If ReturnSiteURL = "default.asp" Then
0067: 
0068: Response.Redirect("messageboard.asp")
0069: 
0070: Else
0071: 
0072: Response.Redirect("messageboard_m.asp")
0073: 
0074: 
0075: ENd If
0076: %>	
0077: 
0078: