invio mail dopo inserimento dati

[Uccio87]

Ho dovuto fare una modifica:

submitted = Request.Querystring("submitted")

If Submitted then


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 str_cn,"SELECT Top 1 * FROM tbl_magazzino"
.EnabledAspUpload    = False
.EnabledImageSize    = False
.EnabledLog          = False
.AutoRename          = True
.Overwrite             = False
.SetPath "files\"
.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
            'Inserimento dei valori
            .Database.Fields("codice") = .Form("codice")
            .Database.Fields("immagine") = .GetCompletePathFile
            .Database.Fields("descrizione") = .Form("descrizione")
            .Database.Fields("categoria") = .Form("categoria")
            .Database.Fields("costo") = .Form("costo")
            .Database.Fields("email") = .Form("email")
            'Inserimento
            .Database.AddNew()
    .MoveNext
    Wend






'invio una mail per avvisare del inserimento di nuovi dati
Dim miaMail


Set miaMail = CreateObject("CDO.Message")


miaMail.From = "weblab@weblab.com"


Response.Write email

miaMail.To = .Form("email")


miaMail.Subject = "Inserimento articolo"


miaMail.TextBody  = "Inserito il nuovo articolo."


miaMail.Send


Set miaMail = Nothing


 Response.Write "<p>" & "Nuovi dati inseriti e inviata mail conferma" &"</p>"


end if
End With
Set oUpload = Nothing
End if

Mi restituisce come errore

Impossibile utilizzare l'insieme Request.Form dopo aver richiamato il metodo BinaryRead. alla linea miaMail.To = .Form("email")