Script .aspx che NON mi funziona

ico1989

Script .aspx che NON mi funziona

Vi riporto di seguito uno script .aspx che serve a segnalare un sito via email:

<%@ Page Language="VB" ValidateRequest="false" %>
<%@ Import Namespace="System.Web.Mail" %>
<%@ Import Namespace="System.Text.RegularExpressions" %>
<script runat="server">
Private Sub Tell(sender As Object, e As EventArgs)
' Espressione regolare di un indirizzo email per ASP.NET
Dim re As New Regex("(?<user>[^@]+)@(?<host>.+)")

    ' Controllo che il campo Tuo nome venga compilato
    If Len(Trim(TN.Text)) = 0 Then
        Messaggio.Text = "Inserisci il tuo nome"
        Exit Sub
    End If

    ' Controllo che il campo Tua email venga compilato correttamente
    If re.IsMatch(TE.Text) = False Then
        Messaggio.Text = "Inserisci il tuo indirizzo email"
        Exit Sub
    End If

    ' Controllo che il campo Nome Amico venga compilato
    If Len(Trim(NA.Text)) = 0 Then
        Messaggio.Text = "Inserisci il nome del tuo Amico"
        Exit Sub
    End If

    ' Controllo che il campo Email Amico venga compilato correttamente
    If re.IsMatch(EA.Text) = False Then
        Messaggio.Text = "Inserisci l'indirizzo email del tuo Amico"
        Exit Sub
    End If

    ' Formatto la mail in un oggetto MailMessage
    Dim mail As New MailMessage
        mail.To = EA.Text
        mail.From = TE.Text
        mail.Subject = "Segnalazione sito"
        mail.Body = "Ciao " & NA.Text & ", il tuo Amico " & TN.Text _
                    & " ti invita a visitare questo sito" & vbCrLf _
                    & "http://www.mrwebmaster.it"

    ' Invio la segnalazione via email
    SmtpMail.SmtpServer = "smtp.fastwebnet.it"
    SmtpMail.Send(mail)

    Messaggio.Text = "Segnalazione inviata con successo"
End Sub

</script>
<html>
<head>
<title>Tell a Friend</title>
<basefont size="2" face="Verdana">
</head>
<body>

<h1>TELL A FRIEND</h1>

<form id="Modulo" runat="server">
Tuo nome

<asp:Textbox id="TN" runat="server" />

Tua email

<asp:Textbox id="TE" runat="server" />

Nome del tuo Amico

<asp:Textbox id="NA" runat="server" />

Email del tuo Amico

<asp:Textbox id="EA" runat="server" />


<asp:Button runat="server" Text="Invia" OnClick="Tell" />


<asp:Label id="Messaggio" runat="server" />

</form>

</center>

Powered by MR Webmaster</p>

</body>
</html>

Lo script è compatibile con html e frontpage, che infatti permette di salvare pagine web in .aspx, ma NON mi funziona.

Dice:

Linea 12, carattere 13 Previsto ';' (questo lo dice sempre)
Linea 71, carattere 1 'Tell' non è definito (questo lo dice quando
premo 'invia segnalazione')

Perfavore, qualcuno di buona volontà può controllarmi lo script? Io non riesco ad individuare i due errori...

ico1989

In alternativa potete segnalarmi uno script in html o asp che segnali un sito per via email...e che funzioni!!!