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") %>
Uomo
politico messicano (San Pablo Guelatao,
Oaxaca, 1806 Città del Messico
1872)
Di famiglia india Zapotec, governatore
di Oaxaca (1847-52) , per le sue idee
liberali, fu costretto allesilio durante
la presidenza di A.I. de Santa Ana.
Nel 1855 tornò in patria, ove
appoggiò la rivolta di J. Alvarez
e J. Comonfort , ministro della Giustizia.
Durante la presidenza di questultimo,
si segnalò per la sua attività
riformistica. La costituzione anticlericale
del 1857 causò,però, la
deposizione di Comonfort (1857) e Juàrez
, costituito un governo dissidente a
Veracruz (riconosciuto dagli U.S.A.),
alimentò la guerra civile (<
Guerra della riforma > ). Vincitore
nel 1861, fu subito dopo proclamato
Presidente della Repubblica.
La disastrosa situazione finanziaria
del Paese costrinse Juàrez a
sospendere per due anni il pagamento
dei debiti interni, ciò fornì
alla Francia il pretesto per un intervento
militare che costituì nel Messico
un impero vassallo sotto lArciduca
Massimiliano dAsburgo 1862.
<%
'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%>
| 
Ritorna "
