<%
Set cnnExcel = Server.CreateObject("ADODB.Connection")
    cnnExcel.Open "Dbq=" & Server.MapPath("data.xls") & "; Driver={Microsoft Excel Driver (*.xls)};"

    ' JSL_Data je nazev rozsahu v XLS dokumentu
    Set rstExcel = Server.CreateObject("ADODB.Recordset")
        rstExcel.Open "SELECT * FROM JSL_Data", cnnExcel, 3, 2

        iCols = rstExcel.Fields.Count

        Response.Write("<table>") & vbCrLf
        Response.Write("    <tr>") & vbCrLf
        For I = 0 To iCols - 1
            Response.Write("        <th>" & rstExcel.Fields.Item(I).Name & "</th>") & vbCrLf
        Next
        Response.Write("    </tr>") & vbCrLf

        rstExcel.MoveFirst

        Do While NOT rstExcel.EoF
            Response.Write("    <tr>") & vbCrLf
            For I = 0 To iCols - 1
                Response.Write("        <td>" & rstExcel.Fields.Item(I).Value & "</td>") & vbCrLf
            Next
            Response.Write("    </tr>") & vbCrLf
            rstExcel.MoveNext
        Loop

        Response.Write("</table>") & vbCrLf

        rstExcel.Close
    Set rstExcel = Nothing

    cnnExcel.Close
Set cnnExcel = Nothing
%>