Donarsi vuol dire rispettare se stessi,
cioè passare le giornate a crescere le proprie forze,
il proprio valore, la propria anima e cultura,
per farle servire a qualcosa.
Sito ottimizzato per una risoluzione minima di 800 x 600 pixel
Pubblicazione Sito: 2 luglio
2000 - Aggiornamento Sito: 23 Febbraio 2010
<%
Dim objFSO, objCountFile
Dim strCountFileName
Dim iCount
Dim bUseImages
Dim I
bUseImages = CBool(Request.QueryString("images"))
strCountFileName = Server.MapPath(Request.ServerVariables("SCRIPT_NAME") & ".cnt")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(strCountFileName,1,True)
If Not objCountFile.AtEndOfStream Then
iCount = CLng(objCountFile.ReadAll)
Else
iCount = 0
End If
objCountFile.Close
Set objCountFile = Nothing
iCount = iCount + 1
Set objCountFile = objFSO.CreateTextFile(strCountFileName, True)
objCountFile.Write iCount
objCountFile.Close
Set objCountFile = Nothing
Set objFSO = Nothing
%>
');
//-->