<%
Dim objFSO, objCountFile
Dim strCountFileName
Dim contador
Dim I
strCountFileName = server.mappath("../imagens/contador_sol.txt")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True)
If Not objCountFile.AtEndOfStream Then
contador = CLng(objCountFile.ReadAll)
Else
contador = 0
End If
objCountFile.Close
Set objCountFile = Nothing
contador = contador + 1
Set objCountFile = objFSO.CreateTextFile(strCountFileName, True)
objCountFile.Write contador
objCountFile.Close
Set objCountFile = Nothing
Set objFSO = Nothing
%>
Untitled Document