<%@ 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/01-02/data") & "/stats01-02.xls;"
strSQL = "SELECT * FROM [Apps$] WHERE ScoredTotal > 0 ORDER BY ScoredTotal DESC ;"
Set oRs = oCs.Execute(strSQL)
%>
ToffeeWeb - Everton Goalscorers, 2001-02