Leer libro de excel Permiso denegado

[funkain]

hola a todos tengo el siguiente problema tratando de ller el nombre de libro de un archivo excel

estas son mis lineas de codigo

Set xls = CreateObject("Excel.Application")
'xls.Workbooks.Open attach
'a = xls.Worksheets(1).Name
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & Server.MapPath(ruta)

Set campana = Server.CreateObject("ADODB.Recordset")
campana.Open "Select * From [Hoja1$] ", conexion,3,3


y me da error cuando crea el archivo excel
le e dao los permisos para todos al usuario invitado y aun asi nada

tengo win2003, con office

que cosa puede ser??


el error es este


Error de Microsoft VBScript en tiempo de ejecución error '800a0046'

Permiso denegado: 'CreateObject'

/IGS/servicios-sms/examinar-campana2.asp, línea 163




gracias