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
Colombia
Scoperta
nel 1499, cadde sotto la dominazione
spagnola dal 1536 ed ebbe il nome di
Nuova Granata e con lEcuador costituì
dal 1718 un vicereame. Indipendente
dal 1819, ebbe come primo presidente
della Repubblica Bolivar; è stata
unita al Venezuela, al Panama e allEcuador
fino al 1886. Con le elezioni del 1930,
tornarono al potere i liberali e venne
inagurata una fase di riforme. Durante
la seconda guerra mondiale la Colombia
cessò le relazioni diplomatiche
con Germania, Italia e Giappone e nel
1943 dichiarò guerra alla Germania.
La fase postbellica conobbe un inasprimento
dei rapporti tra liberali e conservatori
e si susseguirono due brevi governi
conservatori turbati, oltre che dall'opposizione
dei liberali, anche dalla nascita di
una guerriglia organizzata. Negli anni
'60 il Fronte Nazionale consentì
una certa stabilità. Nelle elezioni
del 1998 il Partito liberale di Sanper
conquistò la maggioranza dei
seggi del Parlamento. La situazione
economica del paese, già compromessa
dal saccheggio di risorse economiche
effettuato attraverso le privazioni,
si aggravò nel 1999 a causa di
un terremoto.
<%
'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%>