<% Set fs = CreateObject("Scripting.FileSystemObject") Wfile=server.mappath("\") & "\db\counter.txt" on error resume next Set a = fs.OpenTextFile(Wfile) hits = Clng(a.ReadLine) hits = hits + 1 a.close if error then hits = 1 end if Set a = fs.CreateTextFile(Wfile,True) a.WriteLine(hits) a.Close %>
 
 
  
     
   About Us   |   Bunker Price   |   Our Services   |   Our Fleet   |   News   |   Contact Us   |   Feedback   |   Links   |   Disclaimer 
   Recent News
 Best viewed with Internet Explorer 5.0 and above at 800 by 600 resolution. Last updated on 25 March 2004. Number of hits: <% =hits %>
 Copyright © 2003-2004. Keppel Smit Towage Pte Ltd. All rights reserved. Website created by www.artitute.com.