<%
If Session("Counter") <> "Counted" Then
on error resume next
set fso = createobject("scripting.filesystemobject")
set act = fso.opentextfile(server.mappath("counter.txt"))
counter = clng(act.readline)
counter = counter + 1
act.close

Set act = fso.CreateTextFile(server.mappath("counter.txt"), true)
act.WriteLine(counter)
act.Close
Session("Counter") = "Counted"
End If
%>


XXXXXXXXXXXXXXXXXXXXXXXXXXXX

Så här står det:
Microsoft VBScript runtime error '800a0046'

Permission denied

/nakambia/main.asp, line 60



line 60 är:

Set act = fso.CreateTextFile(server.mappath("counter.txt"), true)

den raden

Det handlar om dom berömda rättigheterna.
Är det på servern, så kontakta admin och begär skriv och läsrättigheter på mappen som filen ligger i.

vissa webhotell har en mapp i varje konton som kallas "db" eller nåt liknande där du har rättigheter att läsa/skriva till databaser, textfiler osv.

hihi...
bara så enkelt...:)
okej
tack