Passar De Server.mappath Pra Caminho Fisico

[tainan]

<%

' Graphical Hit Counter Example By www.PowerASP.com

' Declare variables

Dim ObjCounterFile, ReadCounterFile, WriteCounterFile

Dim CounterFile

Dim CounterHits

Dim FixedDigitCount

Dim DigitCount

Dim DigitCountLength

Dim DigitZerosToAdd

Dim DigitZeroCount

Dim ShowDigits

Dim DigitPath

' (FixedDigitCount) will add zeros to the front of your count

' if the count is less then the (FixedDigitCount)

' just like "frontpage" counters let you do

FixedDigitCount = 3

DigitPath = "digits/black_on_white/"

On Error Resume Next

Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject")

CounterFile = Server.MapPath ("../dados/counter.txt")

Set ReadCounterFile= ObjCounterFile.OpenTextFile (CounterFile, 1, True)

If Not ReadCounterFile.AtEndOfStream Then

CounterHits = Trim(ReadCounterFile.ReadLine)

If CounterHits = "" Then CounterHits = 0

Else

CounterHits = 0

End If

ReadCounterFile.Close

Set ReadCounterFile = Nothing

CounterHits = CounterHits + 1

Set WriteCounterFile= ObjCounterFile.CreateTextFile (CounterFile, True)

WriteCounterFile.WriteLine(CounterHits)

WriteCounterFile.Close

Set WriteCounterFile = Nothing

Set ObjCounterFile = Nothing

DigitCountLength = Len(CounterHits)

If DigitCountLength < FixedDigitCount Then

DigitZerosToAdd= FixedDigitCount - DigitCountLength

DigitZeroCount = 1

For DigitZeroCount = DigitZeroCount to DigitZerosToAdd

ShowDigits = ShowDigits & "<img src=""" & DigitPath & "/0.gif"" Alt =""" & CounterHits & " Visitors"" >"

Next

End If

DigitCount = 1

For DigitCount = DigitCount to DigitCountLength

ShowDigits = ShowDigits & "<img src=""" & DigitPath & "/" & Mid(CounterHits,DigitCount,1) & ".gif"" Alt =""" & CounterHits & " Visitors"">"

Next

%>

<% =ShowDigits %><br>

[Victor]

Qual o erro que retorna na página nesse codigo???

[tainan]

Nenhum erro....ele retorna a pagina tranquilow...mas aí o contador só fika no 001 , e não sai disso..

[bolomaster]

tipo se você quer passar de server mappath para o caminho fisico eu costumo fazer assim oh

tipo criar uma constante com o caminho

tipo

<%

const caminho

caminho = c:\pasta\nomearquivo

%>

ai no seu caso onde esta fazendo a chamada seria assim oh

CounterFile = caminho

deu para entender?

[dark0]

é isso..

mas você tem que ver, como é o caminho fisico do seu servidor.. (se você colocar na web)

se quiser descobrir, tem uma variavel de servidor (request.servervariables..) que te mostra isso..

Mas a principio, é o que o bolo falou ali

ate mais..

[Decio]

Retire o On Error Resume Next e veja o erro que retorna .

[Bicicleta]

If CounterHits = "" Then

CounterHits = 0

Else

CounterHits = 0

End If

Acho que é por isso que o contador não sai de um!!!!

Ele pega o valor do arquivo e substitui por zero! você tem q pegar o texto do arquivo e incrementar 1, não zerar...

Tipo, troque por isso:

If CounterHits = "" Then

  CounterHits = 0

End If

Viu? Sem o Else... Tenta e posta o resultado!

[]s