Inviare mail ASP.NET

<%@ Page Language="VB" %>
<%@ Import Namespace="System.Net.Mail" %>

 <script language="VB" runat="server">

Sub sendMail(sender As Object, e As EventArgs) 

		 Try

			dim emailMsg as MailMessage  
			emailMsg= new MailMessage(txtFrom.Text, txtTo.Text)
			emailMsg.Subject = txtSubject.Text
			emailMsg.Body = txtBody.Text

		dim client as SmtpClient 
		client = new SmtpClient("smtp.susydany.it", 25)

		client.Credentials = new System.Net.NetworkCredential("dany@susydany.it", "sntdsy")


		client.Send(emailMsg)


		' nascondo la form

		FormMail.visible = false

		lblAvviso.text = "E-mail inviata con successo!"

	  Catch exc As Exception
		lblAvviso.text = "Errore nell'invio del messaggio:" & exc.ToString

	  End Try

	End Sub

</script>