problemas con xelupload

[--greenday--]

hola, que tal?

a ver si alguien puede ayudarme xq no tengo ni idea de que pasa ni de como averiguarlo.

tengo un codigo que sube noticias con o sin imagenes, antes podia subir noticias de las formas perfectamente, pero ahora no se que ocurre que cuando quiero subir una imagen mediante xelupload y le doy a enviar, la hoja se queda cargando eternamente.

sin imagen si puedo subir bien los datos.

a que puede deberse? no he hecho nada en el ordenador, esta todo igual que cuando funcionaba :S

gracias

un saludo

[--greenday--]

ademas cuando intento subir la noticia con la imagen, el servidor se bloquea y tengo que reabrir el explorador para que vuelva a funcionar :S

[venom_mdt]

Podes pasar el codigo de la pagina que recibe los datos y los levanta al servidor???

[--greenday--]

<!--#include file="conexion.asp" -->
<!--#include file="inclusiones/xelupload.asp" -->

....


elseIf Request.querystring("t") = "i" Then
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''INSERTAR NOTICIAS'''''''''''''''''''''''''''''''''''''''''' ''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''
set strconfiguracionup = new xelUpload
strconfiguracionup.Upload()
if not strconfiguracionup.form("envio") = "ok" then
set strconfiguracionup = nothing
adoCon.close
set adoCon=Nothing
response.redirect "principal.asp"
end if
if strconfiguracionup.Ficheros.Count = clng("1") then
For each strconfiguracionfich in strconfiguracionup.Ficheros.Items
if clng(strconfiguracionfich.Tamano) > clng("100000") then
set strconfiguracionup = nothing
adoCon.close
set adoCon=Nothing
response.redirect "noinsertado.asp?t=noticias"
end if
strconfiguracionnombreimagen = "nombreimagen"
strconfiguracionfich.GuardarComo strconfiguracionnombreimagen & ".gif", Server.MapPath(strconfiguracionpathpublic & "/imagenes/noticias")
response.Buffer = True
set rsnoticias = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT noticias.* From noticias;"
rsnoticias.CursorType = 2
rsnoticias.LockType = 3
rsnoticias.Open strSQL, strCon
rsnoticias.AddNew
rsnoticias.fields("noticias_web") = replace(strconfiguracionup.form("web"),"'","")
rsnoticias.fields("noticias_titulo") = replace(strconfiguracionup.form("titulo"),"'","")
rsnoticias.fields("noticias_subtitulo") = replace(strconfiguracionup.form("subtitulo"),"'"," ")
rsnoticias.fields("noticias_categoria") = strconfiguracionup.form("categoria")
rsnoticias.fields("noticias_fuente") = replace(strconfiguracionup.form("fuente"),"'","")
rsnoticias.fields("noticias_valoracion") = strconfiguracionup.form("valoracion")
rsnoticias.fields("noticias_votos") = "10"
rsnoticias.fields("noticias_puntos") = strconfiguracionup.form("valoracion")*10
rsnoticias.fields("noticias_autor") = strusuariosid
rsnoticias.fields("noticias_texto") = replace(replace(strconfiguracionup.form("texto"),V BCrLf,"<br>"),"'","")
rsnoticias.fields("noticias_destacada") = cbool(strconfiguracionup.form("destacada"))
rsnoticias.fields("noticias_publicada") = cbool("true")
rsnoticias.fields("noticias_imagen") = strconfiguracionnombreimagen & ".gif"
rsnoticias.fields("noticias_tamaño") = strconfiguracionfich.Tamano
rsnoticias.fields("noticias_ip") = Request.ServerVariables("REMOTE_ADDR")
rsnoticias.update
rsnoticias.requery
next
else
response.Buffer = True
set rsnoticias = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT noticias.* From noticias;"
rsnoticias.CursorType = 2
rsnoticias.LockType = 3
rsnoticias.Open strSQL, strCon
rsnoticias.AddNew
rsnoticias.fields("noticias_web") = replace(strconfiguracionup.form("web"),"'","")
rsnoticias.fields("noticias_titulo") = replace(strconfiguracionup.form("titulo"),"'","")
rsnoticias.fields("noticias_subtitulo") = replace(strconfiguracionup.form("subtitulo"),"'"," ")
rsnoticias.fields("noticias_categoria") = strconfiguracionup.form("categoria")
rsnoticias.fields("noticias_fuente") = replace(strconfiguracionup.form("fuente"),"'","")
rsnoticias.fields("noticias_valoracion") = strconfiguracionup.form("valoracion")
rsnoticias.fields("noticias_votos") = "10"
rsnoticias.fields("noticias_puntos") = strconfiguracionup.form("valoracion")*10
rsnoticias.fields("noticias_autor") = strusuariosid
rsnoticias.fields("noticias_texto") = replace(replace(strconfiguracionup.form("texto"),V BCrLf,"<br>"),"'","")
rsnoticias.fields("noticias_destacada") = cbool(strconfiguracionup.form("destacada"))
rsnoticias.fields("noticias_publicada") = cbool("true")
rsnoticias.fields("noticias_imagen") = "nodisponible.gif"
rsnoticias.fields("noticias_ip") = Request.ServerVariables("REMOTE_ADDR")
rsnoticias.update
rsnoticias.requery
end if
rsnoticias.close
set rsnoticias = nothing
set strconfiguracionup = nothing
adoCon.close
set adoCon=Nothing
Response.Redirect "insertado.asp?t=noticias"

[dobled]

estas usando el codigo en tu maquina?

[--greenday--]

si, y funcionaba perfectamente hasta que de pronto dejo de hacerlo

O_O

[--greenday--]

he subido el codigo a aruba y funciona correctamente :S

[--greenday--]

por favor, necesito desesperadamente ideas de xq ha dejado de funcionar el codigo en mi servidor iis de repente y en cambio sigue funcionando en aruba

he reeinstalado el servidor, cerrado el firewalls, no se que mas hacer, el codigo esta bien pero no funciona y hace 2 dias silo hacia :S

gracias

[AlZuwaga]

...la hoja se queda cargando eternamente

Es el antivirus. Desactivá la opción de bloqueo de scripts.
Si sigue sin funcionar, reiniciá el equipo y ya debería andar.