<% 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.
     

Toolmart are pleased to now be able to supply you with the startrite range of woodworking machines.

We can supply both new and ex-demo startrite machines.

 

     
 
 

Bandsaws

Planers

Table Saws

Universals

 
     

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

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