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.
