Foros del Web » Programando para Internet » ASP Clásico »

utilizando xelupload toy chato..

Estas en el tema de utilizando xelupload toy chato.. en el foro de ASP Clásico en Foros del Web. Hola necesito utilizar "xelupload" y cuando llamo la página que contiene la llamada al "xelupload.asp" esta queda infinitamente cargando, quien me pueda ayudar, he revisado ...
  #1 (permalink)  
Antiguo 13/10/2003, 08:30
Avatar de skatomundo  
Fecha de Ingreso: junio-2002
Ubicación: Santiago - CL
Mensajes: 2.532
Antigüedad: 22 años
Puntos: 125
Pregunta utilizando xelupload toy chato..

Hola

necesito utilizar "xelupload" y cuando llamo la página que contiene
la llamada al "xelupload.asp" esta queda infinitamente cargando, quien me pueda
ayudar, he revisado los nombres de los campos y corresponden.
que puede ser les envio el código...

Es algo APURADo...necesito subir archivos "Doc" ms-word....
que valor debo asignar a: TipoContenido = "image/gif" para que acepte "doc"?


"EL CODIGO"
<!--#include file="xelupload.asp"-->
<!-- #INCLUDE FILE="../adovbs.inc" -->
<%
Dim oConn, rs, SQL
Dim objUpload, objFich, strNombre, strEdad
Dim maxtam, strNombreFichero

maxtam = 15 * 1024

set objUpload = new xelUpload
objUpload.Upload()

if objUpload.Ficheros.Count = 0 then
Response.Write("¡No se han subido ningún fichero!")
else
set objFich = objUpload.Ficheros("imagen")
if objFich.Tamano <= maxtam and objFich.TipoContenido = "image/gif" then

strNombreFichero = objUpload.Form("codigo")
objFich.GuardarComo strNombreFichero, Server.MapPath("doc")

set Conex = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
Conex.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\bdbmch\bd_bmch.mdb;"
SQL = "SELECT * FROM proyectos Where proyecto_id = '"&objUpload.Form("codigo")&"'"
rs.Open SQL, conex, adOpenKeyset, adLockPessimistic, adCmdText
'rs.Open SQL, Conex, 0, 2
if not rs.eof then
rs.Fields("ruta_doc") = objUpload.Form("codigo")
rs.Update
end if
rs.Close
set rs = nothing
Conex.Close
set Conex = nothing

set oFich = nothing
set objUpload = nothing

else
Response.Write("No es un fichero aceptable. ")
Response.Write("Tiene que ser un fichero GIF de menos de 15k.")
end if

end if
%>



agradecido skatomundo
  #2 (permalink)  
Antiguo 13/10/2003, 08:56
Avatar de skatomundo  
Fecha de Ingreso: junio-2002
Ubicación: Santiago - CL
Mensajes: 2.532
Antigüedad: 22 años
Puntos: 125
Aun necesito de la ayuda.....!!!


porfis...
  #3 (permalink)  
Antiguo 13/10/2003, 17:18
Avatar de xlugo2002  
Fecha de Ingreso: noviembre-2002
Ubicación: Puebla, México
Mensajes: 474
Antigüedad: 21 años, 7 meses
Puntos: 0
application/msword

creo que es ese.......
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 16:27.