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") %>
(Phnom
Penh 1922), re della Cambogia, primo
ministro e capo dello stato. Salito
al trono alla morte del nonno, nel 1941,
si recò volontariamente in esilio
nel 1953 per protestare contro il colonialismo
francese in Cambogia. Tornato in patria
alla proclamazione dell'indipendenza
avvenuta nel 1954, abdicò dopo
un anno in favore del padre, assumendo
però, entro il nuovo sistema
costituzionale, prima la carica di primo
ministro, poi quella di capo dello stato.
Durante la guerra del Vietnam mantenne
una posizione di neutralità quando
le forze armate di entrambi i fronti
violarono il territorio cambogiano.
Deposto dal generale Lon Nol nel 1970con
un colpo di stato appoggiato dagli Stati
Uniti, Sihanouk si rifugiò in
Cina, dove costituì il Fronte
di unità nazionale della Cambogia.
Alleatosi con le formazioni comuniste
dei Khmer Rossi, contribuì alla
loro vittoria nella guerra civile contro
il regime di Lon Nol, alla caduta del
quale fece ritorno in patria per essere
nuovamente proclamato capo dello stato.
Entrato in rotta con il primo ministro
Pol Pot, abbandonò la carica
nel 1976 per protestare contro la brutalità
del nuovo regime comunista e fu imprigionato,
potendosi recare liberamente in esilio
solo nel 1979, prima in Cina, poi nella
Corea del Nord. Dopo l'invasione vietnamita,
Sihanouk presiedette il governo in esilio,
e nel 1982 tornò a formare un
fronte comune con i Khmer Rossi e le
altre forze della resistenza cambogiana.
Tornato in patria nel 1991 come presidente
del Consiglio nazionale supremo, nel
giugno del 1993 si fece promotore di
un accordo tra i maggiori partiti per
una cooperazione nella gestione del
potere. Il 24 settembre venne nuovamente
proclamato re, cercando da allora di
governare la Cambogia nonostante l'opposizione
armata dei Khmer Rossi, dichiarati ufficialmente
fuori legge nel luglio del 1994.
<%
'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%>