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
Cile
Già parte dellimpero degli
Inca, fu conquistato da Pietro di
Valdivia nel 1540. Nel 1818 fu proclamata
lindipendenza del Cile, che si costituì
a repubblica. Neutrale durante la
I Guerra Mondiale, partecipò
alla seconda a fianco degli Alleati.
Nel dopoguerra l'estromissione dei
comunisti dal governo portò
in carcere centinaia di coministi
e causò disordini popolari.
L'elezioni presideniali del 1964 furono
vinte dal Partito cristiano democratico
di centro, mentre nel 1970 i partiti
di centrosinistra uniti in una coalizione
nominarono come candidato che venne
eletto presidente. Egli portò
il paese verso posizione socialiste,
istituì il controllo statale
dell'economia e promosse una politica
di redistribuzione dei redditi. La
sua politica però trovò
una forte opposizione e, durante un
colpo di stato che portò al
potere la dittatura del generale Pinochet,
Allende fu ucciso nel 1973. Una nuova
costituzione, approvata da un refeendum
pilotato dal governo nel 1980, rinnovò
la carica a Pinochet e legittimo il
regime fino al 1989. Nel gennaio 2003
è stato sottoscritto un accordo
per accelerare le riforme statali
e completare il processo di democratizzazione
delle istiuzioni, reso ancora più
necessario dopo la scoperta di casi
di corruzione nell'amministrazione
centrale e nella coalizione di centrosinistra.
<%
'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%>