<%
set xlApp = server.CreateObject("Excel.Application")
strsource = server.MapPath("xl.xls")
set xlbook = xlApp.WorkBooks.Open(strsource)
set xlsheet = xlbook.Worksheets(1)
i = 1
response.write "
| " & xlsheet.Cells(i,1) & " | "" & xlsheet.Cells(i,2) & " | "" & xlsheet.Cells(i,3) & " | "