Send rendered page as mail

OK this sin't perfect but it does work. It should give you a good start anyway.
VB Code:
<%@ Page Language="VB" %>
<%@ import Namespace="System.IO" %>
<%@ import Namespace="System.Net" %>
<%@ import Namespace="System.Web.Mail" %>
<script runat="server">
 
    Dim strMailBody as String
 
    Private Sub GetHTML()
        Dim strmReader As StreamReader = Nothing
        Dim StrURL As String = "http://blogs.msdn.com/lisawoll/"
 
        Dim objRequest As WebRequest = WebRequest.Create(StrURL)
        Dim objResponse As WebResponse = objRequest.GetResponse()
 
        strmReader = New StreamReader(objResponse.GetResponseStream())
 
        Dim strContent As String = strmReader.ReadToEnd()
        Dim RegEx As Regex = _
            New Regex("<HTML>((.|\n)*?)</HTML>", _
            RegexOptions.IgnoreCase)
 
        Dim getMatch As Match = RegEx.Match(strContent)
        strMailBody = (getMatch.Value)
 
        Dim email As New MailMessage
 
        With email
            .To = txtTo.Text
            .From = txtFrom.Text
            .Body = strMailBody
            .Subject = txtSubject.Text
            .BodyFormat = MailFormat.HTML
        End With
 
        smtpMail.SmtpServer() = txtMserver.Text
        SmtpMail.Send(email)
 
    End Sub
 
    Private Sub Button1_Click(s As Object, e As EventArgs)
        GetHTML()
    End Sub
 
</script>