<%
Set conn=Server.CreateObject("ADODB.Connection")
Params ="Driver={Microsoft Excel Driver (*.xls)};DBQ=" & server.mappath("lib05.xls")
conn.Open Params
if request("order")="" then
Set rs=conn.execute ("select * from [history$]")
else
Set rs=conn.execute ("select * from [history$] order by [" & request("order") & "]" & request("sort") )
end if
%>