<% 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:
logocvdp cvdpita I NOSTRI PROGETTI

LE NOSTRE INIZIATIVE

LA CARTA DEI PRINCIPI

Igramo Miru Giochiamo la Pace

logoigramomiru

ASSOCIAZIONE DI VOLONTARIATO INTERNAZIONALE

PER UN MONDO MIGLIORE, CONTRO OGNI INGIUSTIZIA

PER LA LIBERTÀ DEI POPOLI

 peacereporte
logomagliacvdp cvdpbih LE ULTIME DI PEACEREPORTER
logo BKS

realizacija BKSOFTWARE za COLLETTIVO VAGABONDI DI PACE