<script type="text/javascript">
function windowformat()
{
parent.document.title="Produktoversigt"
window.status = "CAD-stuen, WEB Design"
}
</script>
<body bgcolor="#FFFFFF" font color="#666666" alink="#666666" vlink="#666666" link="#666666" text="#666666" onload="windowformat()">
<%
Set FS=Server.CreateObject("Scripting.FileSystemObject")
Set RS=FS.OpenTextFile(Server.MapPath("/data/counter.txt"), 1, False)
fcount=RS.ReadLine
RS.Close
fcount=fcount+1
'This code is disabled due to the write access security on our server:
Set RS=FS.OpenTextFile(Server.MapPath("/data/counter.txt"), 2, False)
RS.Write fcount
RS.Close
Set RS=Nothing
Set FS=Nothing
%>
</body>