hola, mira no es problema del archivo que procesa, por que si envío el formulario sin archivo entonces pasa bien a procesa_archivo.asp, si mando un archivo Excel de menos de 200KB también funciona Ok, si mando un archivo de texto plano o CSV también funciona OK.
Entonces no es problema del procesa_archivo.asp, sino que extrañanamente el error se produce cuando envías un archivo Excel (en general cualquiera de Office) de más de 200KB
De cualquier forma te dejo el código:
Código:
strcxn = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=""DBQ=" & server.MapPath("usuarios.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 [usuarios$]"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strcxn
If ( objConn.errors.count>0 ) Then
dw err.description
end if
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
Saludos,
Rodrigo