upload facoltativo di un file

[hugheshi]

come posso rendere facoltativo l'upload di un file ?

<FORM NAME ="info" METHOD="Post" enctype="multipart/form-data" ACTION="upload_foto.asp">
...
 <input type="file" name="foto" >

il file che riceve i dati ha il seguente codice

<%
Dim oUpload
Set oUpload= new cUpload
With oUpload
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("./mdb/news.mdb"),"SELECT Top 1 * FROM prima "

.EnabledAspUpload = False
.EnabledImageSize = True
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "./foto/"
.Load
.UploadOnly "Images"

If .Files("Height")>=40 or .Files("Width")>=60 then
 Response.write ("Le dimensioni dell'immagine " &_
 .GetFileName() &" non sono corrette (" &_
 .Files("Height") &"x" & .Files("Width") &"): File non caricato 
" )

 Response.write ("Ritorna indietro
")
 else
	.Database.Open()
	While Not .EOF
			.Save
			response.Write "Dati inseriti e la foto " & .GetFileName &" è stata salvata 
"
			
			Response.write ("Inserisci ancora foto
")
			
			Response.write ("Ritorna Indietro
")
			
			'Inserimento dei valori
			.Database.Fields("nome") = .Form("nome")
			.Database.Fields("filename") = .GetFileName
			.Database.Fields("percorso") = .GetCompletePathFile
			'Inserimento 
			.Database.AddNew()
	.MoveNext
	Wend
end if
End With
Set oUpload = Nothing

%>

[Baol74]

Prima dell' if .Files("Height") ect. metti un

If Not .EOF then
 If .Files("Height")>=40 or .Files("Width")>=60 then
 .
 .
 else
 .
 .
 End If
End If

[hugheshi]

la pagina che carica resta bianca
e non effettua la scrittura dei dati sul db

[Baol74]

cosa intendi per facoltativo??? Se non carichi il file cosa scrivi su db?

[hugheshi]

se il campo file è vuoto vorrei che i dati relativi es nome o altro vengano cmq caricati sul db e la foto no

[hugheshi]

..mi puoi aiutare ?
secondo me dovrei solo mettere delle if ma non so (come scriverle)

[Baol74]

Così :

If Not .EOF then
 If .Files("Height")>=40 or .Files("Width")>=60 then
 .
 .
 else
 .
 .
 End If
Else
 .database.Open()
 .Database.Fields("nome") = .Form("nome")
 .Database.AddNew()
End If

.EOF ti dice se ci sono file caricati, se non ci sono esegui l'else e fai l'inserimento nel database

[hugheshi]

...scusami ma non funziona ....

[Baol74]

e cosa succede ? ti da errore?

Hai messo l'else?

[hugheshi]

<%
Dim oUpload
Set oUpload= new cUpload
With oUpload
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("./mdb/news.mdb"),"SELECT Top 1 * FROM prima "

.EnabledAspUpload = False
.EnabledImageSize = True
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "./foto/"
.Load
.UploadOnly "Images"
If Not .EOF then

If .Files("Height")>=40 or .Files("Width")>=60 then
 Response.write ("Le dimensioni dell'immagine " &_
 .GetFileName() &" non sono corrette (" &_
 .Files("Height") &"x" & .Files("Width") &"): File non caricato 
" )

 Response.write ("Ritorna indietro
")
 Response.write ("Pagina Principale Area Riservata
")

Else
 .database.Open()
 .Database.Fields("nome") = .Form("nome")
 .Database.AddNew()
End If


else
	.Database.Open()
	While Not .EOF
			.Save
			response.Write "Dati inseriti e la foto " & .GetFileName &" è stata salvata 
"
			
			Response.write ("Inserisci ancora foto
")
			
			Response.write ("Ritorna Indietro
")
			
			'Inserimento dei valori
			.Database.Fields("nome") = .Form("nome")
			.Database.Fields("filename") = .GetFileName
			.Database.Fields("percorso") = .GetCompletePathFile
			'Inserimento 
			.Database.AddNew()
	.MoveNext
	Wend
end if

end With
Set oUpload = Nothing

%>