<%
Function RandomImage(ImagesFolderPath, ImageFileTypes, ImageDescription)
'Declare variables
Dim CompleteImagesFolderPath
Dim FileSystemObject
Dim ImageFolder
Dim Files
Dim i
Dim ImageFiles
Dim File
Dim FileName
Dim FileExtension
Dim RandomNumber
'Find the complete path to image folder by using Server.MapPath
CompleteImagesFolderPath = Server.MapPath(ImagesFolderPath)
'Create an instance of the FileSystemObject which allows ASP to
'access the file system
Set FileSystemObject = Server.CreateObject("Scripting.FileSystemObject")
'Check that the folder containing the images exists
If Not FileSystemObject.FolderExists(CompleteImagesFolderPath) Then
RandomImage = "Error 0: Cannot find requested folder"
Set FileSystemObject = nothing
Exit Function
End If
'Get the folder containing the images
Set ImageFolder = FileSystemObject.GetFolder(CompleteImagesFolderPath)
'Get a list of all the files within the images folder
Set Files = ImageFolder.Files
'Use a dictionary object to temporarily store the image file names
i = 1
Set ImageFiles = Server.CreateObject("Scripting.Dictionary")
'Loop through the list of files within the images folder.
'If the file has a file extension that is in the list of
'file types specified in the ImageFileTypes function parameter,
'then add the file name to the ImageFiles dictionary object
For Each File in Files
FileName = File.Name
FileExtension = Right(FileName, Len(FileName) - (InStrRev(FileName, ".")))
If InStr(1,ImageFileTypes,FileExtension,vbTextCompare) > 0 then
ImageFiles.Add i, FileName
i = i + 1
End If
Next
'Destroy objects that are no longer required
Set ImageFolder = nothing
Set Files = nothing
Set FileSystemObject = nothing
'Initialise the random number generator
Randomize
' Check that image file(s) have been found
If ImageFiles.Count = 0 Then
RandomImage = "Error 1: Requested folder does not contain any image files"
Exit Function
End If
'Generate a random number between 1 and the number of image files
RandomNumber = Int((ImageFiles.Count) * Rnd + 1)
'Return a hyperlink to a random image file
RandomImage = " & ImagesFolderPath & ImageFiles.Item(RandomNumber) & Chr(34) & ) "
Set ImageFiles = nothing
End Function
%> <%Response.Write RandomImage("../images/", "gif jpeg", "My Image")%>
|
|
Maintenance
Net 24 are able to offer maintenance
contracts for all your office IT systems. We pride ourselves on our
versatility and understanding of all technologies.
Some Of Our Services
- Wireless and wired networking
for your workplace (office or industrial units).
- Windows server configurations
including e-mail and internet routing, file sharing, multi user
applications, working from home solutions and much more.
- Data security and back up.
- System repair and maintenance.
- Least cost routing (making
calls through the mobile network for cheaper calls).
- Broadband installations and
maintenance.
Our maintenance packages are
tailored to you and your IT systems. We don't charge a standard rate
as no company is standard. Each customer is different and has
different needs and requirements. We will send an technician to your
office to evaluate your needs and discuss any previous or ongoing
concerns you have, future projects and any thing else you wish to
talk about. Then once we have estimated all your specific needs we
can draw up a quote for you. If you wish to speak to someone or
arrange an appointment please call 02920 454 336 or email us on
info@net24wales.co.uk.
|
| |
|
