AspSmartUpload

¿que problema tienes? ¿un error? si es asi dinos cual.

Daniel Álvarez




"Bernies" escribió en el mensaje
news:

Me he bajado el AspSmartUpload de la página oficial, sigo las
instrucciones que hay en ella, es decir:

Registro con Regsvr32 AspSmartUpload.dll
Copio el AspSmartUploadUtil.dll en c:\winnt\system32

(Tengo Windows 2000, por si tiene que ver algo).

Pero nada. No funciona. Hay que instalar algo más?

Gracias por vuestra ayuda

Simplemente la pagina se queda colgada no hace absolutamente nada. No da
error.


"Daniel Álvarez" escribió en el mensaje
news:

¿que problema tienes? ¿un error? si es asi dinos cual.

Daniel Álvarez




"Bernies" escribió en el mensaje
news:
> Me he bajado el AspSmartUpload de la página oficial, sigo las
> instrucciones que hay en ella, es decir:
>
> Registro con Regsvr32 AspSmartUpload.dll
> Copio el AspSmartUploadUtil.dll en c:\winnt\system32
>
> (Tengo Windows 2000, por si tiene que ver algo).
>
> Pero nada. No funciona. Hay que instalar algo más?
>
> Gracias por vuestra ayuda
>
>
>

Si tuvieras mal registrado el componente te deberia dar un error en la linea
del server.createobject. Postea el codigo a ver si te podemos ver algo raro.


Daniel Álvarez




"Bernies" escribió en el mensaje
news:

Simplemente la pagina se queda colgada no hace absolutamente nada. No da
error.


"Daniel Álvarez" escribió en el mensaje
news:
> ¿que problema tienes? ¿un error? si es asi dinos cual.
>
> Daniel Álvarez
>
>
>
>
> "Bernies" escribió en el mensaje
> news:
> > Me he bajado el AspSmartUpload de la página oficial, sigo las
> > instrucciones que hay en ella, es decir:
> >
> > Registro con Regsvr32 AspSmartUpload.dll
> > Copio el AspSmartUploadUtil.dll en c:\winnt\system32
> >
> > (Tengo Windows 2000, por si tiene que ver algo).
> >
> > Pero nada. No funciona. Hay que instalar algo más?
> >
> > Gracias por vuestra ayuda
> >
> >
> >
>
>

Este codigo funciona porque estaba funcionando en un servidor Windows NT
hasta ayer, y hemos pasado a un Windows 2000, la cosa ha sido cambiar las
paginas. Todo el ASP me funciona perfectamente pero lo único que no hace es
subir ficheros al servidor. Te dejo un trozo de codigo donde sube el
fichero, pero ya te digo que esto funciona, porque tengo a mi lado el NT y
lo sigue haciendo. Por eso estoy seguro que es algo de tema de registro del
Aspsmartupload-

A ver si averiguas que es, porque estoy desesperado...

Gracias Daniel.


' *******************************************************
' Sube al servidor el fichero excel para poder abrirlo
' *******************************************************
On error resume next

dim mySmartUpload
Dim intCount

const MaxSheet = 3

' Object creation
' ***************
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload

'Ruta donde se va a guardar el fichero excel.
intCount = mySmartUpload.Save(Server.MapPath("./Temp/"))

For each file In mySmartUpload.files
if len(file.Filename) > 0 then
fichero = file.filename
end if
next
Response.Write "Contenido para actualizar del fichero: " & fichero &
"<br><br>"

'Abre el Excel para ejecutar el fichero.
Set xl = CreateObject("Excel.Application")
xl.Visible = True
Set book = xl.WorkBooks.open(Server.MapPath("./Temp/") + "\" + fichero)

'Activamos el sheet del fichero Excel.
Set sheet = book.worksheets(1)
sheet.Activate
'**************************************************
' Buscamos el numero de columnas que tiene.
' Guardamos los nombres de las columnas, es decir,
' de los campos de la tabla.
'**************************************************
num_col = 1
while sheet.cells(1, num_col) <> ""
%><input type="hidden" name="campo<%=num_col%>"
value="<%=sheet.cells(1, num_col)%>"><%
num_col = num_col + 1
wend
num_col = num_col - 1

'Buscamos el numero de filas que tiene
num_filas = 2
while sheet.cells(num_filas, 1) <> ""
num_filas = num_filas + 1
wend
num_filas = num_filas - 1

'Creación de la tabla para mostrar en pantalla el contenido del fichero
Excel.
%><table CELLSPACING="5" cellpadding="0" border="1" width="80%">
<tr>
<thead>
<tr class="LCAB"><%
for j=1 to num_col
%><td align="center"><%=(sheet.Cells(1, j))%></td><%
next
%></tr>
</thead><%

Se me olvido comentar que el error que al final me da es quejandose del
scripttimeout, pero esto no es posible porque el fichero excell que le paso
es minimo y antes me funcionaba con ficheros de 200 registros:



No se puede mostrar la página
Hay un problema con la página que está intentando ver y no se puede mostrar.

-
-

Please try the following:

Haga clic en el botón Actualizar o inténtelo de nuevo más tarde.

Abra la página principal de desastde01 y, a continuación, busque vínculos a
la información que desea.
HTTP 500.100. Error interno del servidor: error de ASP
Servicios de Internet Information Server

-
-

Información técnica (para personal de soporte técnico)

Tipo de error:
Páginas Active Server, ASP 0113 (0x80004005)
Se excedió el tiempo máximo de espera para una secuencia de comandos. Para
cambiar este límite especifique un nuevo valor para la propiedad
Server.ScriptTimeOut o cambie el valor en las herramientas de administración
de IIS.
/PaginaDeSubida/Upload.asp


Tipo de explorador:
Mozilla/4.0 (compatible; MSIE 6.0; Windows 98; iOpus-I-M; .NET CLR 1.1.4322)

Página:
POST 18363 bytes to /ActBancoDatos/ExcelTabla.asp

Datos de POST:
error '80020009'
Ocurrió una excepción.

/iisHelp/common/500-100.asp, line 223