Banconote & Monete
• Links
Staff
• Galleria
Contatore
N° Visite:
<%
Dim nomefile, filestream
Dim objFile
nomefile = Server.MapPath("/public/visite.txt")
Set objFile = CreateObject("Scripting.FileSystemObject")
'se il file non esiste, crealo
if not objFile.FileExists(nomefile) then
Set filestream = objFile.OpenTextFile(nomefile, 2, true)
filestream.WriteLine("0")
end if
'legge il numero attuale di visite
Set filestream = objFile.OpenTextFile(nomefile, 1, true)
Dim visite
visite = filestream.ReadLine()
filestream.Close
'se non è ancora presente la variabile di sessione
visite = visite + 1 'incrementa di uno gli accessi al sito
'scrive nel file il valore aggiornato di visite
Set filestream = objFile.CreateTextFile(nomefile, true)
filestream.WriteLine(visite)
filestream.Close
Set filestream = Nothing
Set objFile = Nothing
'visualizza sul browser il numero totale di visite
Response.Write visite
%>
N° Utenti on-line: <%= Application("ActiveUsers") %>
(Dôle
1822 - Villeneuve-l'Etang, Seine-et-Oise
1895), chimico e biologo francese, fondatore
della moderna microbiologia. Figlio
di un conciatore di pelli, studiò
all'Ecole Normale Supérieure
di Parigi, conseguendo il dottorato
in fisica e chimica. Nel 1854, nominato
professore di chimica alla facoltà
di scienze di Lilla, Pasteur iniziò
a occuparsi di fermentazione, stimolato
dalle richieste dei produttori di bevande
alcoliche della regione. Gli scienziati
dell'epoca ritenevano che la fermentazione
alcolica fosse un fenomeno esclusivamente
chimico, mentre Pasteur riuscì
a dimostrare il ruolo essenziale svolto
dai microrganismi in questo processo.
Scoprì, inoltre, che la riproduzione
indesiderata di sostanze quali l'acido
lattico o l'acido acetico nelle bevande
alcoliche è dovuta alla persistenza
di microrganismi di varia natura, tra
cui batteri, all'interno di questi prodotti.
Grazie a queste scoperte fu possibile
elaborare sistemi efficaci di eliminazione
dei microrganismi dannosi, che rappresentavano
un grave problema economico per l'industria
vinicola e birraria. L'estensione di
queste ricerche ai problemi di conservazione
del latte lo portarono a ideare il processo
oggi conosciuto con il nome di pastorizzazione.
Nel 1865 Pasteur fu chiamato da Parigi,
dove nel frattempo era divenuto direttore
degli studi scientifici dell'Ecole Normale,
per venire in aiuto all'industria della
seta del Sud della Francia, che si era
trovata improvvisamente in gravi difficoltà
a causa di un'epidemia che aveva colpito
i bachi da seta. Il biologo riuscì
a dimostrare la natura contagiosa ed
ereditaria della malattia. Gli studi
sulla fermentazione e sulla generazione
spontanea ebbero importanti ripercussioni
in medicina, in quanto Pasteur intuì
l'importanza del ruolo dei microrganismi
nell'origine e nello sviluppo delle
malattie. Si dedicò anche allo
studio delle caratteristiche del carbonchio,
una malattia del bestiame spesso fatale,
isolandone il bacillo patogeno responsabile,
ma viene ricordato soprattutto per i
suoi studi sulla rabbia. Nel 1888 fu
fondato a Parigi l'Istituto Pasteur,
diretto da lui stesso fino alla morte;
oggi è uno dei centri più
importanti del mondo per la ricerca
in biologia e genetica molecolare e
per gli studi sulle malattie infettive.
<%
'Imposto la connessione
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/dati.mdb")
'Imposto la stringa SQL di selezione dati
sSql="SELECT * FROM dati where id=7"
'Creo e apro il Set di Record
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sSql, conn, 3, 3
%> • N° Articoli: <%=rs.Fields("articoli").Value%>
• N° Banconote: <%=rs.Fields("banconote").Value%>
• N° Monete: <%=rs.Fields("monete").Value%>
• Nazioni: <%=rs.Fields("nazioni").Value%><% 'Chiudo il recordset e libero la memoria
rs.Close
Set rs = Nothing
'Chiudo la connessione al database e libero la memoria
conn.Close
Set conn = Nothing
%><%
'Imposto la connessione
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/utenti.mdb")
'Imposto la stringa SQL di selezione dati
sSql="SELECT * FROM tab_utenti"
'Creo e apro il Set di Record
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sSql, conn, 3, 3
%>
• N° Iscritti: <%=RS.recordcount%><%'Chiudo il recordset e libero la memoria
rs.Close
Set rs = Nothing
'Chiudo la connessione al database e libero la memoria
conn.Close
Set conn = Nothing%>