<%@ 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 ScoredTotal > 0 ORDER BY ScoredTotal DESC ;" Set oRs = oCs.Execute(strSQL) %> ToffeeWeb - Everton Goalscorers, 2003-04

Goalscorers, 2003-2004


 2002-03 Goalscorers 2004-05 Goalscorers 
EVERTON GOALSCORERS Correct to:

<%Do while NOT oRs.EOF%> <%oRs.MoveNext%><%Loop%>
No.

 Player

League FA Cup WLC Total

<%=oRs("Num")%>

 <%=oRs("Player")%> <%=oRs("ScoredLeague")%>  <%=oRs("ScoredFACup")%>  <%=oRs("ScoredWLCup")%>  <%=oRs("ScoredTotal")%> 


<% oCs.Close Set oRs = Nothing %>