problemas con xelupload en FireFox

[El_Metallick]

Hola amigos... miren la cosa es que trabajando con internet explorer me funciona a la perfeccion este cuento pero al hacerlo el firefox me da la opcion de que no seleccione un archivo valido

Código:

'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

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