<> Program <> Team <> Information <> Location <> Contact <> Participants <> Other <> Results <>
Welcome
to the
3rd WCSA 3D World Championship
in Stockholm, Sweden
31 of july to 1 of august 2010
.
<%
on error resume next
' skapar ett serverobjekt
set fso = createobject("scripting.filesystemobject")
' letar reda på textfilen
set act = fso.opentextfile(server.mappath ("textfil.txt"))
' läser in värdet i textfilen,
' finns ingen textfil skapas den längre ned
counter = clng(act.readline)
' lägger till ett
counter = counter + 1
' stänger serverobjektet
act.close
' skapar en ny textfil om det inte redan existerar en fil
Set act = fso.CreateTextFile(server.mappath("textfil.txt"), true)
' skriver det nya värdet i textfilen
act.WriteLine(counter)
' stänger serverobjektet
act.Close
' skriver ut värdet i textfilen på skärmen
'Response.Write counter
%>