%@ 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") & "/ladies.xls;" strSQL = "SELECT * FROM [Apps$] WHERE Player <> NULL AND Index <> 0 ORDER BY Played DESC ;" Set oRs = oCs.Execute(strSQL) %>