AspSmartUpload

Bueno, vamos a filtrar codigo

Crea una pagina asp que solo suba el fichero y comprueba que el fichero se
guarda. Por lo que dices lo mas seguro es que en la parte que abres excell
uno de los dos bucles se quede dentro y no salga provocando el timeout.

Como te digo lo mejor es que montes una pequeña pagina asp donde pruebes el
codigo de subir el fichero y compruebes que este exactamente se guarda.

Daniel Álvarez




"Bernies" escribió en el mensaje
news:
Mostrar la cita

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
Mostrar la cita

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
Mostrar la cita

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><%

tienes permiso de escritura en la carpeta donde guardas el fichero? =)
comprueba tb q no tengas rutas fisicas referenciadas de forma absoluta, o si
las tienes q el nombre fisico de la carpeta coincida exactamente con el del
nt, de todas formas tiene toda la pinta de ser problema de permisos de la
carpeta destino


-o|o|--
-o|o| dani castillo
-o|o| http://www15.brinkster.com/danic/
-o|o| tutorial y trucos asp, vb, diseño
-o|o|--
"Bernies" escribió en el mensaje
news:
Mostrar la cita

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
Mostrar la cita

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
Mostrar la cita

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><%

y si pruebas a quitar el On Error Resume Next y que te diga exactamente
donde falla. Si esa linea sigue estando alli, aunque ocurra un error,
seguira intentandolo lógicamente hasta que termine el tiempo de session.
Prueba a ver.

¿Por cierto lo de aspsmartupload es algo parecido al aspupload? No habia
oido hablar nunca de el y el aspupload me funciona de maravilla.

por cierto me acabo de dar cuenta que cuando pones Server.Mappath, pones lo
siguiente:

Server.MapPath("./Temp/")

entre las comillas y la barra hay un punto que no debería ir alli. O bien
dos puntos o ninguno, pero uno???

O mucho me equivoco o no encuentra la ruta por el dichoso punto.

Hasta otra.

Te aconsejo que mires si existe el path donde grabas los ficheros.
Y mirar que los permisos sean correctos,el directorio tiene que tener el de
escritura.

"Bernies" escribió en el mensaje
news:
Mostrar la cita

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
Mostrar la cita

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
Mostrar la cita

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><%