Visits :
<%
set fso = createobject("scripting.filesystemobject")
set act = fso.opentextfile(server.mappath("counter.txt"))
counter = clng(act.readline)
counter = counter + 1
act.close
Set act = fso.CreateTextFile(server.mappath("counter.txt"), true)
act.WriteLine(counter)
act.Close
Response.Write counter
%>
Getech Automation Ltd 22 Woodlands Link #03-67 Woodlands link Ind'Est Singapore, 738734 Tel:(65)7569723 Fax:(65)7560770 |