<% Const IMGS_DIR = "/portfolio/full/" 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 %>
Inner Eye, Inc. Home Page
Profile Services Portfolio Downloads Contact

Inner Eye, Inc. is your Metro Detroit, advertising specialists.

Inner Eye, Inc. develops custom advertising and promotional material using the latest techniques in illustration, print, and multimedia technology.

Inner Eye, Inc. supplies many business across Michigan, as well as nation wide, with all their promotional needs.

Please visit our PORTFOLIO to see some examples of our work, and feel free to contact us so we can get started on your next project.

Home - Profile - Services - Portfolio - Downloads - Contact