Non mi funaziona ancora, è inserita nel posto giusto?

<%@page language="VB" %>
<%@Import Namespace="System.Web.Util" %>

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

SmtpMail.SmtpServer = "mail.miosito.com"

Sub inviaEmail(Obj As Object, E As EventArgs)
'Creo l'oggetto MailMessage
Dim mailObj AS new MailMessage

'Setto i vari parametri
mailObj.From = "webmaster@miosito.com"
mailObj.To = "asch@miosito.it"
mailObj.Subject = "TEST soggetto della mail"
mailObj.Body = "TEST testo della mail"

'Formato HTML della email
mailObj.BodyFormat = MailFormat.Html

'Invio la mail
SmtpMail.Send(mailObj)
End Sub
</script>