Aktuellt
Hästar
Hundar
Föredrag
Utbildningar
Referenser
Samarbetspartner
Försäljning
Patrick Allori
Bildgalleri
Länkar
Tänkvärt
Sponsring Gästbok
Du är besökare nr:
<%
Dim ObjRaknareFile, ReadRaknareFile, WriteRaknareFile
Dim RaknareFile
Dim RaknareHits
Dim FixedSiffCount
Dim SiffCount
Dim SiffCountLength
Dim SiffZerosToAdd
Dim SiffZeroCount
Dim ShowSiffs
Dim SiffPath
FixedSiffCount = 5
SiffPath = "Siffs/siffra"
On Error Resume Next
Set ObjRaknareFile = Server.CreateObject("Scripting.FileSystemObject")
RaknareFile = Server.MapPath ("Raknare.txt")
Set ReadRaknareFile= ObjRaknareFile.OpenTextFile (RaknareFile, 1, True)
If Not ReadRaknareFile.AtEndOfStream Then
RaknareHits = Trim(ReadRaknareFile.ReadLine)
If RaknareHits = "" Then RaknareHits = 0
Else
RaknareHits = 0
End If
ReadRaknareFile.Close
Set ReadRaknareFile = Nothing
RaknareHits = RaknareHits + 1
Set WriteRaknareFile= ObjRaknareFile.CreateTextFile (RaknareFile, True)
WriteRaknareFile.WriteLine(RaknareHits)
WriteRaknareFile.Close
Set WriteRaknareFile = Nothing
Set ObjRaknareFile = Nothing
SiffCountLength = Len(RaknareHits)
If SiffCountLength < FixedSiffCount Then
SiffZerosToAdd= FixedSiffCount - SiffCountLength
SiffZeroCount = 1
For SiffZeroCount = SiffZeroCount to SiffZerosToAdd
ShowSiffs = ShowSiffs & "![]() "
Next
End If
SiffCount = 1
For SiffCount = SiffCount to SiffCountLength
ShowSiffs = ShowSiffs & "![]() "
Next
%>
<% =ShowSiffs %>
Start 20/1 2008
|
|
|
|
