Toolmart Ltd

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

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

Home/ Stone
	Stone Product associated with stone, brick, etc
	Select a product by clicking on its picture: To buy or view a products pricing follow the link on its page. Or if you know what you are looking for and want to search the shop click here

	......

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