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") %>
Armeno
di nascita, ha studiato a Mosca violoncello
e composizione, affermandosi in breve
come uno dei principali compositori
sovietici della sua generazione. Insegnante
dal 1951 al Conservatorio di Mosca,
organizzatore e animatore della vita
musicale, ha ricevuto dallo Stato sovietico
i massimi riconoscimenti, come il Premio
Lenin e il Premio Stalin. La musica
di Khachaturian, generosa, impulsiva,
disinvolta, spesso illustrativa, esprime
abbastanza fedelmente un realismo socialista
inteso nell'accezione meno problematica.
Convinto della necessità di farsi
capire da tutti, comprese le masse uscite
vittoriose dalla Rivoluzione d'Ottobre,
il compositore si adagia nella spontaneità,
nell'ottimismo ostentato, recidendo
in partenza ogni possibile rapporto
con l'avanguardia occidentale e senza
preoccuparsi di fornire un'alternativa
alla ricerca di linguaggio.
La musica dell'armeno, che spesso fa
tesoro di temi e di atteggiamenti folcloristici
innestati in un tessuto post-romantico
arricchito dalle moderne conquiste in
campo timbrico e orchestrale, è
radicata nel tonalismo, si articola
secondo schemi classici liberamente
ricreati e si compiace di ritmi serrati
e di sgargianti sonorità.
<%
'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%>