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") %>
(Barmen
1820 - Londra 1895), economista, filosofo
e politico tedesco, fondatore con Karl
Marx del socialismo scientifico, poi
definito comunismo. Di famiglia protestante,
iniziò a collaborare a diverse
pubblicazioni letterarie e filosofiche
entrando in contatto tra il 1842 e il
1844 con il movimento cartista in lotta
per il suffragio operaio, mentre era
impiegato nella manifattura tessile
di famiglia. Convinto che tanto la politica
quanto la storia potessero essere spiegate
solo in termini di sviluppo economico
della società, giunse a considerare
i mali sociali del proprio tempo come
l'inevitabile risultato della proprietà
privata, teorizzando che fosse possibile
porvi rimedio solo attraverso la lotta
di classe per una società comunista.
Dopo aver pubblicato queste tesi nel
saggio La condizione della classe operaia
in Inghilterra, diede vita a una lunga
collaborazione politica e scientifica
con Karl Marx, presto sfociata nella
stesura del Manifesto del Partito comunista.
Engels contribuì notevolmente
all'esposizione del pensiero comunista
con interventi come La rivoluzione scientifica
del signor Eugen Dühring o come
L'origine della famiglia, della proprietà
privata e dello Stato. Il suo apporto
alla diffusione del marxismo è
comunque legato soprattutto alla pubblicazione
del Capitale, in particolare delle parti
rimaste inedite alla morte di Marx.
Oltre che con l'elaborazione teorica,
Engels partecipò attivamente
alla nascita del movimento rivoluzionario.
Trasferitosi a Londra nel 1870, entrò
nel consiglio dell'Associazione Internazionale
dei Lavoratori.
<%
'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%>