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