D & T Rod & Custom

(916)-275-4875
Outside 916 area code
(888)-275-4875

Your Local Rod & Custom shop. <% Application.Lock Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Set HtFile = FileObject.OpenTextFile ("c:\inetpub\wwwroot\counts\dtcnt.txt") Application("dthits") = HtFile.Readline If Not IsNumeric(Application("dthits")) Then Application("dthits") = 1 else Application("dthits") = Application("dthits") + 1 End if Set OutFile = FileObject.CreateTextFile ("c:\inetpub\wwwroot\counts\dtcnt.txt", TRUE, FALSE) OutFile.WriteLine(application("dthits")) Set Outfile = Nothing Set FileObject = Nothing response.write "Welcome, you are visitor number " & Application("dthits") & "