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