<%
    Dim conn, sql, rs

    set conn = Server.createObject("ADODB.Connection")
    conn.open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=h:\root\home\intsoftware-001\www\tbc\demo.xlsx;Extended Properties=""Excel 12.0 Xml;HDR=YES;IMEX=1"""
	
	    sql = "select * from [Sheet1$]"

set rs = conn.Execute(Sql)

do while not rs.eof or rs.bof
    response.write rs("1") & "<br>" & vbCrLf
    rs.movenext
loop

    conn.CLose
Set conn = nothing

%>