Public Sub InsertReferrer()
        Dim con As New System.Data.SqlClient.SqlConnection(ConfigurationManager.ConnectionStrings("ConnectionString").ToString)
        Dim cmd As New System.Data.SqlClient.SqlCommand("Insert Into News(DataAccesso, Origine) values (@Data, @Origine)", con)
        Dim par1 As New System.Data.SqlClient.SqlParameter("@Data", Date.Now)   
        Dim par2 As New System.Data.SqlClient.SqlParameter("@Origine", Request.UrlReferrer)
     
        cmd.Parameters.Add(par1)
        cmd.Parameters.Add(par2)
        
        con.Open()

        Dim a As Integer = 0

        a = cmd.ExecuteNonQuery

        cmd.Parameters.Clear()
        con.Close()
        con.Dispose()
    End Sub