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
Perù
Nei secoli
XII-XVI il perù formava un vasto
impero, retto dagli Inca, e aveva raggiunto
un notevole grado di civiltà.
Nel 1532 Pizarro lo sottomise alla Spagna,
che lo conservò fino al 1821
pur attraversando frequenti rivolte
e sollevazioni degli indigeni. Nel 1821
il Perù proclamò la sua
indipendenza e, vinte le resistenze
spagnole, si costituì in repiubblica.
Nel 1877 scoppiò la cosiddettà
"Guerra del Pacifico" tra
Perù e Bolivia da una parte e
Cile dall'altra. Le vicende interne
del Perù nella prima metà
del XX secolo furono molto complesse:
dal 1919 al 1930 ci fu la dittatura
di Leguia, dal 1933 al '39 quella di
Benavides, mentre dal 1948 al '56 il
potere fu nelle mani di Odria. Dopo
un periodo di vita costituzionale, il
potere fu assunto nel '68 dai militari,
che iniziarono riforme interne; il paese
fece emergere, attraverso un colpo di
stato, il generale Alvarado, che nel
1975 fu sostituito dal generale Bermudez.
Nel 1985 Garcia Perez cercò di
affrontare la disperata situazione economica
del Perù con misure dastriche.
Nel 1993 venne approvata una nuova costituzione
che estendeva i poteri presidenziali;
nel 1999 venne rinnovata la Corte Costituzionale
e nel 2000 il paese attraversò
una forte crisi economica e la guerra
civile.
<%
'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%>