Importere data fra Excel

Hej

  Er der nogen der har en idé til hvorfor nedenstående ikke virker. Sriptet timer out.

            Set objConnExcel = Server.CreateObject("ADODB.Connection")
            With objConnExcel
                .Provider = "Microsoft.Jet.OLEDB.4.0"
                .ConnectionString = "Data Source="& server.MapPath("../../"& strSiteName &"/www/medieArkiv/"& strFilNavn) &";Extended Properties=Excel 8.0; HDR=No;"
                .Open
            End With
       
            Set objRS = Server.CreateObject("ADODB.Recordset")
            strSQL = "SELECT email, navn FROM [ark1$]"
            objRS.Open strSQL, objConnExcel
           
            while not objRS.EOF
                response.write "<br><br>Her: "& objRS("email")
            objRS.MoveNext()
            Wend
            objRS.Close()

            set objRS = nothing
            set objConnExcel = nothing     

Er det mon mine drivere den er gal med

/Kovalt