• User Attivo

    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>

    <center>

    <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:

    1. Linea 12, carattere 13 Previsto ';' (questo lo dice sempre)
    2. 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... 😕


  • User Attivo

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