<%@ Language=VBScript %>
<% Option Explicit %>
<% Response.Expires = 0 %>
<%
Dim oCs, oRs, strSQL
set oCs = server.createobject("ADODB.Connection")
oCs.Open "Driver={Microsoft Excel Driver (*.xls)}; DBQ=" & Server.MapPath("/season/03-04/data") & "/stats.xls;"
strSQL = "SELECT * FROM [Apps$] WHERE Player <> '0' ORDER BY Num ;"
Set oRs = oCs.Execute(strSQL)
%>
ToffeeWeb - Everton Player Appearances, 2003-04