Here's the sort of thing I mean:
default.asp
Code:
<%@ Language=VBScript %>
<%option explicit%>
<HTML>
<%
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim Visitor, fso, MyFile, Data
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.OpenTextFile("c:\testfile.txt", ForReading, True)
Data = MyFile.ReadLine
Visitor = CInt(Data)
MyFile.Close
Visitor = Visitor + 1
Response.Write "<script language=javascript>"& vbcrlf
Response.Write "var count=" & Visitor & vbcrlf
Response.Write "</script>"
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
MyFile.Write Visitor
MyFile.Close
%>
<Frameset cols="100,*">
<frame name=left src="./left.htm">
<frame name=main src="http://forums.vb-world.net">
</frameset>
</HTML>
left.htm
Code:
<HTML>
<HEAD>
<script language=javascript>
function goHome()
{
parent.main.location='./jbhome.htm';
}
</script>
</HEAD>
<BODY>
<script language=javascript>
document.write("<h2>Visitors: " + parent.count + "</h2>")
</script>
<A href="javascript:goHome();">Home</A>
</BODY>
</HTML>
jbhome.asp
Code:
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
</HEAD>
<BODY>
<H1>Jay=B HOME</H1>
</BODY>
</HTML>