Ragazzi l'upload di baol mi funziona solo in parte..Cioè scrive il nome dell'immagine sul database ma non la carica sul server..Potete aiutarmi? vi posto le pagine
PAGINA CON IL FORM:
<p align="center"><font color="#990000">AGGIUNGI
ARTICOLO</font></p>
<p align="center">
<FORM METHOD="Post" enctype="multipart/form-data" action="uploadarticoli.asp">
<div align="left">
<font color="#000000">Nome:</font>
<input name="nome" type="text" id="nome">
</p>
Categoria:
<select name="categoria" id="categoria">
<option value="1">Ceramiche tradizionali</option>
<option value="2">Fischietti d'autore</option>
<option value="3">Presepi</option>
<option value="4">Cartapesta</option>
<option value="5">Oggettistica d'arte</option>
</select>
</p>
<p align="left"><font color="#000000">Descrizione:
</font><font color="#000000">
<textarea name="descrizione" id="descrizione"></textarea>
</font></p>
<p align="left"><font color="#000000">Codice:
<input name="codice" type="text" id="codice">
</font></p>
<p align="left"><font color="#000000">Immagine
:
<INPUT TYPE="file" NAME="Campo1">
</font></p>
<p align="left"></p>
<p align="center"><font color="#000000">
<input type="submit" name="Submit" value="Aggiungi">
<input type="reset" name="Submit2" value="Reimposta">
</font></p>
<p align="left"></p>
</div>
</form>
PAGINA DI UPLOAD:
<%
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("../mdb-database/artigianato.mdb"),"SELECT * FROM articoli"
.EnabledAspUpload = False
.EnabledImageSize = False
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "../file/immagini"
.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 "il file " & .GetFileName &" è stato salvato
"
'Inserimento dei valori
.Database.Fields("immagine") = .GetFileName
.Database.Fields("nome") = .Form("nome")
.Database.Fields("descrizione") = .Form("descrizione")
.Database.Fields("codice") = .Form("codice")
.Database.Fields("categoria") = .Form("categoria")
'Inserimento
.Database.AddNew()
.MoveNext
Wend
end if
End With
Set oUpload = Nothing
Response.Redirect("riservato.asp")
%>
E POI C'E' IL SOLITO UPLOAD.ASP MA QUELLO è CORRETTO PERCHè LO USATO ALTRE VOLTE..
DOVE SBAGLIO?
GRAZIE IN ANTICIPO
Rispondi quotando
