Truck/Auto Service North 4810 Northwestern Drive Zionsville, IN 46077 Phone: 317-872-4177 Fax: 317-872-4521

Hours: Monday-Friday 7:00 am - 6:00 pm Location Map | About us | E-Mail Us

© 2007 Greene's Truck/Auto Service North | Designed by WebTeams

<% sub hits 'on error resume next 'to avoid any errors when opening a file that is not there 'err = 0 'this would only happen the first time though ' dim objFS, fleHits 'optionally we could create the initial file by hand ' Set objFS = CreateObject("Scripting.FileSystemObject") Set fleHits = objFS.OpenTextFile(server.mappath("/cgi-bin/hitsFile.txt"),1) if isObject(fleHits) then currentHits = fleHits.ReadLine if isNumeric(currentHits) then currentHits = clng(currentHits) else currentHits = 0 end if else currentHits = 0 end if fleHits.Close 'now we have the current hits ' currentHits = cstr(currentHits + 1) 'we convert it to a string for processing later. 'save the new hit amount to file 'Set fleHits = objFS.CreateTextFile(server.mappath("/cgi-bin/hitsFile.txt"),True) 'fleHits.writeLine cstr(currentHits) 'fleHits.close 'set objFs=nothing ' 'Now output to the screen ' 'we have a gif library of our standard images 0-9 avilable in our common gifs directory for x = 1 to len(currentHits) response.write "" next end sub %>