Baja Bug Restoration

Hello my name is Tasos, owner of a Baja Bug, constructed by myself years ago. Watching my Baja Bug standing there neglected, affected by time, the idea of rebuilding it came to me, since I love it very much. So, as you can see the Restoration began. Special thanks to my family and my friends Christos and Makis, who helped me bring my "Baja Bug to life again!!!"

Author bug_power

<% Dim fsoObject,tsObject,filObject,lngVisitorNumber,intWriteDigitLoopCount Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") Set filObject = fsoObject.GetFile(Server.MapPath("count.txt")) Set tsObject = filObject.OpenAsTextStream lngVisitorNumber = CLng(tsObject.ReadAll) If isEmpty(Session("blnCounterSet")) = True Then lngVisitorNumber = lngVisitorNumber + 1 Session("blnCounterSet") = True End if Set tsObject = fsoObject.CreateTextFile(Server.MapPath("count.txt")) tsObject.Write CStr(lngVisitorNumber) Set fsoObject = Nothing Set tsObject = Nothing Set filObject = Nothing Response.Write("Visitor Number
") 'To display graphical digits For intWriteDigitLoopCount = 1 to Len(lngVisitorNumber) Response.Write("") Next %>