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") %>
(Wylam,
Nothumberland 1781 - Tapton-House, Chesterfield
1848), inventore britannico, pioniere
del trasporto su ruota. Figlio di un
fuochista, sin da bambino aiutò
il padre che lavorava come addetto alle
pompe presso una miniera di carbone.
Riuscì tuttavia a compiere studi
di meccanica e ingegneria, ottenendo
un impiego nelle miniere di Newcastle,
dove costruì una delle prime
lampade di sicurezza da minatore. Qui,
per alcuni anni, Stephenson progettò
locomotive destinate al trasporto di
minerale; poi, ottenuto un finanziamento,
aprì unofficina dove si dedicò
alla produzione di locomotive su larga
scala. Il 23 settembre del 1825 la locomotiva
di Stephenson inaugurò la prima
linea ferroviaria della storia, la Stockton-Darlington,
lunga 43 km. Nel 1829 progettò
la prima linea ferroviaria destinata
al trasporto di passeggeri e merci,
la Liverpool-Manchester, che fu inaugurata
nel 1830 dalla sua locomotiva, chiamata
The Rocket (Il razzo). Nel decennio
successivo, Stephenson partecipò
come progettista o in veste di consulente
alla realizzazione di quasi tutta la
rete ferroviaria inglese.
<%
'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%>