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") %>
Scrittore
ceco del XVII secolo, educatore e umanista
conosciuto con il nome italianizzato
di Comenio (Nivnice, Moravia 1592 -
Amsterdam 1670). Fu membro dei Fratelli
Boemi, una comunità religiosa
protestante sotto la cui protezione
studiò teologia a Herborn e poi
all'Università di Heidelberg.
Tornato nella sua provincia natale,
diresse la scuola di Prerov, per cui
scrisse i Grammaticae facilioris praecepta.
Ordinato pastore nel 1616, gli fu affidata
la scuola di Fulnek, uno dei più
importanti centri dei Fratelli Boemi,
da cui fu costretto a fuggire per le
persecuzioni religiose ordinate da Ferdinando
II d'Asburgo. Con la pubblicazione di
un metodo intuitivo di apprendimento
delle lingue, acquistò a livello
europeo una reputazione di riformatore
della pedagogia e fu invitato a Londra,
in Svezia, alla corte ungherese dei
Rákócki e in Francia.
Rientrato a Leszno, fu nuovamente costretto
a fuggire nel 1656, quando la città
venne attaccata e distrutta da forze
mercenarie polacche al servizio di Carlo
X di Svezia. Fu accolto ad Amsterdam,
dove visse fino alla morte. Comenio
consacrò la sua vita al tentativo
di riformare la scuola. Enunciati dagli
stessi titoli delle sue opere come Schola
ludus seu encyclopedia viva (La scuola
del gioco o l'enciclopedia vivente);
Orbis sensualium pictus (Il mondo figurato
delle cose sensibili); Didactica magna
(La grande didattica) i suoi principi
pedagogici influenzarono la concezione
occidentale dell'insegnamento e della
scuola, fino al XX secolo, conservando
una sorprendente attualità. Le
sue concezioni filosofiche, la sua difesa
della pace e della tolleranza religiosa
e la sua aspirazione al riavvicinamento
delle chiese cristiane influenzarono
il pietismo tedesco, Madame de Staël
e, negli Stati Uniti, la Chiesa morava.
<%
'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%>
| 
Ritorna "
