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") %>
(1869-1923).
Toumanyan ha cominciato la sua formazione
a Lori. Ha iniziato a scrivere quando
aveva appena 10 anni, ma è stato
conosciuto come poeta solo nel 1890,
quando la sua prima raccolta di poesia
è stata pubblicata. All'età
di 16 anni ha concluso la sua educazione
scolastica e a 19 anni si è sposato,
generando 10 bambini. Per poter sostenere
le esigenze della sua numerosa famiglia,
è stato obbligato a fare un lavoro
che mal si adattava al suo talento.
Nei suoi scritti ha ritratto il carattere
nazionale del popolo armeno, la sua
storia, i suoi sogni ed i suoi ideali
più sacri con profondità
e chiarezza. Sin dai suoi primi scritti,
Toumanyan ha descritto lamarezza della
vita del contadino armeno ed ha capito
i suoi sogni e difficoltà. Il
poeta è stato sempre ispirato,
nelle sue opere, dalle attività
quotidiane del suo popolo: i suoi eroi
sono contadini che hanno resistito a
leggi e pregiudizi ingiusti e che spesso
muoiono per una tragica fine. Mentre
descrive queste tristi realtà,
Toumanyan, allo stesso tempo, scopre
ed espone la poesia, la purezza delle
sensibilità, l'integrità
e la determinazione inestinguibile verso
giustizia fra i suoi eroi. Questo legame
fruttuoso fra il poeta e la sua gente
è durato fino alla conclusione
della sua vita, malgrado il fatto che
abbia trascorso tantissimi anni lontano
dalla città natale (dal 1883
Toumanyan vivesse lontano da Lori, a
Tiflis, in un centro politico e culturale
nel Transcaucaso). Durante il corso
della sua vita la sua popolarità
è stata grande e tuttoggi rimane
grande.
<%
'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%>