<%
'////////////////////////// UPDATE COUNTER ///////////////////////////////////////
Wfile="upload/countershopcart.txt"

Set FS = Server.CreateObject("Scripting.FileSystemObject")


		Set RS=FS.OpenTextFile(Server.MapPath(Wfile), 1, True)
		fcount=RS.ReadLine
		RS.Close
		
		fcount=fcount+1

		Set RS=FS.OpenTextFile(Server.MapPath(Wfile), 2, True)
		RS.Write fcount
		RS.Close

%>
document.write ("Hits <% =fcount%>")