<% 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 %>
segnala il sito ad un amico
Ultima modifica: 01/25/2010 23:19:57
PROGETTI

LE NOSTRE INIZIATIVE

LA CARTA DEI PRINCIPI

Igramo Miru Giochiamo la Pace

ASSOCIAZIONE DI VOLONTARIATO INTERNAZIONALE

PER UN MONDO MIGLIORE, CONTRO OGNI INGIUSTIZIA, CONTRO OGNI FASCISMO

PER LA LIBERTÀ DEI POPOLI
LE ULTIME DI PEACEREPORTER

realizacija BKSOFTWARE za COLLETTIVO VAGABONDI DI PACE