allora il problema dell'aggiornamento del database l'ho risolto era un semplice cretino problema di uno spazio

l'errore access is denied è riferito all'invio della e-mail

con questo codice:

Try
' messaggio e-mail
dim testo = "Caro utente," & chr(10)
testo = testo & "in data " & now() & " i suoi dati risultano modificati i nuovi dati sono: " & chr(10)
testo = testo & "nome: " & nome.text & chr(10)
testo = testo & "cognome: " & cognome.text & chr(10)
testo = testo & "anno di nascita: " & nascita.selecteditem.text & chr(10)
testo = testo & "cittò di residenza: " & citta.text & chr(10)
testo = testo & "nazionalità: " & nazione.text & chr(10)
testo = testo & "professione: " & professione.text & chr(10)
testo = testo & "titolo di studio: " & titolo.selecteditem.text & chr(10)
testo = testo & "username: " & username.text & chr(10)
testo = testo & "password: " & password.text & chr(10)
testo = testo & "e-mail: " & email.text & chr(10)
testo = testo & "domanda segreta: " & domanda.text & chr(10)
testo = testo & "risposta: " & risposta.text & chr(10)
testo = testo & chr(10)
testo = testo & chr(10)
testo = testo & "Lo staff di APPUNTI.IT!" & chr(10)
dim mail = CreateObject("CDO.Message")
mail.From = "appunti.it@tin.it"
mail.To = email.text
mail.Subject = "MODICA DATI DI REGISTRAZIONE SU APPUNTI.IT"
mail.textBody = testo
mail.Send
mail = nothing
if email2.text=email.text then
lblErrore.Text = "Ti è stata inviata una e-mail al tuo indirizzo di posta elettronica con il riepilogo dei nuovi dati"
else
dim mail2 = CreateObject("CDO.Message")
mail2.From = "appunti.it@tin.it"
mail2.To = email2.text
mail2.Subject = "MODICA DATI DI REGISTRAZIONE SU APPUNTI.IT"
mail2.textBody = testo
mail2.Send
mail2 = nothing
lblerrore.text = "Dato ke è stato modificato l'indirizzo e-mail è stata madata una e-mail con il riepilogo dei dati inseriti sia al vecchio indirizzo di posta elettronica che a quello nuovo"
end if
Catch e as Exception
lblErrore.Text = e.Message
End Try


dove è l'errore?

grazie per l'interessamneto saluti pierpaolo

si so ke lo spazio è gratuito e x 30 gionri ma a me serve x un esame universitario ke devo consegnare lunedì qnd mi serve giusto il tempo x farlo vedere al prof poi se riesco a trovare uno spazio gratuito (anzi se me ne sai suggerire uno) allora lo lascio anke pubblicato sul web dato ke si tratta di un servizio ke può tornare utile a kiunque sia uno studente

x quanto riguardoa l'ggetto cdo l'ho usato xkè è l0unico script ke mi ha funzionato in locale...

tu sapresti suggerirmene una'latro correggendo il mio codice?

grazie x l'interessamento

saluti pierpaolo

ho provato a scrivere il codice di invio mail così:

Dim Mail As New MailMessage()
Mail.From = "from@dominio.it"
Mail.To = email.text
Mail.Subject = "Oggetto della mail"
Mail.Priority = MailPriority.Normal
Mail.BodyFormat = MailFormat.HTML
Mail.Body = testo

SmtpMail.Send(Mail)

ma in locale funziona inviandomi l'email mentre se lo uso sullo spazio web mi dice:

Could not access 'CDO.Message' object.

dov'è il problema?

saluti pierpaolo

---

Modificato da pcatala il 11 novembre 2004 14.30 -

---

Modificato da pcatala il 11 novembre 2004 14.34 -

ok grazie

ho risolto modificando lo script in questa maniera

M = New MailMessage
With M
.From = "pippo@tin.it"
.To = email.text
.Subject = "MODICA DATI DI REGISTRAZIONE SU APPUNTI.IT"
.Body = testo
.BodyFormat = MailFormat.text
End With
SmtpMail.SmtpServer = "mail.tin.it"
smtpMail.Send(M)

ora xò mi sorgono 2 dubbi:
1) così facendo utilizzo il servizio smtp di tin.it ma ciò significa ke se micollego da un computer ke non usa un accesso ad internet tin.it nopn invia più la mail?

2 nel campo .from ho messo"pippo@tin.it" ma io non vorrei mettere un indirizzo e.mail ma bensi un "nome ad esempio "staff di appunti" come faccio?

un grazie anticipato x le risposte

saluti pierpaolo