% Const IMGS_DIR = "/images/phone/"
Dim objFSO, objFolderObject, objFileCollection, objFile
Dim intFileNumberToUse, intFileLooper
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolderObject = objFSO.GetFolder(Server.MapPath(IMGS_DIR))
Set objFSO = Nothing
Set objFileCollection = objFolderObject.Files
Set objFolderObject = Nothing
intFileNumberToUse = Int(objFileCollection.Count * Rnd) + 1
intFileLooper = 1
For Each objFile in objFileCollection
If intFileLooper = intFileNumberToUse Then
Set objImageFileToUse = objFile
intFileLooper = intFileLooper + 1
Set objFileCollection = Nothing
strImageSrcText = IMGS_DIR & objImageFileToUse.Name
Set objImageFileToUse = Nothing
We offer 24/7/365 phone support, 99.9% uptime, and have a 30 day money back guarantee. Your site will be on a top of the line Dual Xeon server that provides INSTANT backups of your site. Our control panel is one of the best in the industry, and has over 39 scripts that can be installed with a click of the mouse. See the instant script list.
ALL PLANS INCLUDE
*30 day money back
e-mail account manager
We provide comprehensive managed hosting solutions combined in a powerful and award winning operating system, cPanel. With features such as FTP, Site Wizards, eCommerce Builders, Site Promotion, Statistics Tools, and an Easy E-Mail Administrator, you will have complete administrative control of your website in minutes! We have a very simple and open ended network protocol with interfaces to many common programming languages.