<%
Set FS=Server.CreateObject("Scripting.FileSystemObject")
Set RS=FS.OpenTextFile(Server.MapPath("Data/counter.txt"), 1, false)
fcount=RS.ReadLine
if session("still_here") = "" then
session("still_here") = "Yes"
fcount=fcount+1
Set RS=FS.OpenTextFile(Server.MapPath("Data/counter.txt"), 2, false)
RS.Write fcount
end if
RS.Close
Set FS1=Server.CreateObject("Scripting.FileSystemObject")
Set RS1=FS1.OpenTextFile(Server.MapPath("Data/coinfo.txt"), 1, false)
mylink=RS1.ReadLine
RS1.Close
Set RS=Nothing
Set FS=Nothing
Set RS1=Nothing
Set FS1=Nothing
%>
This page uses frames, but your browser doesn't support them.