<%@ 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/02-03/data") & "/premtable.xls;"
strSQL = "SELECT * FROM [FullTable$] ORDER BY Pos ;"
Set oRs = oCs.Execute(strSQL)
%>
ToffeeWeb - Premiership Table, 2002-03