freeaspupload y rescatar un valor del formulario

[Nateskin]

Iniciado por Nateskin

Para mi desgracia, he revisado todos los codigos que hay en el foro y no se cual es el problema. Adjunto aqui el codigo que estoy usando. Se que aqui no sale el include al FREEASPUPLOAD, pero en una parte del codigo ya esta "incluyendose".

Código:

<%
Response.Expires = -1
Server.ScriptTimeout = 600

Dim uploadsDirVar
uploadsDirVar = Server.MapPath("upload\")

Function SaveFiles
    Dim Upload, ks, resumen

    Set Upload = New FreeASPUpload
    Upload.Save(uploadsDirVar)
	If Err.Number<>0 then Exit function
	ks = Upload.UploadedFiles.keys
	if (UBound(ks) = -1) then resumen = "No es un nombre valido en el sistema."
	SaveFiles = resumen
end function





if Request.ServerVariables("REQUEST_METHOD") = "POST" then
		cpoImage = Upload.Form("cpo_Image")

        txt_Validado=True
        If cpoImage="" then
            cpo_Image="Este campo es obligatorio."
            txt_Validado=False
		Else
			Set fs=Server.CreateObject("Scripting.FileSystemObject")

			Dim boolExisteExtension
			boolExisteExtension = false
			
			extensions = Array ("jpg", "jpeg", "jpe") 	
			
			for i = 0 to uBound(extensions)
			  if fs.GetExtensionName(cpoImage) = extensions (i) then
				 boolExisteExtension = true
				 exit for
			  end if
			next
			
			If boolExisteExtension Then
				If (fs.FileExists(Request.ServerVariables("APPL_PHYSICAL_PATH") + "upload\" + cpoImage))=TRUE Then
					cpo_Image="El archivo ya se encuentra en nuestro servidor."
					txt_Validado=False
				Else



	
	response.write SaveFiles()
		cpo_Image="El archivo ya se encuentra en nuestro servidor."

			







				End If
			Else
				   cpo_Image="El archivo no es compatible."
				   txt_Validado=False
			End If

			set fs=nothing
        End If
        If txt_Validado=True then
            Response.Write("aqui va la accion a tomar en cuanto se ha terminado de meter todos los campos")
        End if
    End if
%>

He hecho algunos añadidos al codigo (como podreis ver), entre ellos: comprobar si el archivo existe en la carpeta upload, y tambien la extension del archivo (en este ultimo caso hice una pregunta tb a este foro al respecto).

Claramente ahora dejan de fallar porque al usarse "multipart/form...." los request no funcionan.

Vi un ejemplo en otro foro (precisamente tuyo) que decia:



entendi que era para lo mismo que quiero hacer, y lo puse, pero no funcionaba.

PD: "cpo_image" se llama el campo de mi formulario que quiero hacer el susodicho "request"