leer excel desde asp.

[lexus]

ya me funciono..
aqui dejo el codigo con los cambios ke le realice..

sirve para leer un archivo excel desde asp sin definir rangos

Código:

<%
 
 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
  
  
 strcxn    =    "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=""DBQ=" & server.MapPath("excel_productos.xls") & ";Driver={Microsoft Excel Driver (*.xls)};DriverId=790;FIL=excel 8.0;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;ReadOnly=1;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"";User Id=admin;"
 
 
 strclta =     "select * from [excel_productos$] "
 
 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
  
 
 response.Write lectura(objrs)
 objRS.Close
 Set objRS = Nothing
  
 objConn.Close
 Set objConn = Nothing
 %>