---

Hej alle

Er nogen som kan fortælle mig hvad der er i vejen med min asp tæller,
den stå konstant på 32.

Med venlig Hilsen Hans Larsen

<%
' 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 = 5
DigitPath = "digits/green_on_black"
   
On Error Resume Next
   
Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject")
   
   CounterFile = Server.MapPath ("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 %>





--
Leveret af:
http://www.kandu.dk/
"Vejen til en hurtig løsning"

---

hklarsen wrote:
>
> Er nogen som kan fortælle mig hvad der er i vejen med min asp
> tæller, den stå konstant på 32.

Jeg gætter på at den bruger, som webserveren benytter ikke har skrive
adgang i det katalog, hvor tekstfilen ligger (brugeren hedder normalt
iusr_<maskinnavn>).

--
Anders

---

Tak for svaret Anders Holbøll.
                        

--
Leveret af:
http://www.kandu.dk/
"Vejen til en hurtig løsning"

---

du kan hente en her gratis http://www.wservice.dk/wservice-dk/
"hklarsen" <hklarsen.news@kandu.dk> skrev i en meddelelse
news:z1jA7.5571$5v1.421042@news010.worldonline.dk...
> Hej alle
>
> Er nogen som kan fortælle mig hvad der er i vejen med min asp tæller,
> den stå konstant på 32.
>
> Med venlig Hilsen Hans Larsen
>
> <%
> ' 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 = 5
> DigitPath = "digits/green_on_black"
>
> On Error Resume Next
>
> Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject")
>
> CounterFile = Server.MapPath ("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 %>
>
>
>
>
>
> --
> Leveret af:
> http://www.kandu.dk/
> "Vejen til en hurtig løsning"
>