Private cn As New ADODB.Connection
    Private rs As New ADODB.Recordset
    
   

    Private Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
        cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" _
        & Server.MapPath("~/app_data/database2.mdb"))
        rs.Open("SELECT * FROM guestbook ORDER BY id DESC", cn, 1)
        cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" _
             & Server.MapPath("~/app_data/risultati2010.mdb"))
        rs.Open("SELECT * FROM risultati ORDER BY id DESC", cn, 2)
        
        rs.Close()
        
        cn.Close()
    End Sub
    
  
    Private Sub Firma(ByVal sender As Object, ByVal e As EventArgs)
        Dim re As New Regex("")
        Dim giornatab As String = Request.QueryString("giornata")
        Dim dates As String = Request.QueryString("commenti3")
        Dim nome As String = HttpContext.Current.User.Identity.Name
        Dim squadraaa As String = Request.QueryString("squadraa")
        squadraaa = squadraaa.Replace(" ", "%20")
        Dim squadrabb As String = Request.QueryString("squadrab")
        squadrabb = squadrabb.Replace(" ", "%20")
        Dim url As String = Request.QueryString("gior")
        Dim data As String = FormatDateTime(Now(), 1)
        Dim id As String = Request.QueryString("id")
        
        Dim messaggio As String
        messaggio = Replace( _
           Replace( _
           Replace( _
           txtMessaggio.Text, "<", "&lt;"), vbCrLf, "<br>"), "'", "''")
        
        If Len(Trim(messaggio)) = 0 Then
            Messaggi.Text = "Inserisci il messaggio"
            Exit Sub
            
        End If
        
        Dim SQL As String = ""
        SQL += "INSERT INTO guestbook "
        SQL += "(nome, messaggio, data, id, url, squadraaa, squadrabb, giornatab, dates)"
        SQL += "VALUES "
        SQL += "('" & nome & "', "
        SQL += "'" & data & "', "
        SQL += "'" & messaggio & "', "
        SQL += "'" & id & "', "
        SQL += "'" & url & "', "
        SQL += "'" & squadraaa & "', "
        SQL += "'" & squadrabb & "', "
        SQL += "'" & giornatab & "', "
        SQL += "'" & dates & "')"
        
        cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" _
        & Server.MapPath("~/app_data/database2.mdb"))
        
        Dim EMAIL As New MailMessage()

        EMAIL.From = "info@fantalegalofe.net"
        EMAIL.[To] = "luca.digioia@gmail.com, luca_digioia@libero.it"
        
        EMAIL.Subject = "Risultati: notifica messaggio da " + nome
        EMAIL.Body = DateTime.Now & " giornata: " & Request.QueryString("giornata") & " del " & Request.QueryString("commenti3") & vbCr & vbLf & _
         nome & " ha commentato la partita tra: " & Request.QueryString("squadraa") & " - " & Request.QueryString("squadrab") & vbCr & vbLf & _
         "______________________________________________________________________________________________________________ " & vbCr & vbLf & _
         messaggio & vbCr & vbLf & _
         "" & vbCr & vbLf & _
         "" & vbCr & vbLf & _
         "" & vbCr & vbLf & _
         "______________________________________________________________________________________________________________ " & vbCr & vbLf & _
         "se vuoi rispondere vai alla pagina: " & vbCr & vbLf & _
         "http://www.fantalegalofe.net/statistiche/2010/default.aspx?id=" & id & "&gior=" & url & "&squadraa=" & (Trim(squadraaa)) & "&squadrab=" & (Trim(squadrabb)) & vbCr & vbLf & _
         "______________________________________________________________________________________________________________ " & vbCr & vbLf & _
         "messaggio generato in automatico non rispondere a questa email"
        
      
        Try
            SmtpMail.Send(EMAIL)
            Errore.Text = "Messaggio inviato"
        Catch Ex As Exception
            Errore.Text = "Errore nell'invio: " + Ex.Message
        End Try
        cn.Execute(SQL)
        cn.Close()
       
        Response.Redirect("default.aspx?id=" & Request.QueryString("id") & "&gior=" & Request.QueryString("gior") & "&squadraa=" & Request.QueryString("squadraa") & "&squadrab=" & Request.QueryString("squadrab"))
    End Sub