Hentning af data fra txt-fil
Hej.Jeg henter det som der står i min txt-tæller via dette script:
<font color="#64242A">Besøg i alt:</font> <%
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("../counter.txt")
Set f = fso.OpenTextFile(filespec,1)
Do While not f.AtEndOfStream
Response.write f.ReadLine & "<br>"
Loop
f.Close
%>
Det virker også helt som det skal, MEN. Så snart jeg sætter det samme script nedenunder som der så bare skal hente fra en anden txt-fil, så virker siden ikke.
Altså det ser sådan her ud:
<font color="#64242A">Besøg i alt:</font> <%
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("../counter.txt")
Set f = fso.OpenTextFile(filespec,1)
Do While not f.AtEndOfStream
Response.write f.ReadLine & "<br>"
Loop
f.Close
%>
<font color="#64242A">Antal indlæg i Gæstebogen:</font> <%
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("../gb/count.txt")
Set f = fso.OpenTextFile(filespec,1)
Do While not f.AtEndOfStream
Response.write f.ReadLine & "<br>"
Loop
f.Close
%>
Hvorfor virker det ikke?
