Jeg har en ASP tæller liggende på min site
www.milux.dk (Internetklubben) og
der virker tælleren fint.
Nu vil jeg gerne have den samme tæller på et andet site
www.spootnik.dk
siden er
http://www.spootnik.dk/test.asp men får fejl
Microsoft VBScript runtime error '800a0035'
File not found
/test.asp, line 7
Og det kan jeg ikke lige gennemskue.
Jeg har fået hjælp til at give tællerfilen "counter.txt" læse og skrive
rettigheder, men jeg får ovennævnte fejl.
(Rettighede er -rwxrwxrwx)
Scriptet er
<%
Sub ShowCounter(bType)
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
strDir = Request.ServerVariables("SCRIPT_NAME")
strCountFile = Server.MapPath(Left(strDir, InStrRev(strDir,"/"))) &
"\counter.txt"
' On Error Resume Next
Set objFile = objFS.OpenTextFile(strCountFile, 1, False)
tmpHits = Trim(objFile.ReadLine)
tmpHits = tmpHits + 1
objFile.Close
Set objFile = objFS.CreateTextFile(strCountFile, True)
objFile.WriteLine(tmpHits)
Set objFS = Nothing
' Her vises counteren 1 = Grafisk counter, 2 = Tekst counter
Select Case bType
Case 1
For num = 1 To Len(tmpHits)
Response.Write "<img src=" & Mid(tmpHits,num,1) & ".gif>"
Next
Case 2
Response.Write tmpHits
End Select
End Sub
%>
Og i HTML delen:
<CENTER>Du er besøgende nr <B><% ShowCounter(2) %></B> <BR>siden den 1.
september 2000</CENTER>
"counter.txt", "0.gif"...."9.gif" findes alle på serveren.
Nogen der kan hjælpe mig ?
Godt nytår!
--
Med venlig hilsen
Michael Lund Sørensen
www.milux.dk
www.gromit.dk/dvd