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 mmStandings " & _
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: 
0018: 	EmailSubject = "March Madness " & yr & "Standings:" & CRLF  
0019:     CRLF = chr(13) & chr(10)
0020: 	
0021: 
0022:     OldTextEM = ""
0023: 		Do Until rs.EOF
0024: 		TextEmailAddress = rs("TextEmailAddress").Value
0025: 
0026: 		If OldTextEM = "" Then
0027: 			OldTextEM = TextEmailAddress
0028: 			Message = "You are in position: "
0029: 		End If
0030: 		If OldTextEM <> TextEmailAddress Then
0031: Response.Write(OldTextEM & " - " & Message & "<br>")
0032: 		 sendEmail OldTextEM, "", "",  "" , Message, "TEXT", ""
0033: 
0034:  			OldTextEM = TextEmailAddress
0035: 			Message = "You are in position: "
0036: 		End If
0037: 
0038: 		ranking = rs("Rank").Value
0039: 		Name = rs("Name").Value
0040: 		Message = Message & Ranking & ", "
0041: 
0042: 	rs.MoveNext
0043: 		Loop
0044: Response.Write(OldTextEM & " - " & Message & "<br>")
0045: 		 sendEmail OldTextEM, "", "",  "" , Message, "TEXT", ""
0046: 
0047: 		rs.Close
0048: 		Set rs = Nothing	%>
0049: </table>
0050: </body>
0051: </html>