<% Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Dir = Request.ServerVariables("SCRIPT_NAME") Dir = StrReverse(Dir) Dir = Mid(Dir, InStr(1, Dir, "/")) Dir = StrReverse(Dir) HitsFile = Server.MapPath(Dir) & "\ntcount\hits.txt" On Error Resume Next Set InStream= FileObject.OpenTextFile (HitsFile, 1, false ) OldHits = Trim(InStream.ReadLine) NewHits = OldHits + 1 Set OutStream= FileObject.CreateTextFile (HitsFile, True) OutStream.WriteLine(NewHits) %> Welcome to headwearworld!
=================

<% L=Len(NewHits) i = 1 For i = i to L num = Mid(NewHits,i,1) Display = Display & "" Next Response.Write Display %>
Home Page About us Our products Contact us What' New

KBW001
KBW002
KBW003
KBW004

KBW005
KBW006


KBW007
KBW008

KBW00
KBW010
KBW011
KBW012

KBW013
KBW014
KBW015
KBW016

KBW017
KBW018
KBW019
KBW020

KBW021
KBW022
KBW023
KBW024