<%@LANGUAGE = VBScript%>
<%
' ---------------------------------------------------------------------------------------------------------|
' |
' Autore: Luca Ruggiero http:'www.lukeonweb.net |
' Fonte: http:'freeasp.html.it |
' |
' ---------------------------------------------------------------------------------------------------------|
Dim contatore, x, a ' Dichiaro le variabili che mi servono |
contatore = Server.MapPath("contatore.xml") ' Localizzo il file Xml che registra il numero di accessi |
Set x = Server.CreateObject("Microsoft.XMLDOM") ' Creo l'oggetto XMLDOM |
x.async = False ' Imposto l'oggetto come sincrono |
x.load(contatore) ' Carico il file Xml |
Set a = x.selectSingleNode("record/numero") ' Mi posiziono sul nodo Xml che mi interessa |
a.text = CInt(a.text) + 1 ' Aggiorno di una unità il contatore |
x.save(contatore) ' Salvo il nuovo valore |
Response.Write("Accessi: " + a.text) ' Leggo gli accessi dal fila XMl |
Set x = Nothing ' Un po di pulizia... :-) |
' ---------------------------------------------------------------------------------------------------------|
%>
DALMONTE - INDUSTRIA MACELLAZIONE E LAVORAZIONE CARNI
Dal
Monte S.r.l. - Via Verona, 4 - 36020 Pove del Grappa (VI)
- ITALY
