Best Viewed at
800 x 600
<%
dim filename
dim fso2
dim ts
dim objfile
dim hitcount
filename="d:\HitCount30.DAT"
set sfo = CreateObject("Scripting.FileSystemObject")
set fso2 = CreateObject("Scripting.FileSystemObject")
if not fso2.FileExists(filename) then
fso2.CreateTextFile(filename)
end if
set objfile=fso2.GetFile(filename)
set ts=objfile.OpenAsTextStream(1,-2)
if (ts.AtEndOfStream) then
hitcount=1
else
hitcount=ts.ReadLine
hitcount=hitcount+1
end if
ts.Close
set ts=objfile.OpenAsTextStream(2,-2)
ts.WriteLine(hitcount)
ts.Close
response.Write hitcount
%>
Barbican Warehouse, Southgate,
Pontefract. WF8 1QS.
Tel Pontefract (01977) 707463 Fax Pontefract (01977) 790997
|
|
|
Welcome to the Homepage of Michael Major Floor Coverings we are Importers of 4 metre, 3 metre and 2 metre wide Vinyl Floorcoverings. Some B Grade at Massive Discount prices. Also Retailers of High Quality Carpets to suit all Locations. |
