AYUDA NO FUNCIONA Persits.Upload

[Rodri_Ascariz]

Código:

archivo = request("imagen")
	Set Upload = Server.CreateObject("Persits.Upload.1")
	directorio = "campingsalon\imagenes\viajes"
	directoriocompleto = Request.ServerVariables("APPL_PHYSICAL_PATH")&directorio
	response.Write(directoriocompleto)
	Dim myFSO
	SET myFSO = Server.CreateObject("Scripting.FileSystemObject")
	If NOT myFSO.FolderExists(directoriocompleto) Then
		myFSO.CreateFolder(directoriocompleto)
	End If
	SET myFSO = NOTHING
	
	Upload.SetMaxSize 150000, true
	Count = Upload.SaveVirtual("campingsalon\imagenes\viajes")
	If Err.Number = 8 Then
		Response.Write "<br />Comprobando imagenes... ERROR<br>El archivo es demasiado grande. Debe tener como máximo 150 kb. Gracias." 
	Else
		If Err.Number <> 0 Then
			Response.Write "<br />Comprobando imagenes... ERROR<br>Ha ocurrido un error:<br>" & Err.Description
		Else
			Response.Write "<br />Comprobando imagenes... OK"
			Upload.IgnoreNoPost = True
			Upload.OverwriteFiles = False
			Set File = Upload.Files("IMAGEN")
			If Not File Is Nothing Then
				If File.ImageType = "UNKNOWN" Then
					IMAGEN = ""
				Else
					IMAGEN = File.FileName
				End if
			End if
		End If
	End If

El Error es este :
Tipo de error:
Persits.Upload.1 (0x800A003D)
Wrong Content-Type. Make sure you have included the attribute ENCTYPE="multipart/form-data" in your form.

[Muzztein]

tu formulario deberia lucir asi:


<form method="POST" enctype="multipart/form-data">
</form>

[Chento]

Buenas
la imagen que llega a esa pagina tiene que subir en multipart/form-data, eso significa que en la anterior pagina el form tiene que ser:
<form name='f2' method="post" enctype="multipart/form-data" action='SubirFotos.asp'>
<input name='imagen' type="file">
<input type='submit' value='enviar'>
</form>

Espero que te sirva.

[Rodri_Ascariz]

muchas gracias.
otra cosita
Upload.SetMaxSize 15000, True
si el ficho pasa el tamaño que retorna ???

[Neuron_376]

Estamos en el entendido que usas:

on error resume next //para capturar errores

//Entonces

'8, es el numero de error cuando el fichero es mas grande de lo que tu estas aceptando

if Err.Number = 8 Then
//La foto es mas pesada
end if

Lee la documentacion oficial para que veas mas informacion de esos detalles

Suerte!!