Código:
La cosa es que selecciono una imagen jpg de 113Kb y me tira a la parte que deveria tirar si el archivo no es ni jpg ni gif y es mayor de 500Kb.... porque pasa eso... bueno eso saludos y gracias de antemano 'nuestro tamaño máximo maxtam = 512 * 1024 set objUpload = new xelUpload objUpload.Upload() categoria = limpiar(objUpload.Form("categoria"),0) marca = limpiar(objUpload.Form("marca"),0) modelo = limpiar(objUpload.Form("modelo"),0) descripcion = limpiar(objUpload.Form("descripcion"),1) precio = limpiar(objUpload.Form("precio"),0) '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")) id = conn.Execute("SELECT MAX(id_producto) As MaxId FROM productos") id = id("MaxId")+1 '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")then 'Es el fichero correcto, vamos a guardarlo en todas partes. :-) nombre = objFich.Nombre strNombreFichero = id & nombre objFich.GuardarComo strNombreFichero, Server.MapPath("../imagenes") 'Creación de la sentencia SQL correspondiente producto_sql="Insert Into productos (categoria,imagen,marca,modelo,descripcion,precio) values (" & categoria & ",'" & id & "" & objFich.Nombre & "','" & marca & "','" & modelo & "','" & descripcion & "'," & precio & ")" 'Ejecución de la orden Set rs = Conn.Execute(producto_sql) 'Creación de la sentencia SQL correspondiente categoria_sql="Select * From categorias Where id_categoria = " & categoria & "" 'Ejecución de la orden Set rs = Conn.Execute(categoria_sql) 'Se resta 1 al numero de productos de la categoría total_productos = rs("total_productos") total_productos = total_productos + 1 'Creación de la sentencia SQL correspondiente categoria_sql="Update categorias Set total_productos = " & total_productos & " Where id_categoria = " & categoria & "" 'Ejecución de la orden Set rs = Conn.Execute(categoria_sql) '¡Todo correcto! Response.Write "Se ha agregado el producto <b>" & marca & ": " & modelo & "</b> con la imagen <b>" & id & ""& objFich.Nombre &"</b> satisfactoriamente<br><br><center><input type=""button"" value=""Cerrar"" onclick=""salir()""></center>" 'Limpiamos nuestro xelUpload y el fichero set oFich = nothing set objUpload = nothing else 'No era un fichero válido Response.Write("El archivo seleccionado no es aceptado. ") Response.Write("Tiene que ser una imagen (GIF o JPG) de menos de 500k.") end if end if