% 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 %>
| Home | Chi siamo | Progetti | Iniziative | Foto | Sostienici | Vagabondanews | Contatti | Download | Forum | Link | Area privata | Crediti |
![]() |
GIOCHIAMO LA PACE IGRAMO MIRU ESTATE 2009
|
||||||||||||||||||||||
LE ISCRIZIONI SI CHIUDONO IL 9 LUGLIO 2009
|
|||||||||||||||||||||||
![]() |
|||||||||||||||||||||||
| INFO E CONTATTI: info@vagabondidipace.org o igramomiru@vagabondidipace.org | |||||||||||||||||||||||
| oppure Roby: 3290024714 (preferibilmente dopo le ore 19:00) - contatto Skype: robyjugo |