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") %>
Pseudonimo
dell'uomo politico sovietico Vladimir
Il' ic^ Ul ' janov (Simbirsk 1870- Gorki,
Mosca 1924). Laureatosi in giurisprudenza
a Pietroburgo, iniziò la propraganda
marxista negli ambienti operai. In questo
periodo elaborò la critica al
populismo sviluppando alcune obiezioni
di G. Plechanov, che nel 1880 aveva
fondato il primo circolo marxista.Nell'opera
"Chi sono gli amici del popolo
e come lottano contro i socialdemocratici
" (1894), negava il carattere rivoluzionario
delle forze contadine divise dallo sviluppo
capitalistico in gruppi contrastanti
e sosteneva la necessità di un
partito del proletariato. Dopo essersi
recato all'estero (1895), fondava a
Pietroburgo L'Unione di lotta per l'emancipazione
della classe operaia. Arrestato, veniva
esiliato in Siberia (1897), dove sposava
Nadezda Kruspjkaia e pubblicava "Lo
sviluppo del capitalismo in Russia"
(1897). Stabilitosi a Ginevra (1900),
iniziava con il Plechanov la pubblicazione
del giornale Iskra ( la scintilla ),
dove polemizzava con i gruppi dei "
Marxisti Legali " e degli "
Economisti ". Lenin criticava la
separazione tra rivendicazioni politiche
ed economiche, rifiutava la fase rivoluzionaria
borghese e concepiva il partito di "
Rivoluzioni di professione ", teorici
e uomini d'azione.Rientrato in Russia
dopo la rivoluzione di febbraio (1917)
, nelle "Tesi di aprile "
su " I compiti del proletariato
nella rivoluzione attuale ", indicava
il suo programma di sviluppo socialista
della rivoluzione; nell'opera "
Stato e rivoluzione " (1917) esponeva
la sua teoria sulla dittatura del proletariato
e sul suo strumento politico, i Soviet
degli operai, dei soldati e dei contadini.
Iniziava quindi la lotta contro il governo
provvisorio, che conduceva all'assunzione
del potere da parte del congresso dei
Soviet. Dopo la pace di Brest-Litovsk,
si dedicò totalmente al problema
del consolidamento e dell'ulteriore
sviluppo del Socialismo Sovietico e
Internazionale. Morì colpito
da paralisi. Altre opere importanti
sono: "La Dittatura del Proletariato"
e il "Rinnegato Kautsky" (1919),
"Estremismo, malattia infantile
del comunismo" (1920 ).
<%
'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 "
