leer excel desde asp.

[lexus]

hola estoy tratando de leer un excel desde asp con este ejemplo

Código HTML:

<% 
'**************
'Funcion lectora
'**************
function lectura(RS)
respuesta = "<TABLE><TR><td>&nbsp;</td>"
For X = 0 To RS.Fields.Count - 1
respuesta = respuesta & "<TD>" & RS.Fields.Item(X).Name & "</TD>"
Next
respuesta = respuesta & "</TR>"
RS.MoveFirst
While Not RS.EOF
respuesta = respuesta & "<TR><td>"&rs.AbsolutePosition&"</td>"
For X = 0 To RS.Fields.Count - 1
respuesta = respuesta & "<TD>" & RS.Fields.Item(X).Value
Next
RS.MoveNext
respuesta = respuesta & "</TR>"
Wend
respuesta = respuesta & "</TABLE>"
lectura=respuesta
end function
'*****************
'termina funcion lectora
'*****************
'procedimiento estandar
strcxn = "Provider=Microsoft.ACE.OLEDB.12.0;"&_
"Data Source ="&server.MapPath("excel_productos.xls")&";Extended Properties=Excel 12.0 Xml;"
strclta = "select * from [excel_productos$]"
response.Write strcxn & "<br />"
response.Flush()
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strcxn
Set objRS = Server.CreateObject("ADODB.Recordset")
With objRS
.ActiveConnection = objConn
.CursorType = 3 'Static cursor.
.LockType = 3 'Pessimistic Lock.
.Source = strclta
.Open
end With
%><br><%
Response.Write("Original Data")
response.Write lectura(objrs)
objRS.Close
Set objRS = Nothing
%> 

pero me sale este error




Provider=Microsoft.ACE.OLEDB.12.0;Data Source =D:\intranets\carpetas\excel_productos.xls;Extende d Properties=Excel 12.0 Xml;


ADODB.Connectionerror '800a0e7a'
No se encontró el proveedor especificado. Es posible que no esté instalado correctamente. /cygnus_oked/compras/importar_excel.asp, line 41




que podra ser alguien tiene alguna solucion? este codigo lo proporciono shiryu_libra
gracias por la colaboracion.