<% season = Request.QueryString("season") If season = "" Then season = "3" season = CInt(season) %> <%If season = 1 Then%> <%Else%> <%End If%> Sac Lunch <% 'strConn = "PROVIDER=MSDASQL; Driver={SQL Server}; Server=localhost; Database=CP; UID=jais; PWD=jais;" strConn = "PROVIDER=MSDASQL; Driver={SQL Server}; Server=(local); Database=v2000v_com;UID=v2000v; PWD=v2000v_pass;" strConn = "PROVIDER=MSDASQL; Driver={SQL Server}; Server=coreyfields.db.12094096.hostedresource.com; Database=coreyfields;UID=coreyfields; PWD=Alvenu12!!!;" dim RsGame, Rs, RsSum, RsGameStats, RsGameStatsSum, RsStatsToDate, RsAux Set Rs = Server.CreateObject("ADODB.Recordset") sql = "getStatsAllSeasons" Rs.Open Sql, strConn, 3, 3 %>        
<< back

Batting Title Winners By Season

2018 Summer: Chris Shrader  (.667)
2018 Spring: Eric "Tico" Torres  (.622)
2017 Spring: Matt LeFevre  (.720)
2016 Summer: Corey Fields  (.656)
2016 Spring: Eric "Tico" Torres  (.763)
2015 Summer: Goose  (.833)
2015 Spring: Goose  (.786)
2014 Summer: Goose  (.735)
2014 Spring: Goose  (.656)
2013 Summer: Aaron Melton  (.667 - via tiebreaker)
2013 Spring: Matt LeFevre  (.641)
2012 Summer: Aaron Melton  (.714)
2012 Spring: Aaron Melton  (.635)
2011 Summer: Aaron Melton  (.667)
2011 Spring: Tom McGough  (.660)
2010 Summer: Aaron Melton  (.606)
2010 Spring: Boof  (.578)
2009 Summer: Josh Cook  (.718)
2009 Spring: Chris Shrader  (.641)
2008 Summer: Eric "Tico" Torres  (.675)
2008 Spring: Aaron Melton  (.717)
2007 Summer: Aaron Melton  (.667)
2007 Summer: Corey Fields  (.703)
2007 Spring: Aaron Melton  (.612)
2006 Summer: Tom McGough  (.586)
2006 Spring: Ty Travis  (.676)


Click each column to sort (ascending or descending)

Total Stats for all seasons
<% 'iCount = 0 Do Until rs.EOF 'If CInt(rs("G")) > 3 Then %> <% 'End If rs.MoveNext Loop Set RsSum = Server.CreateObject("ADODB.Recordset") sql = "getStatsSumAllSeasons" RsSum.Open Sql, strConn, 3, 3 %>
Info Player G AB R RBI SO BB 1B 2B 3B HR H TB Batting Avg. Slugging % On-Base % OPS
<%If rs("bio") = "1" Then%>" width="20">', 600, 625, null);">Bio<%Else%>Bio<%End If%> <%=rs("name")%> <%=rs("G")%> <%=rs("AB")%> <%=rs("R")%> <%=rs("RBI")%> <%=rs("SO")%> <%=rs("BB")%> <%=rs("1B")%> <%=rs("2B")%> <%=rs("3B")%> <%=rs("HR")%> <%=rs("H")%> <%=rs("TB")%> <%=FormatNumber(rs("BA"), 3)%> <%=FormatNumber(rs("SLG"), 3)%> <%=FormatNumber(rs("OBP"), 3)%> <%=FormatNumber(rs("OPS"), 3)%>
G=Games, AB=At Bats, R=Runs, RBI=Runs Batted In, SO=Strikeouts, BB=Walks, 1B=Singles, 2B=Doubles, 3B=Triples, HR=Home Runs, H=Hits, TB=Tagged Bases, BA=Batting Avg., SLG=Slugging %, OBP=On-Base Percentage, OPS=SLG+OBP
Team Stats as of <%=FormatDateTime(Now(), 2)%> AB R RBI SO BB 1B 2B 3B HR H TB Batting Avg. Slugging % On-Base % OPS

<%=RsSum("AB")%>

<%=RsSum("R")%>

<%=RsSum("RBI")%>

<%=RsSum("SO")%>

<%=RsSum("BB")%>

<%=RsSum("1B")%>

<%=RsSum("2B")%>

<%=RsSum("3B")%>

<%=RsSum("HR")%>

<%=RsSum("H")%>

<%=RsSum("TB")%>

<%=FormatNumber(RsSum("BA"), 3)%>

<%=FormatNumber(RsSum("SLG"), 3)%>

<%=FormatNumber(RsSum("OBP"), 3)%>

<%=FormatNumber(RsSum("OPS"), 3)%>
<% Set RsAux = Server.CreateObject("ADODB.Recordset") sql = "getAuxStats" RsAux.Open Sql, strConn, 3, 3 %>

Additional Stats (all seasons)
<% 'iCount = 0 Do Until rsAux.EOF 'If CInt(rsAux("G")) > 3 Then %> <% 'End If rsAux.MoveNext Loop Set RsSum = Server.CreateObject("ADODB.Recordset") sql = "getStatsSumAllSeasons" RsSum.Open Sql, strConn, 3, 3 %>
Info Player G R/G RBI/G SO/G BB/G H/G TB/G
<%If rsAux("bio") = "1" Then%>" width="20">', 600, 625, null);">Bio<%Else%>Bio<%End If%> <%=rsAux("name")%> <%=rsAux("G")%> <%=FormatNumber(rsAux("RPG"), 3)%> <%=FormatNumber(rsAux("RBIPG"), 3)%> <%=FormatNumber(rsAux("SOPG"), 3)%> <%=FormatNumber(rsAux("BBPG"), 3)%> <%=FormatNumber(rsAux("HPG"), 3)%> <%=FormatNumber(rsAux("TBPG"), 3)%>
<% Set rs = Nothing Set rsGame = Nothing Set rsGameStats = Nothing Set RsBa = Nothing Set RsSum = Nothing Set RsGameStatsSum = Nothing Set RsStatsToDate = Nothing Set rsAux = Nothing %>