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") %>
(East
Knoyle, Wiltshire 1632 - Hampton Court
1723), architetto, scienziato e matematico
inglese. Come architetto fu il maggiore
rappresentante del barocco inglese;
come scienziato fu fondatore, assieme
a Robert Boyle, della Royal Society
e godette della stima di Isaac Newton
e di Blaise Pascal. Iniziò l'attività
di architetto a 29 anni, quando era
già noto come biologo, astronomo
e matematico. La sua prima opera, la
cappella del Pembroke College, a Cambridge,
fu completata nel 1665. Nello stesso
anno visitò Parigi per studiare
l'architettura barocca francese e lì
conobbe insigni architetti, come Louis
Le Vau, Jules Hardouin-Mansart e Gian
Lorenzo Bernini, i quali ebbero notevole
influsso sui suoi lavori successivi.
In seguito all'incendio di Londra del
1666, che distrusse la parte più
antica della città, Wren elaborò
un brillante progetto di ricostruzione
che però venne respinto, sebbene
anticipasse molte caratteristiche della
moderna pianificazione urbana; nel 1668
gli fu affidata la ricostruzione della
cattedrale di Saint Paul, di numerose
chiese parrocchiali e di altri edifici
danneggiati. Due anni dopo fu nominato
sovrintendente generale delle Opere
Reali, posizione che occupò per
i successivi cinquant'anni. Oltre alle
numerose chiese, tra cui Saint Stephen
a Walbrook, Saint Clement Dane sullo
Strand e Saint James a Piccadilly, Wren
progettò lo Sheldonian Theatre
a Oxford e la biblioteca del Trinity
College a Cambridge. Fu suo, inoltre,
il progetto dell'osservatorio di Greenwich.
<%
'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 "
