% Dim oCs, oTs, sttSQL set oCs = server.createobject("ADODB.Connection") oCs.Open "Driver={Microsoft Excel Driver (*.xls)}; DBQ=" & Server.MapPath("/history/trivia") & "/dean_index.xls;" sttSQL = "SELECT * FROM [Dixie$] ORDER BY Index DESC ;" Set oTs = oCs.Execute(sttSQL) %>