用asp.net不能发邮件问题！急..............................

我试了好久就是不能够发出邮件。
我的空间探针显示
http://www.stshow.net/siteinfo.aspx
程序是这样的
<%@page language="VB" %>
<%@Import Namespace="System.Web.Util" %>
<%@ IMPORT namespace="System.Web.Mail" %>
<script language="vb" runat="server">
sub pag_load()
Dim myMail As New MailMessage()
myMail.From = "[email protected]"
myMail.To = "[email protected]"
myMail.Subject = "UtilMailMessage001"
myMail.Priority = MailPriority.High
myMail.BodyFormat = MailFormat.Html
myMail.Body = "<html><body>UtilMailMessage001 - success</body></html>"
Dim myAttachment As New MailAttachment(server.MapPath("1.txt"), MailEncoding.Base64)
myMail.Attachments.Add(myAttachment)
SmtpMail.SmtpServer = "MyMailServer"
SmtpMail.Send(myMail)end sub
</script>就是不能发送出去，请问我应该怎么修改的程序啊