form e upload di files

[vincenza]

Ciao

ho un problema con un form per il caricamento dei files,cioé:

< form name="form1" method="post" action="upload.asp" ENCTYPE="multipart/form-data" >

in questo form ho due campi input:

< input name="Titolo" type="text" size="40" >

e

< input type="FILE" name="FILE1" size="40" maxlength="100" >

questo form spedisce i dati alla pagina upload.asp che li carica sul server usando l'oggetto Persits.Upload.1

infatti uso la stringa

Set Upload = Server.CreateObject("Persits.Upload.1")


non riesco a fare in modo che l'utente possa lasciare vuoto il campo di tipo FILE

in soldoni, l'utente dovrebbe PER FORZA caricare un file insieme al testo, altrimenti si genera un errore:

Persits.Upload.1 error '800a0009'

Index out of range.


la riga che genera l'errore è questa:

comodofile=Upload.Files(1).FileName

dove io carico il nome file in una variabile per poi memorizzarlo in un db (Access)

ho provato con varie condizioni (if then else) per escludere questa riga nell caso che ill campo file sia vuoto .... ma in questo caso specifico tutte le istruzioni che io conosco sembrano non funzionare ...

chiaramente mi sfugge qualcosa ...

chi è quel santo che mi dà una mano?

enza

ho spostato qui questo messaggio dopo averlo (molto intelligentemente!!!) postato nel forum HTML ... questo la dice lunga .........

[icodata]

Hai provato a fare un

if

campo file vuoto

then

passa solo il campo text

else

scrivi il codice per il text e per l'upload

end if

[orcim]

Puoi utilizzare un controllo jscript sui nomi dei campi affinchè possano essere sempre debitamente compilati, esempio:

 <script language="JavaScript" type="text/JavaScript">
<!--
function convalidaForm(form1) 
{


  for (var a = 0; a < form1.elements.length; a++) 
	{
	var campo = form1.elements[a];

      	if ((campo.value == '') || (campo.value == 'undefined')) 
		{
        	window.alert('Il campo "' + campo.name +'"\nè un campo obbligatorio in questo form.');
        	campo.focus();
        	return false;
      		}
      		
      		
 

// Invio del FORM abortito
      return(false);
    }
 
  // Abilita l'invio del FORM
  return(true);
}
 
//-->
</script>

< form name="form1" method="post" action="upload.asp" ENCTYPE="multipart/form-data" onsubmit="return(convalidaForm(this));">

[vincenza]

x ICODATA:

ho provato

la questione è che non riesco a trovare una giusta espressione per quel ... 'campo vuoto' ... non funziona

len(upload.form("..."))=0

e neppure

upload.form("...")=""

... ho provato anche altro ... non ti dico cosa!!!

niente!

x ORCIM

proverò ... intanto leggo cosa dice lo script

poi faccio sapere

grazie

enza

[vincenza]

ok ... ho letto ed ho capito cosa fa

il mio problema è, però, che io non voglio renderlo obbligatorio il campo FILE ... vorrei che l'utente sia libero di scegliere se spedire o no una immagine unitamente ad un messaggio ... non me la sento di obbligare la spedizione dell'immagine ...



enza

[Roby_72]

Serve lo script che usi per la seconda pagina.

Roby

[vincenza]

Sì ... eccolo:

dim Upload, comodofile, conn, url
 
Set Upload = Server.CreateObject("Persits.Upload.1") 

set conn=server.createobject("ADODB.Connection")

conn.open("DRIVER={microsoft Access Driver (*.mdb)}; DBQ= " & server.mappath("../../dati/utente.mdb"))

	Upload.Save "D:\enza.medina.name\enza.medina.name\LCMS\www\upload"

	comodofile=Upload.Files(1).FileName

	Upload.Files.Item(1).SaveAs(server.MapPath("../upload/" & comodofile)) 

	url = comodofile

	messaggio=fixquotes(replace(upload.form("messaggio"),chr(13)&chr(10),"
"))
	
	if request.querystring("modo")="modifica" then

		set rs=conn.execute("SELECT idmessaggio FROM diario WHERE idmessaggio="& request.querystring("idmessaggio") &"")

		if not rs.eof then
	
			conn.execute("UPDATE diario SET datamod = Now(), titolo='"& Upload.Form("titolo") &"', messaggio='" & messaggio & "', urlimmagine='"& url &"' WHERE idmessaggio="& request.querystring("idmessaggio") &"")

		end if
	
		rs.close

		set rs=nothing
	
	else

		conn.execute("insert into diario(data, mese, anno, titolo, messaggio, urlimmagine, soggetto, gruppo, corso) values(Now(), "& Upload.Form("mese") &", "& Upload.Form("anno") &", '"& Upload.Form("titolo") &"', '" & messaggio & "', '"& url &"', '" & Upload.form("soggetto") & "', '" & Upload.form("gruppo") & "', '" & Upload.form("corso") & "')")

	end if
conn.close

set conn=nothing

set Upload=nothing

(si inserisce così il codice? ... adesso vediamo se me lo prende ...