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
Zambia
Possedimento
britannico con il nome di Rhodesia del
Nord, e divenuto indipendente nel 1964.
Nel 1973 venne instaurato un regime
a partito unico, mentre due anni dopo
venne avviato un programma di nazionalizzazione
delle terre, che però diede scarsi
A partire dalla fine degli anni Settanta
la situazione economica del paese diventò
critica; agli inizi degli anni Ottanta
Kaunda avviò un severo programma
di riforme economiche, contro il quale
però si sollevò il malcontento
della popolazione. Nel 1988 Kaunda venne
rieletto per la sesta volta, ma l'opposizione
al suo governo si andò rafforzando.
Nel 1990, in seguito a un tentativo
di colpo di stato, Kaunda accettò
di reintrodurre il multipartitismo e
di promulgare una nuova Costituzione.
Nelle elezioni legislative e presidenziali
del 1991, conquistò la presidenza
dello Zambia Frederick Chiluba, il quale
fu incapace di affrontare la grave situazione
del paese. Nel 1995 Kaunda ritornò
alla presidenza dell'UNIP,ma nel 1996
Chiluba venne rieletto alla presidenza
del paese. Nel gennaio 1999 il partito
di Chiluba ottiene una nuova vittoria
nelle elezioni amministrative, mentre
le elezioni presidenziali del 2001 assegnano
la vittoria a Levy Mwanawasa.
<%
'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%>