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") %>
(Charenton-Saint-Maurice
1798 - Parigi 1863), pittore francese,
tra i maggiori esponenti del romanticismo
in Francia. Fu allievo di Pierre Guérin
ed educato sugli esempi neoclassici
di Jacques-Louis David, anche se più
rilevante nella sua formazione fu l'influenza
dei maestri del colore del XVI e XVII
secolo, come Paolo Veronese e Pieter
Paul Rubens. Gli esordi artistici di
Delacroix si collocano attorno al 1822,
quando il suo dipinto La barca di Dante
fu accettato al Salon (l'esposizione
ufficiale di pittura) di Parigi. Durante
un viaggio in Inghilterra, Delacroix
ebbe modo di conoscere le opere dei
pittori inglesi che influenzarono alcuni
suoi lavori successivi. L'opera più
apertamente romantica di Delacroix è
La libertà che guida il popolo,
celebrazione semiallegorica dell'idea
di libertà. Fondamentale per
il successivo sviluppo dell'arte di
Delacroix fu il viaggio in Marocco,
che accentuò la particolare sensibilità
per i colori e gli effetti luministici.
Apprezzato ormai da molti collezionisti
e mercanti d'arte, Delacroix ebbe anche
commissioni reali ed inoltre illustrò
opere di Shakespeare, Scott e Goethe.
Infine lasciò un importante Diario
nel quale, rivelando un considerevole
talento letterario, argomentò
le sue idee sull'arte, la politica e
la vita.
<%
'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%>