Ver Mensaje Individual
  #3 (permalink)  
Antiguo 06/03/2006, 13:06
Avatar de El_Metallick
El_Metallick
 
Fecha de Ingreso: noviembre-2002
Ubicación: Santiago, Chile
Mensajes: 1.718
Antigüedad: 22 años, 4 meses
Puntos: 16
hola balder... mira te dejo un ejemplo de como lo hago yo y me funciona de maravillas

Código:
         <!--#include file="inc/xelupload.asp"-->
         <%
         'nuestro tamaño máximo
         maxtam = 512 * 1024

         set objUpload = new xelUpload
         objUpload.Upload()

         'si no ha subido ningún fichero, le avisamos
         if objUpload.Ficheros.Count = 0 then
            Response.Write("¡No has subido ningún fichero!")
         else
            'Establecemos la conección a la base de datos
            Set conn = Server.CreateObject("ADODB.Connection")
            conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../catalogo.mdb"))
    
            'accedemos al fichero por su nombre en el formulario
            set objFich = objUpload.Ficheros("imagen")
            if objFich.Tamano <= maxtam and (objFich.TipoContenido = "image/gif" Or objFich.TipoContenido = "image/pjpeg" Or objFich.TipoContenido = "image/jpeg") then
               nombre = objFich.Nombre
               strNombreFichero =  nombre
               objFich.GuardarComo strNombreFichero, Server.MapPath("../imagenes")

               'Creación de la sentencia SQL correspondiente 
               producto_sql="Insert Into tabla.....

               'Ejecución de la orden
               Set rs = Conn.Execute(producto_sql)

               '¡Todo correcto!
               Response.Write "Se ha agregado el producto <b>" & producto & "</b> con la imagen <b>" & id & ""& objFich.Nombre &"</b> satisfactoriamente"

               'Limpiamos nuestro xelUpload y el fichero
               set oFich = nothing
               set objUpload = nothing
            else
               If objFich.Tamano > maxtam Then
                  Response.Write("El archivo seleccionado sobrepasa el límite de tamaño permitido de 500Kb. ")
               end If
               If objFich.TipoContenido <> "image/gif" Or objFich.TipoContenido <> "image/pjpeg" Or objFich.TipoContenido <> "image/jpeg" Then
                  Response.Write("El archivo seleccionado no es una imágen (GIF o JPG).")
               end If
            end if
         end if
         %>
Espero te sirva saludos y suerte
__________________
Haz la guerra en la cama y el amor donde se te de la gana...
El tiempo es el mejor maestro, lo único malo es que te mata...¡¡Aprovecha tu tiempo!!