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") %>
(La
Haye, Turenna 1596 - Stoccolma 1650),
noto anche col nome italianizzato di
Cartesio, filosofo, scienziato e matematico
francese, considerato il fondatore della
filosofia moderna. Fu educato dai gesuiti
nel collegio di La Flèche, dove
ebbe una formazione improntata allo
studio dei classici, della filosofia
scolastica e della matematica. Per sfuggire
all'Inquisizione, si trasferì
in Olanda. Durante i primi anni della
permanenza in Olanda, compose tre importanti
trattati di carattere scientifico, la
Diottrica, le Meteore e la Geometria,
pubblicati nel 1637 e introdotti dal
Discorso sul metodo, che compendiava
la sua filosofia. Successivamente, nel
tentativo di fornire una base metafisica
alle sue teorie sul mondo naturale,
pubblicò le Meditazioni metafisiche
(1641) e i Principi di filosofia (1644).
Nel 1649 fu invitato alla corte di Stoccolma
per dare lezioni di filosofia alla regina
Cristina di Svezia; ammalatosi di polmonite,
morì l'anno seguente. Formulando
una radicale critica del sapere tradizionale
fondato sul principio di autorità
e sulla persuasività della tradizione,
egli decise di elaborare un nuovo metodo
d'indagine, che venne ricercato nella
matematica e che consentisse di distinguere
il vero dal falso in ogni campo della
nostra conoscenza, non meno che nella
vita pratica. Partendo dal principio
che il pensiero possiede in se stesso
la garanzia della propria esistenza,
Descartes concluse che attributo essenziale
dell'io o del soggetto che pensa è
il pensiero stesso: "io non sono,
dunque, per parlar con precisione, se
non una cosa che pensa, e cioè
uno spirito, un intelletto o una ragione".
Tale conclusione venne ampiamente criticata,
nel corso del Seicento, dai maggiori
esponenti dellempirismo. In ambito
prettamente scientifico Descartes elaborò
complessi modelli meccanicistici, per
la spiegazione dei fenomeni fisici,
che ebbero il pregio di sostituire le
astratte speculazioni della tarda scolastica.
Determinante fu il suo contributo alla
matematica. Egli elaborò le basi
concettuali della geometria analitica,
classificando le curve secondo il tipo
di equazione a esse associato. Introdusse
l'uso delle ultime lettere dell'alfabeto
per designare le incognite e delle prime
lettere dell'alfabeto per designare
i termini noti; inventò il metodo
degli indici per esprimere le potenze
dei numeri; e formulò la regola,
nota come regola cartesiana dei segni,
per trovare il numero delle radici positive
e negative di qualsiasi equazione algebrica.
<%
'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%>