<% Const IMGS_DIR = "/images/rand/left/" Dim objFSO, objFolderObject, objFileCollection, objFile Dim intFileNumberToUse, intFileLooper Dim objImageFileToUse Dim strImageSrcText Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolderObject = objFSO.GetFolder(Server.MapPath(IMGS_DIR)) Set objFSO = Nothing Set objFileCollection = objFolderObject.Files Set objFolderObject = Nothing Randomize() intFileNumberToUse = Int(objFileCollection.Count * Rnd) + 1 intFileLooper = 1 For Each objFile in objFileCollection If intFileLooper = intFileNumberToUse Then Set objImageFileToUse = objFile Exit For End If intFileLooper = intFileLooper + 1 Next Set objFileCollection = Nothing strImageSrcText = IMGS_DIR & objImageFileToUse.Name Set objImageFileToUse = Nothing %>

........Supplying specialised products to the Construction & Woodworking Industries.

 

Stone

Wood

contact us

home

Online Shop

..UK Suppliers for:
..How to Pay?


Using our secure server (SSL)
All credit card numbers and personnel details are sent using 128 bit encryption. They are only decrypted after they reach our computer. They are not held in clear text on any web site.

..Contact Us



Catalogue Now avalable
call: 01322 288843
or use our form
to request your copy.
       
2004 Catalogue

Click to request
your free copy
 
  Our Contact points    
         
   

 

Call or Fax: 01322 288843

Email: sales@toolmartuk.com

 

To use our online form, please click Here

 

Toolmart Ltd
PO Box 236

Dartford
DA1 1ww


   
 

........Supplying specialised products to the Construction & Woodworking Industries.

........Copyright Tool Mart Ltd 2004