Newsgroup: it.comp.www.asp
Titolo: problema con upload immagini

BAOL upload - non uploadare
Ci riprovo, cercando di esporre meglio il concetto (PROBLEMA  )
Ho modificato lo script save.asp per poter salvare senza sovrascrittura e
selezione del "path" di destinazione i file inviati, qui lo script:
<!--#Include File="Upload.asp"-->
<%
Dim oUpload
Set oUpload = new cUpload
oUpload.Load()
oUpload.SetPath "foto\"
While Not oUpload.EOF
oUpload.Save()
Response.Write "Salvo la foto: " & oUpload.GetFileName() & "<br>"
Response.Write "Dimensioni della foto: " & oUpload.Files("Size") & "bytes" &
"<br>"%>
'definizione della variabile
dim strNick
dim strRegione
dim strPaese
dim strZona
dim strTipologia
dim strEmail
dim strCellulare
dim strAnnuncio
dim strCode
dim data
dim strNomefoto
'recupero valori
strNick=oUpload.form("requirednick")
strRegione=oUpload.form("requiredregione")
strPaese=oUpload.form("requiredpaese")
strZona=oUpload.form("requiredzona")
strTipologia=oUpload.form("requiredtipologia")
strEmail=oUpload.form("requiredemail")
strCellulare=oUpload.form("cellulare")
strAnnuncio=oUpload.form("requiredannuncio")
strNomefoto=oUpload.getFileName()
strCode="innovatel"
data=now
gg=Day(data)
mm=Month(data)
aa=Year(data)
data=gg & "/" & mm & "/" & aa
'Mappaggio del database
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)};"
strConn=strConn & "DBQ=" & Server.MapPath ("database.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn
'Stringa di interrogazione sulla tabella annunci
sql = "SELECT * FROM annunci"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
'Preparazione e scrittura nuovo record
rs.addnew
rs(1) = data
rs(2) = strNick
rs(3) = strRegione
rs(4) = strPaese
rs(5) = strZona
rs(6) = strTipologia
rs(7) = strEmail
rs(8) = strCellulare
rs(9) = strAnnuncio
rs(10) = strNomefoto
rs.update
'Chiusura del database
rs.Close
set rs=Nothing
conn.close
set conn=Nothing
oUpload.MoveNext
Wend
Set oUpload=Nothing
%>
Ho inserito come potete vedere dalle stringhe recuperate che ho usato un
java script nella pagina del form.
[!] Il problema sorge quando il campo <input type="file" ...> non contiene
alcun file. L'upload non avviene e il recordset non viene salvato nel
database che non viene aggiornato. Al contrario se il file e' presente i
dati vengono memorizzati.
OBIETTIVO dello script: Aggiornare il database con tutti i campi e
aggiungere nel campo (10) del recordset, nel caso il campo input type="file"
fosse vuoto, una stringa "vuoto.gif".
Spero che ora qualcuno mi aiuti! Grazie.

 strNomefoto=oUpload.getFileName()
Qui puoi fare una verifica:
if oUpload.getFileName()="" then
strNomeFoto="vuoto.gif"
else
strNomeFoto=oUpload.getFileName()
end if
Ciao
-- 
AZ [Microsoft - .NET MVP]
Mia Home page: 
http://ciclismo.sitiasp.it
Asp.Net community: 
http://www.aspitalia.com
Il mio blog: 
http://blogs.aspitalia.com/az
 

 Ciao
Ti invio l'allegato direttamente, non lo posto nel newsgroup perchè non so
se e' permesso farlo...
Ho provato a cambiare il codice:
<%
Dim strNomefoto
Dim oUpload
Set oUpload = new cUpload
oUpload.Load()
strNomefoto=oUpload.getFileName()
if len(trim(strNomeFoto))=0 then strNomefoto="vuoto.gif"
else
oUpload.SetPath "foto\"
While Not oUpload.EOF
oUpload.Save()
....
resto del codice
....
wend
end if
Set oUpload=Nothing
Sempre il solito prob. se il campo file del form e' vuoto i dati dei vari
campi non vengono salvati nel recordset, altrimenti il tutto va bene.

Penso che  il problema sussista all'apice dello script. Infatti
se non trova alcuna immagine, o file, lo script non prosegue nel salvataggio
quindi non prosegue con l'elaborazione del restante codice.