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.

Modem

Click image for small or modem version.

Broadband


Click image for broadband version.

Apple's Quicktime is required, get your free download here.
QuickTime and the QuickTime Logo are trademarks of Apple Computer, Inc., registered in the U.S. and other countries. The Get QuickTime Badge is a trademark of Apple Computer Inc., used with permission

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