upload database di baol con nome immagine su un mdb

[George]

Ciao a tutti

Io ho l’esigenza di fare un upload di un file e salvare il nome del file in un database di access esistente dove ci sono altri dati. Riesco a fare upload usando come script quello di baol.
Ma per salvare il nome ho cercato di seguire come ha fatto Iron83 ma enza riuscirci.
Mi aiutate grazie

codice nella pagina:


<%
Dim oUpload
Set oUpload= new cUpload
With oUpload
'La riga seguente impoosta la connessione al database e la tabella di inserimento dati
'La connesione e la tabella verranno aperti con il metodo oUpload.Database.Open()
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("database/prova.mdb"),"SELECT Top 1 * FROM Inserzione"
.EnabledAspUpload = False
.EnabledImageSize = False
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "/database/"
.Load
.MoveFirst
if .EOF then
NumFiles = .Count()
Response.write "0 Files caricati su " & NumFiles &" : controlla le dimensioni e il ttipo di file."
else
.Database.Open()
While Not .EOF
.Save
response.Write "il file " & .GetFileName &" è stato salvato
"
'Inserimento dei valori
.Database.Fields("nomefile") = .GetFileName
.Database.Fields("Percorso") = .GetCompletePathFile
'Inserimento
.Database.AddNew()
.MoveNext
Wend
end if
End With
Set oUpload = Nothing
%>
<FORM METHOD="Post" enctype="multipart/form-data" ACTION="?upload=1">
File : <INPUT TYPE="file" NAME="Campo1">

<INPUT TYPE="submit" NAME="Enter">
</FORM>

[Roby_72]

Hai errori? Quali? Dove?

Roby

[George]

Ciao Roby - Grazie

mi restituisce una pagina bianca. Non riesco a capire

[George]

con questo codice nella pagina di form


<%
Dim oUpload
Set oUpload= new cUpload
With oUpload
'La riga seguente impoosta la connessione al database e la tabella di inserimento dati
'La connesione e la tabella verranno aperti con il metodo oUpload.Database.Open()
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/database/prova.mdb"),"SELECT Top 1 * FROM Inserzione"
.EnabledAspUpload = False
.EnabledImageSize = False
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "/database/"
.Load
.MoveFirst
if .EOF then
NumFiles = .Count()
Response.write "0 Files caricati su " & NumFiles &" : controlla le dimensioni e il ttipo di file."
else
.Database.Open()
While Not .EOF
.Save
response.Write "il file " & .GetFileName &" è stato salvato
"
'Inserimento dei valori
.Database.Fields("Titolo") = .Form("Titolo")
.Database.Fields("Percorso") = .GetCompletePathFile
'Inserimento
.Database.AddNew()
.MoveNext
Wend
end if
End With
Set oUpload = Nothing
%>
<FORM METHOD="Post" enctype="multipart/form-data" ACTION="?upload=1">
File : <INPUT TYPE="file" NAME="Campo1">

<INPUT TYPE="submit" NAME="Enter">
</FORM>



mi restituisce questo errore


Microsoft VBScript runtime error '800a01a8'

Object required: 'Files'

/autoepoca/upload.asp, line 1002



perchè devo cambiare qualcosa evidentemente ma cosa?


AIUTO Grazie.

[George]

Ciao a tutti,

con molta pazienza e tanto tempo perso sono riuscito ad ottenere un minimo di risultato.
Adesso con il mio form e lo script di baol (upload.asp e upload_database.asp) riesco a caricare nel server due immagini e scrivere nel database i nomi dei file e i campi testo del form che mi interessano.
Problema, comune ad altri, che crea due record con le stesse informazioni eccetto l’id e il nome del file se carico due foto.
Il mio obbiettivo è due foto e un record con le informazioni nome dei campi fotopiccola e fotogrande e altri campi testo. Si può? come?

Di seguo il codice:



<%
Dim oUpload
Set oUpload= new cUpload
With oUpload
'La riga seguente impoosta la connessione al database e la tabella di inserimento dati
'La connesione e la tabella verranno aperti con il metodo oUpload.Database.Open()
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/database/news.mdb"),"SELECT Top 1 * FROM news"
.EnabledAspUpload = False
.EnabledImageSize = False
.EnabledLog = False
.AutoRename = False
.Overwrite = True
.SetPath "/database/"
.Load
.MoveFirst
if .EOF then
NumFiles = .Count()
Response.write "0 Files caricati su " & NumFiles &" : controlla le dimensioni e il ttipo di file."
else
.Database.Open()
While Not .EOF
.Save
response.Write "il file " & .GetFileName &" è stato salvato
"
'Inserimento dei valori
.Database.Fields("Fotopiccola") = .GetFileName
'.Database.Fields("Fotogrande") = .GetFileName
.Database.Fields("Descrizione") = .Form("Descrizione")
.Database.Fields("Oggetto") = .Form("Oggetto")
'Inserimento
.Database.AddNew()
.MoveNext
Wend
end if
End With
Set oUpload = Nothing
%>

[Roby_72]

Devi recuperare i nomi delle foto e poi, senza usare quella parte di script, creare una query standard di INSERT INTO per inserire le informazioni in un solo record.

Roby

[George]

Grazie Roby

ho Risolto diversamente ho seguito una discussione in questo forum che non riesco più a ritrovare. Comunque ho aggiunto il seguente codice:

Select Case lCase(.Files("InputName"))
Case "fotopiccola" :.Database.Fields("Fotopiccola") = .GetFileName
Case "fotogrande" :.Database.Fields("Fotogrande") = .GetFileName
END SELECT
.MoveNext
Wend
.Database.AddNew()
.Database.Close

Adesso ho solo due domande come inserisco automaticamente la data del record creato nel campo data del database e come invio un email che avverte del record inserito magari recuperando l'ID ?

grazie.