%@ Language=VBScript %> <% Option Explicit %> <% Response.Expires = 0 %> <% Dim oCs, oRs, strSQL, oDs, oSs, stmysqli_fetch_array set oCs = server.createobject("ADODB.Connection") oCs.Open "Driver={Microsoft Excel Driver (*.xls)}; DBQ=" & Server.MapPath("/season/06-07/data") & "/stats.xls;" stmysqli_fetch_array = "SELECT * FROM [BadBoys$] WHERE Player <> '0' ORDER BY Num ;" Set oSs = oCs.Execute(stmysqli_fetch_array) set oDs = server.createobject("ADODB.Connection") oDs.Open "Driver={Microsoft Excel Driver (*.xls)}; DBQ=" & Server.MapPath("/season/06-07/data") & "/reserves.xls;" strSQL = "SELECT * FROM [ResApps$] WHERE Player <> '0' ORDER BY Index ;" Set oRs = oDs.Execute(strSQL) %>