Buongiorno,


ho un problema nell'inviare una mail contenente i dati di un form che aggiornano una tabella sql server.


la compilazione e l'aggiornamento della tabella funzionava perfettamente fino a quando ho inserito il codice per l'invio di una mail
contenente gli stessi dati.


questo è l'errore segnalato:


The transport failed to connect to the server.


102: SmtpMail.Send(msg)


...e questo è il codice...




If Page.IsValid Then
Dim strconn As String

Dim strdiv As String
Dim strsql As String
Dim strprivacy As String
strprivacy = Messaggio.Text
strsql = ""
strdiv = ""


Dim msg As New System.Web.Mail.MailMessage()
msg.Subject = "invio iscrizione al corso"
msg.Body = "iscrizione corso " & nomecorso.Text & " Cognome " & cognome.Text & " Nome " & nome.Text & " nascita " & nascita.Text & " codice fiscale " & codfis.Text & " e-mail " & posta.Text & " cellulare " & telefono.Text & ""
msg.To = "contatti@dominio.it"
msg.From = posta.Text
SmtpMail.SmtpServer = "smtps.aruba.it"
SmtpMail.Send(msg)


Dim conn As SqlConnection
Dim command As SqlCommand
Dim datagiorno As String
datagiorno = DateTime.Now.ToString()
strconn = "Data Source......



strsql = "insert into iscrizioni(isc_cognome, isc_nome, isc_nascita, isc_codfis, isc_indirizzo, isc_cap, isc_citta, isc_provincia, isc_cellulare, isc_mail, isc_descricorso, isc_data, isc_privacy)" & _
"values ('" & cognome.Text & "', '" & nome.Text & "', '" & nascita.Text & "', '" & codfis.Text & "', '" & indirizzo.Text & "', '" & cap.Text & "','" & citta.Text & "','" & provincia.Text & "','" & telefono.Text & "','" & posta.Text & "','" & nomecorso.Text & "','" & datagiorno & "', '" & strprivacy & "')"
strdiv = "<strong>DATI INSERITI CORRETTAMENTE - SARETE CONTATTATI AL PIU' PRESTO <br /><a href='https://www.dominio.htm'>CLICCARE QUI PER TORNARE ALLA HOME PAGE</strong></a>"


conn = New SqlConnection(strconn)
command = New SqlCommand(strsql, conn)
command.Connection.Open()
command.ExecuteNonQuery()
command.Connection.Close()
risultato.Visible = True
risultato.InnerHtml = strdiv
form_blocco.Visible = False






Else
risultato.InnerHtml = "Form non valido"
End If
End Sub




grazie e saluti, Maurizio