0001: <% @Language = "VBScript" %>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <!-- #include FILE="include/funcs.asp" -->
0005: <%
0006: 	yr = Request.QueryString("yr")
0007: 	If yr = "" Then yr = season
0008: 	
0009: 
0010: 	Set rs = Server.CreateObject("ADODB.Recordset")
0011: 	sqlString = "SELECT * FROM mm2ndStandings " & _
0012: 			"WHERE Season = " & yr & " " & _
0013: 			"AND TextEmailAddress <> Null " & _
0014: 			"ORDER BY TextEmailAddress, Rank"
0015: '			Response.Write(sqlString)
0016: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0017: 	totpicks = rs.RecordCount	
0018: 
0019: 	EmailSubject = "March Madness " & yr & "Standings:" & CRLF  
0020:     CRLF = chr(13) & chr(10)
0021: 	
0022: 
0023:     OldTextEM = ""
0024: 		Do Until rs.EOF
0025: 		TextEmailAddress = rs("TextEmailAddress").Value
0026: 
0027: 		If OldTextEM = "" Then
0028: 			OldTextEM = TextEmailAddress
0029: 			Message = "Sweet 16 Ranking: "
0030: 		End If
0031: 		If OldTextEM <> TextEmailAddress Then
0032: Response.Write(OldTextEM & " - " & Message & "<br>")
0033: 		 sendEmail OldTextEM, "", "",  "" , Message, "TEXT", ""
0034: 
0035:  			OldTextEM = TextEmailAddress
0036: 			Message = "Sweet 16 Ranking: "
0037: 		End If
0038: 
0039: 		ranking = rs("Rank").Value
0040: 		Name = rs("Name").Value
0041: 		Message = Message & Ranking & ", "
0042: 
0043: 	rs.MoveNext
0044: 		Loop
0045: Response.Write(OldTextEM & " - " & Message & "<br>")
0046: sendEmail OldTextEM, "", "",  "" , Message, "TEXT", ""
0047: 
0048: 		rs.Close
0049: 		Set rs = Nothing	%>
0050: </table>
0051: </body>
0052: </html>