<% 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

KHB001
KHB002
KHB003
KHB004

KHB005
KHB006
KHB007
KHB008

KHB009
KHB010
KHB011
KHB012

KHB013
KHB014
KHB015
KHB016

KHB017
KHB018
KHB019
KHB020

KHB021
KHB022
KHB023
KHB024

KHB025
KHB026
KHB027
KHB028