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
Cecoslovacchia
Costituito
alla fine della I guerra mondiale, il
nuovo stato fu riconosciuto dall’Intesa
e nel 1924 si alleò con la Francia.
Il problema delle minoranze, prima non
avvertito, si fece grave quando la Germania,
dopo l’avvento del nazionalsocialismo,
incoraggiò la formazione del
Partito dei “Tedeschi dei Sudeti”. Nel
’39, in aperta violazione del patto
di Monaco, le truppe Tedesche invadevano
il paese: la Slovacchia si staccava
e formava uno stato apparentemente autonomo,
mentre Boemia e Moravia costituivano
un protettorato del Reich germanico.
Alla fine della II guerra mondiale,
la Cecoslovacchia ritornò indipendente
sotto la presidenza di Benes, e riebbe
i territori prebellici, salvo la Rutenia,
ceduta all’URSS. La divisione dell’Europa
in due blocchi politici, portava, dopo
il ’48, ad un regime socialcomunista
e a stetti legami politico-economici
con l’URSS, che tuttavia subirono una
grave crisi nel ’68, quando la Cecoslovacchia
fu invasa dagli eserciti dell’URSS e
di altri paesi del patto di Varsavia,
in seguito ad un tentativo di riprendere
gran parte della propria autonomia.
Nel 1969 divenne presidente Gustav Husák,
che cancellò le riforme introdotte
dal precedente regime, tranne quella
che introduceva lo stato federale, e
il paese tornò ad essere uno
stato comunista. Nel 1990 si tennero
le prime elezioni libere dal 1946. La
disparità di sviluppo economico
favorì il riemergere degli antichi
contrasti tra cechi e slovacchi, sfociati
nel 1993 nella nascita della Repubblica
Ceca e della Slovacchia.
<%
'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%>