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
Giamaica
Scoperta
nel 1494 da Colombo, che la chiamò
Santiago, fu colonizzata dagli Spagnoli.
Conquistata dagli Inglesi nel 1655 fu
più volte turbata da rivolti
di neri. Dal 1958 al 62 è stata
membro della Federazione dei Carabi,
sciolta la quale e divenuta indipendente
nellambito del Commonwealth britannico.
Negli anni Trenta del XX secolo la Giamaica
vide la ripresa del movimento nazionalista,
guidato da Alexander Bustamante e da
Norman Manley. Le elezioni del 1958
videro la vittoria del Partito laburista;
diventato primo ministro, Bustamante
mantenne la carica fino al 1967, quando
venne sostituito da Hugh Lawson Shearer.
Nel 1972 il Partito nazionale del popolo,
guidato da Michael Manley vinse le elezioni,
mentre le elezioni dell'ottobre del
1980 favorirono il Partito laburista
e il suo leader Séaga, riconfermato
anche alle elezioni del 1983. Il permanere
di una condizione di stagnazione economica
e di una conseguente forte protesta
sociale favorì il ritorno al
potere nel 1989 di Michael Manley, che
tuttavia continuò la politica
liberista inaugurata dal suo predecessore.
Nel 1992 a Manley, gravemente malato,
succedette alla guida del partito e
del governo Patterson. Nel corso degli
anni Novanta crebbe nel paese il fenomeno
della criminalità, legato sia
alle critiche condizioni in cui versava
una cospicua parte della popolazione,
sia al narcotraffico. Le elezioni di
ottobre 2002 registrano una nuova vittoria
del Partito nazionale del popolo, il
cui leader, Patterson, viene riconfermato
alla guida del governo.
<%
'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%>