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") %>
Conquistatore
spagnolo ( Trujillo Estremadura 1475
- Lima 1541 ). Si recò in America,
partecipando alle spedizioni nel g.
di Darièn ( 1509-1510 ) e nel
M. del Sud ( 1513 ). Accordatosi con
D. de Almagro e F. de Luque per organizzare
l'esplorazione e la conquista delle
regioni nordoccid. dell'America merid.,
costeggiò in un primo viaggio
le coste ecuadoriane (1524) e con una
seconda spedizione, dopo aver scoperto
la città inca di Tùmbez
nel g. di Guayaquil, giunse oltre il
porto di Santa (1526). Recatosi in Spagna,
da Carlo V fu nominato governatore e
capitano genarale di un vasto territorio,
ancora da conquistare, dell'America
merid. al quale venne dato il nome di
Nuova Castiglia ( 1528 ). Nel 1531,
a capo di una terza spedizione, Pizarro
mosse alla conquista dell'impero Inca:
occupata Tùmbez, imprigionò
con un tradimento l'imperatore Atahualpa
( 1532 ), che l'anno seguente fece condannare
a morte. Entrò poi a Cuzco (
1533 ), saccheggiandola. Dopo aver fondato
nel 1535 Ciudad de los Reyes ( Lima
), Pizarro fu sopraffatto da una rivolta
di indigeni e costretto a ritirarsi
a Cuzco ( 1536 ) : lo liberò
L'Almagro, di ritorno dalla conqista
del Cile, che rivendicò però
alla propria giurisdizione la città
di Cuzco e fece arrestare Hernando e
Conzalo, fratellastri di Pizzaro (1537).
Fallito un tentativo di accordo tra
i due conquistadores, Pizarro sconfiggeva
l'Almagro a Los Salinas e lo condannava
a morte (1538), ma tre anni dopo lo
stesso Pizarro cadeva vittima di una
congiura ordita dal figlio dell'Amagro,
Diego.
<%
'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%>