<%@LANGUAGE="VBSCRIPT"%> <% Dim objFSO, objCountFile ' object vars for FSO and File Dim strCountFileName ' filename of count text file Dim iCount ' count variable Dim I ' standard looping var 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 %> Orienteering - Circolo Dozza ATC
Contacts : Tel. +39 51 231003 - Fax. +39 51 222165 - E-mail. orienteering@circolodozza.it
Home
d
g
 
 
   

ORGANIZZAZIONE A CURA DEL COMITATO MANIFESTAZIONE ORIENTEERING

ENTI PATROCINATORI:

Comune di Bologna
Provincia di Bologna
Ufficio Provinciale Scolastico e
CONI Provinciale
si ringrazia per la collaborazione
CONAD e WWF sez. Bologna

 

Comitato tecnico:

Direttore gara Andrea Govoni Tracciatore Dario D’Amico
Controllore Luciano Nanni
Responsabile partenza Mauro Fizzoni
Responsabile arrivo Francesco Nanni
Segreteria Annamaria Napoli
Elaborazioni dati Fabio Fiorini
Ristoro Atc CircoloDozza

 


  

 

 
Meteo Emilia Romagna
© 2004 Circolo ATC "G. Dozza"