<%@ Import Namespace="System.Web.Mail" %>
<SCRIPT Language="VB" runat="server">

Sub Page_Load()
 SendMail
End Sub

Sub SendMail()
 Try
  ' messaggio e-mail
  Dim msg As New MailMessage
  msg.From = "from@sito.ext"
  msg.To = "to@sito.ext"
  msg.Subject = "Invio di e-mail con allegato"
  msg.Body = "Body del messaggio"

  ' allegato - aggiungo alla collezione Attachments
  msg.Attachments.Add(New MailAttachment(Server.MapPath("prova.zip")))

  ' invio del messaggio
  SmtpMail.Send(msg)

  lblErrore.Text = "Invio ok!"

 Catch e as Exception
  lblErrore.Text = e.Message
 End Try

End Sub
</SCRIPT>
<asp:label id="lblErrore" runat="server"/>