Originariamente inviato da Rick21
Grazie!!
Prima ho aumentato il timeout e mi è rimasto impallata la pagina...dopo però guardando aveva fatto il suo dovere...mmm non capisco.
Ora invece ho preso lo script di baol, lo preferisco ma sto strippando di brutto però...per me è complicato. Tuttavia ora sono riuscito a fare in modo che mi faccia l'upload e che poi immetta dei dati in un DB.
2 problemi perÒ:
- se mando più di un file, al posto di mettermi i dati in foto1(cella del DB), foto2, ecc mi mette sempre in foto1 ma in diversi id..
- se non mando alcun file non funzia tutto lo script e non mette nemmeno il testo nel DB
Come faccio?? Hai un idea? Grazie x l'aiuto
codice:
<%
Dim oUpload, oggetto, descrizione, superficie, prezzo, osservazioni, informazioni
Set oUpload= new cUpload
With oUpload
.EnabledAspUpload = False
.EnabledImageSize = TRUE
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "immagini\"
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../../database/annunci.mdb"),"SELECT Top 1 * FROM annunci"
.Load
.UploadOnly "Images"
While Not .Eof
If .Files("Height")>=800 or .Files("Width")>=800 then
Response.write ("Le dimensioni dell'immagine " &_
.GetFileName() &" non sono corrette (" &_
.Files("Height") &"x" & .Files("Width") &"): File non caricato
" )
else
.Database.Open()
.Save
response.Write "il file " & .GetFileName &" è stato salvato
"
.Database.Fields("OGGETTO") = .Form("OGGETTO")
.Database.Fields("DESCRIZIONE") = .Form("DESCRIZIONE")
.Database.Fields("SUPERFICIE") = .Form("SUPERFICIE")
.Database.Fields("PREZZO") = .Form("PREZZO")
.Database.Fields("OSSERVAZIONI") = .Form("OSSERVAZIONI")
.Database.Fields("VISITE") = .Form("INFORMAZIONI")
.Database.Fields("testo1") = .Form("testo1")
.Database.Fields("testo2") = .Form("testo2")
.Database.Fields("testo3") = .Form("testo3")
.Database.Fields("testo4") = .Form("testo4")
.Database.Fields("foto1") = .GetFileName
.Database.AddNew()
end if
.MoveNext
Wend
End With
Set oUpload = Nothing
response.redirect("index.asp")
%>