Fejl ved kontakt til Excel via .asp!!!

Jeg skriver dette:

<%@ language = "VBSCRIPT" %>
<%
Dim xlCn
Set xlCn = Server.CreateObject("ADODB.Connection")
With xlCn
    .Provider = "Microsoft.Jet.OLEDB.8.0"
    .ConnectionString = "Data Source=" & Server.MapPath("regneark.xls") & _
    ";Extended Properties=""Excel 8.0; HDR=No;"""
    .Open
End With
%>
<%
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
'Don't use client-side cursors - no updates will be allowed rs.CursorLocation = adUseServer rs.Open "SELECT * FROM [Ark1$]", xlCn, adOpenDynamic, adLockOptimistic, adCmdText


Response.Write "<h1>Indhold af kolonne A og B i ""Ark1""</h1>"
Response.Write "<table cellspacing=""10"">" & vbCrLf
Response.Write "    <tr>" & vbCrLf
Response.Write "        <th>" & vbCrLf
Response.Write "            Column 1" & vbCrLf
Response.Write "        </th>" & vbCrLf
Response.Write "        <th>" & vbCrLf
Response.Write "            Column 2"  & vbCrLf
Response.Write "        </th>" & vbCrLf
Response.Write "    </tr>" & vbCrLf
   
Do Until rs.EOF
    Response.Write "    <tr>" & vbCrLf
    Response.Write "        <td>" & vbCrLf
    Response.Write "            " & rs(0)  & vbCrLf
    Response.Write "        </td>" & vbCrLf
    Response.Write "        <td>" & vbCrLf
    Response.Write "            " & rs(1)  & vbCrLf
    Response.Write "        </td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    rs.MoveNext
Loop
Response.Write "</table>" & vbCrLf
%>

Men jeg får denne fejl:

ADODB.Connection fejl '800a0e7a'

ADO kunne ikke finde den angivne provider.

/regneark.asp, linje 10

----
linje 10 er .open

Kan du fortælle mig hvad fejlen er??

Musras.dk