<% Dim Conn,Driver,DBPath,Rs Set Conn = Server.CreateObject("ADODB.Connection") Driver = "Driver={Microsoft Excel Driver (*.xls)};" DBPath = "DBQ=" & Server.MapPath( "/asiacoat/db/exhibitor2007.xls" ) Conn.Open Driver & DBPath Set Rs = Server.CreateObject("ADODB.Recordset") Conn.CursorLocation = 3 Sql="select * from [Sheet1$]" Rs.Open Sql,conn,1,1 %>