Dinosauri

Cito dal sito del Corriere di questa mattina:

MILANO - A far estinguere i dinosauri forse non fu la caduta di un immenso meteorite, ma la comparsa e il moltiplicarsi di piccoli insetti. A formulare quest'ipotesi è l'entomologo americano George Poinar, professore alla «Oregon State University». Secondo lo scienziato sarebbero infezioni epidemie trasmesse da questi antichi insetti sarebbero state la causa principale della scomparsa dei giganteschi rettili

Mi pare una panzana... ma da un entomologo che cosa ci si aspettava: che la colpa fosse dei piccioni??? E' ovvio che ognuno tiri acqua al proprio mulino: un economista avrebbe detto che i dinosauri avevano investito nei fallimentari bond di Atlantide.

Ma soprattutto leggendo l'articolo mi chiedo: perché MILANO??? Forse per le zanzare?

English & web marketing

Per non dimenticare

• paper click (pay per click)
• "un po' up" (un pop-up)
• bunner (banner)
• working progress (work in progress)
  

Quanto costa un altare?

Quello che si vuole installare nella chiesa che sta sorgendo vicino a casa, un monolito di travertino scolpito, è stimato 41.000 Euro. Nella stessa chiesa troveranno posto altre due opere monolitiche: il tabernacolo da 42.000 Euro e il crocefisso 62.000 Euro.

Fosse un mecenate a commissionarle come un regalo alla chiesa non ci troverei da ridire; ma che sia il parroco a proporle ai fedeli è, quanto meno, inelegante.

Come duplicare un record

Ogni tanto mi trovo a dover creare un duplicato di un record da una tabella di un dataset ad un'altra tabella (a volte facendo il clone e a volte semplicemene spostando il record). Le due tecniche che conosco e che puntualmente dimentico sono quella dell'importrow e dell'itemarray. Mi scrivo qui gli esempi

importrow: Copia un oggetto DataRow in un oggetto DataTable, conservando sia le impostazioni delle proprietà sia i valori originali e correnti
es.
Dim atoTabDS As New DAL_CMS.contenutiDST.info_atomiDataTable
For Each rigaClass In righeTass
atoRig = atoTab.FindByato_id(rigaClass.cla_ato_id)
atoTabDS.ImportRow(atoRig)
Next

itemarray: lo uso per copiare il valore di tutti i campi si un record
es.
Dim tabTmp As New DAL_CMS.contenutiDST.info_atomiDataTable
Dim rt As DAL_CMS.contenutiDST.info_atomiRow
For Each riga In vTas
atoRig = atoTab.FindByato_id(riga.tas_ato_id)
rt = tabTmp.Newinfo_atomiRow
rt.ItemArray = atoRig.ItemArray
tabTmp.Addinfo_atomiRow(rt)
Next

Perchè questo blog

Bravo! Ho appena scritto un motore per gestire un blog, bello e funzionale. Lo sto confrontando con Wordpress e con questo di Blogger: regge il confronto. Eppure non ho voglia di installarlo sul mio server di produzione: mamma che pigrizia! Così ho deciso di promuovere questo spazio di test per tenermi un po' di appunti di vita, lavoro e di passioni condividerli con chi avrà tempo e voglia di leggerli.