Constatato che negli script di Baol quello che controlla la grandezza non inserisce in un database e quello che inserisce nel database non controlla la grandezza, vorrei:
1- che mi controlli se il campo è vuoto oppureno;
2- se la grandezza dell'immagine supera una certa grandezza mi dia messaggio di immagine non valida;
3- evitare di fare il ciclo per poter inserire piu immagini.
Vi posto il codice (funzionante) dove vorrei fare la modifica...
-------------------------------------------------------------------
<%
Dim oUpload
Set oUpload= new cUpload
With oUpload
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("mdb-database/dati.mdb"),"SELECT Top 1 * FROM upload"
.EnabledAspUpload = False
.EnabledImageSize = true
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "foto"
.Load
.MoveFirst
if .EOF then
NumFiles = .Count()
Response.write "0 Files caricati su " & NumFiles &" : controlla le dimensioni e il tipo di file."
%>
<center>
<input type="button" value="Indietro" onClick="history.back()" name="button22" style="color: #000000; font-size: 8 pt">
</center>
<%
else
.Database.Open()
While Not .EOF
if .Files("InputName")="campo2" then
.Files("DestPath") = Server.MapPath("foto")
.Save
else
.Files("Name")=session("session.sessionID")
.Save
'Inserimento dei valori
.Database.Fields("campo1") = .Form("campo1") 'sessione
.Database.Fields("campo2") = .Form("campo2") 'data
.Database.Fields("campo3") = .Form("campo3") 'ora
.Database.Fields("campo4") = .Form("campo4") 'cognome
.Database.Fields("campo5") = .Form("campo5") 'nome
.Database.Fields("campo6") = .Form("campo6") 'citta
.Database.Fields("campo7") = .Form("campo7") 'titolo
.Database.Fields("campo8") = .Form("campo8") 'testo
.Database.Fields("campo9") = .Form("campo9") 'mail
.Database.Fields("campo10") = .Form("campo10") 'vario
.Database.Fields("immagine") = .GetFileName() 'immagine
.Database.AddNew()
end if
%>
<center>
<font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<%
response.Write "Ciao " & .Form("campo5") &", i dati sono stati inseriti..
"
%>
<input type="button" value="Continua" onClick="location.href='lista.asp'" name="button223" style="color: #000000; font-size: 8 pt">
</font>
</center>
<%
.MoveNext
Wend
end if
End With
Set oUpload = Nothing
%>
Grazie..
Rispondi quotando
