Ciao a tutti, utilizzando lo script di Baol ho realizzato un form per l'inserimento in BD di dati e immagini, funziona tutto perfettamente, tranne che i nuovi record creati nel db non si vanno ad aggiungere agli altri ma invece l'ultimo va a sovrascrivere quello precedente. Come potrei risolvere il problema? Grazie.
Lo script utilizzato è:
<%
ID=REQUEST.QUERYSTRING("ID")
Dim oUpload
Set oUpload = new cUpload
With oUpload
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/mdb-database/locali.mdb"),"SELECT Top 1 * FROM archivio"
.EnabledAspUpload = False
.EnabledImageSize = False
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "\public\upload_img\"
.Load
.MoveFirst
if .EOF then
NumFiles = .Count()
Response.write "0 Files caricati su " & NumFiles &" : controlla le dimensioni e il tipo di file."
else
.Database.Open()
While Not .EOF
.Save
response.Write "<align=center>L''immissione dell''articolo è avvenuta correttamente.</Align>
"
response.write "
<align=center>Inserisci un altro locale</align>"
response.write "
<align=center>Vai al pannello di controllo</align>"
'Inserimento dei valori
.Database.Fields("tipologia") = .Form("TIPOLOGIA")
.Database.Fields("nome_locale") = .Form("NOME_LOCALE")
.Database.Fields("indirizzo") = .Form("INDIRIZZO")
.Database.Fields("telefono") = .Form("TELEFONO")
.Database.Fields("commento") = .Form("COMMENTO")
.Database.Fields("giudizio") = .Form("GIUDIZIO")
.Database.Fields("autore") = .Form("AUTORE")
.Database.Fields("immagine") = .GetHTTPPathFile()
IF .form("STATO") = 1 THEN
.Database.Fields("check") = 1
else
.Database.Fields("check") = 0
end if
'Inserimento
.Database.UPDATE()
.MoveNext
Wend
end if
End With
Set oUpload = Nothing
%>

Rispondi quotando
