<%
Function GetHit(arq,bInc)
Const ForReading = 1, ForWriting = 2
Set fso = CreateObject("Scripting.FileSystemObject")
strvroot = "d:\www\equipe-bombas.com.br\www\_private\"
If not (fso.FileExists(strvroot & arq & ".cnt")) Then
    fso.CopyFile strvroot & "contador.cnt", strvroot & arq & ".cnt"
End If
Set ts = fso.OpenTextFile(strvroot & arq & ".cnt", ForReading)
s = ts.ReadLine
ts.close
hit=0
if left(s,11)= "FPCountFile" then
 Hit = clng(right(s,11))
end if
if bInc then
 hit = hit + 1
 Set ts = fso.OpenTextFile(strvroot & arq & ".cnt", ForWriting, True)
 ts.WriteLine "FPCountFile " & strzero(hit,11)
 ts.close
end if
set ts =nothing
set fso=nothing
GetHit = clng(hit)
End Function

Function StrZero(num,tam)
num=trim(num)
if cint(len(num)) <> cint(tam) then
	x = cint(tam) - cint(len(num))
	if x > 0 then
	   num = string(x,"0") & num
	end if
end if
StrZero = num 
end function %>