Salve a tutti,
premesso che non ho molta esperienza di programmazione e quantaltro,
mi sono cimentato a passatempo in sito
fatto interamente in asp

il mio problema è questo
ho creato un form
con dati generici e 4 foto
che invia i dati a un database mdb
e contemporaneamente gli stessi (non le foto)
all'indirizzo email immesso nel form..

andiamo a noi
ho utilizzato
uplad di persits
che funziona alla grande l'unico grande problema
è che il form funziona solo se allego le "4 immagini",
senza foto con una sola o con 2 ecc non funziona.
Di seguito riporto il codice
del file asp che invia i dati all email e al database

ovviamente il form è impostato con il metodo
multipart/form-data
altrimenti non funzionerebbe l'upload...

grazie in anticipo!


<%
Set Upload = Server.CreateObject("Persits.Upload")

Count = Upload.Save(Server.MapPath("/public/"))
Set File = Upload.Files("FILE")
Set File2 = Upload.Files("FILE2")
Set File3 = Upload.Files("FILE3")
Set File4 = Upload.Files("FILE4")


%>



<%

Public Function GetEmailUser(User, Pass)

StrSQL = "SELECT * FROM ANNUNCI"
set Rs = GetRSFwd(StrSQL)

If Not Rs.Eof Then
GetEmailUser = Rs("Email")
End If

Rs.Close

End Function



Public Sub SendEmailForNewAccount(Corso, SedeCorso, Cognome, Nome, Codice_fiscale, User, Pass)

invioA = Upload.Form("email")
invioDa = "info@xxxxxx.it"

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update




MessageTxt = MessageTxt & "Il tuo annuncio è stato pubblicato!" & vbCrLf & vbCrLf

MessageTxt = MessageTxt & "Data di pubblicazione:" & Replace(Data_INS,"'","") & vbCrLf & vbCrLf

MessageTxt = MessageTxt & "Di seguito sono riportati i dati inseriti al momento della pubblicazione:" & vbCrLf & vbCrLf

MessageTxt = MessageTxt & "Cognome: " & Replace(Cognome,"'","") & vbCrLf & vbCrLf

MessageTxt = MessageTxt & "Nome: " & Replace(Nome,"'","") & vbCrLf& vbCrLf

MessageTxt = MessageTxt & "Indirizzo: " & Replace(Indirizzo,"'","") & vbCrLf& vbCrLf

MessageTxt = MessageTxt & "Provincia: " & Replace(Provincia,"'","") & vbCrLf& vbCrLf

MessageTxt = MessageTxt & "Comune: " & Replace(Citta,"'","") & vbCrLf & vbCrLf

MessageTxt = MessageTxt & "Telefono: " & Replace(Telefono,"'","") & vbCrLf & vbCrLf

MessageTxt = MessageTxt & "Cellulare: " & Replace(Cellulare,"'","") & vbCrLf & vbCrLf

MessageTxt = MessageTxt & "Email: " & Replace(Email,"'","") & vbCrLf & vbCrLf

MessageTxt = MessageTxt & "Categoria Scelta: " & Replace(Categoria,"'","") & vbCrLf & vbCrLf



With iMsg
Set .Configuration = iConf
.To = invioA
.Cc = "info@xxxxx.it"
.From = invioDa
.Sender = invioDa
.Subject = "NUOVO email"
.TextBody = MessageTxt
.Send
End With

End Sub

If Upload.Form("Submit") <> "" Then

StrSQL = "SELECT * FROM ANNUNCI"
set Rs = GetRSFwd(StrSQL)


Rs.AddNew
Rs("provincia_annuncio") = UCase(Upload.Form("provincia_annuncio"))
Rs("categoria") = UCase(Upload.Form("categoria"))
Rs("titolo") = UCase(Upload.Form("titolo"))
Rs("testo") = UCase(Upload.Form("testo"))
Rs("Cognome") = UCase(Upload.Form("Cognome"))
Rs("Nome") = UCase(Upload.Form("Nome"))

rs("foto") = File.FileName
rs("foto2") = File2.FileNamE
rs("foto3") = File3.FileName
rs("foto4") = File4.FileName

Rs("prezzo") = UCase(Upload.Form("prezzo"))
Rs("telefono_annuncio") = UCase(Upload.Form("telefono_annuncio"))
Rs("email_annuncio") = UCase(Upload.Form("email_annuncio"))
Rs("privato_azienda") = UCase(Upload.Form("privato_azienda"))
Rs("Citta") = UCase(Upload.Form("Citta"))
Rs("Indirizzo") = UCase(Upload.Form("Indirizzo"))
Rs("Telefono") = UCase(Upload.Form("Telefono"))
Rs("Cellulare") = UCase(Upload.Form("Cellulare"))
Rs("Provincia") = UCase(Upload.Form("Provincia"))
Rs("email") = UCase(Upload.Form("email"))
Rs("Data_INS") = Date()
Rs("Ora") = time()


Rs.UpDate
Rs.Close
Set rs = Nothing



Nome = Upload.Form("Nome")
Cognome = Upload.Form("Cognome")
provincia_annuncio= Upload.Form("provincia_annuncio")
categoria = Upload.Form("categoria")
Provincia = Upload.Form("Provincia")
Citta = Upload.Form("Citta")
Indirizzo = Upload.Form("Indirizzo")
Telefono = Upload.Form("Telefono")
Cellulare = Upload.Form("Cellulare")
email = Upload.Form("email")
categoria = Upload.Form("categoria")
titolo = Upload.Form("titolo")
testo = Upload.Form("testo")
foto = File.FileName
foto2 = File2.FileName
foto3 = File3.FileName
foto4 = File4.FileName
prezzo = Upload.Form("prezzo")
telefono_annuncio = Upload.Form("telefono_annuncio")
email_annuncio = Upload.Form("email_annuncio")
privato_azienda= Upload.Form("privato_azienda")
Data_INS = Date()
Ora = Time()





SendEmailForNewAccount Corso, SedeCorso, Cognome, Nome, Codice_fiscale, User, Pass

Status = "email pubblicata con Successo "

End If



Response.Redirect("annuncio_inviato.asp?Status=" & Status)
%>