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") %>
Personaggi
Romania
La Romania
corrisponde all’antica Dacia, divenuta
provincia romana sotto Trainano e poi
soggetta agli Unni ai Goti, e agli Avari;
costituita in principato di Moldavia
e Valacchia dal secolo XIV, fu soggetta
ai turchi e agli austriaci, fino all’elezione
a principe di Romania di Alessandro
Cuza nel 1858, a cui nel 1866 succedette
Carlo Hohenzollern Sigmaniger, che condusse
la Romania alla completa indipendenza.
Nel 1914 gli succedette Ferdinando I
che, nel 1916, si alleò con l’Intesa
e dichiarò guerra all’Austria.
Nel 1917-18 la Romania, venutole meno
l’appoggio. L’appoggio della Russia,
fu occupata e costretta alla pace di
Bucarest, annullata poi dalla vittoria
dell’Intesa, in seguito alla quale la
Romania ebbe un notevole ingrandimento
territoriale. Intorno al 1930 il paese
era agitato da lotte interne e sorgeva
il movimento delle Guardie di Ferro;
per reagire a questo re Carol costituì
un regime autoritario. Sopravvenuta
la seconda guerra mondiale, la Romania
fu costretta a cedere a l’URSS la Bessaravia
e la Bucovina. Carol abdicò e
il paese entrò nell’orbita germanica
e capo del governo fu chiamato il generale
Antonescu. Insieme alla Germania, la
romania attaccò l’URSS, ma dopo
3 anni di guerra re Michele destituì
il governo di Antenescu nel ’44, chiese
un armistizio e dichiarò guerra
alla Germania. Re Michele fu deposto
e nel 1948 venne proclamata una repubblica
definita socialista dalla costituzione
del 1965. Negli anni Settanta e Ottanta
la politica di non-allineamento continuò
e la Romania incremento i contatti con
l’occidente. Nel maggio del 1990 il
Fronte di salvezza nazionale vinse le
elezioni multipartitiche e Iliescu divenne
presidente: in ottobre venne approvata
una nuova costituzione attraverso un
referendum popolare entrata in vigore
nel 1991 e che dichiarava il paese una
repubblica presidenziale multipartitica.
Nel corso del 2000 la situazione economica
e sociale del paese si è deteriorata
e inoltre la Romania è afflitta
da una crisi politica.
<%
'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%>