Toolmart Ltd - Easy Raker

<% 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/ Prema Diamond/ Raker/ Review/

	Professional Builder, July/August 2002
	Professional Builder, July/August 2002

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