<% Const IMGS_DIR = "/images"
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
%>
All material (including any text, photographs and artwork) that appears on this site is subject to the provisions of the Copyright Act 1968.
No part may be reproduced, altered, stored or transmitted for any purpose without prior written permission from Studio Ni.
Whilst every endeavour has been made to ensure our content and material is error free, we do not authenticate its accuracy or completeness. Our website contains links to third party websites that are not operated or controlled by Studio Ni. Please note that Studio Ni is not responsible for the privacy, accuracy or security practices of those websites and that this statement does not cover those websites.
Written permission is required before linking to the website. Seek permission using our online enquiry form.
Proceeding past this point constitutes acceptance of these terms of use.
