<%
Dim objFSO, objCountFile
Dim strCountFileName
Dim iCount
Dim bUseImages
Dim I
if session("before_capa") = "" then
session("before_capa") = "Yes"
strCountFileName = "c:\domains\estreladourada.com.br\wwwroot\capa.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
end if
%>
