<%
fp = Server.C:\Inetpub\wwwroot("aspcount.txt")
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(fp)
ct = Clng(a.ReadLine)
if Session("ct") = "" then
Session("ct") = ct
ct = ct + 1
a.close
Set a = fs.CreateTextFile(fp, True)
a.WriteLine(ct)
end if
a.Close
Response.Write ct
%>
<% =ShowDigits %>
Reconditioned P4, 2.4GHz, 512MB
DDR333 RAM 80GB Hard Drive
DVD Combo Drive/CD Writer
£179.99 SOLD
SOLD
