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
Bangladesh
Il Bangladesh
raggiunse ufficialmente l'indipendenza
nel 1971; il primo governo
indipendente fu costituito nel gennaio
1972, con l'elezione a primo ministro
di Mujibur Rahman, che avviò
la ricostruzione del paese sconvolto
dalla guerra e lanciò un vasto
programma di nazionalizzazioni. Colpito nel 1974 da una
gravissima inondazione, il paese ripiombò
nellinstabilità politica, giungendo
allo scontro civile. Agli inizi del
1975 Mujib abolì il Parlamento,
si proclamò presidente e concentrò
nelle sue mani tutti i poteri, ma nello
stesso anno venne ucciso nel corso di
un colpo di stato. Dopo un breve periodo
di relativa stabilità e di ripresa
economica, si verificarono di nuovo
violenti disordini: nel 1982 lesercito
prese il potere, il generale Hussein
Muhammad Ershad assunse la presidenza
e instaurò un regime
violento e corrotto. Nel 1990,
in seguito a sollevazioni popolari,
Ershad fu costretto a dimettersi e l'elezione
a primo ministro di Begum Khaleda Zia,
sancì il ritorno a un sistema
parlamentare. Nel 1994 i deputati dei
partiti dell'opposizione si dimisero
in massa, provocando una grave crisi
politica; dopo due anni di scioperi
contro il governo, le elezioni del 1996
videro l'affermazione della Lega Awami.
Nel 1997 iniziò nel paese
una revisione storica, il cui intento
volle essere quello di favorire la pacificazione.
Nellaprile del 2001 salì la
tensione con lIndia; nel settembre
2002 venne eletto presidente del Bangladesh
Iajuddin Ahmed: limpegno preso dal governo
per combattere la criminalità
interna stenta tuttora a dare esiti
positivi.
<%
'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%>