Source Code for http://authors.aspalliance.com/brettb/RandomImageSelector.asp
<html>
<!--Begin ASPAlliance Document Header-->
<head>
<title>Random Image Selector</title>
<link type="text/css" rel="stylesheet" href="ASPKitchen.css" />
<meta name="description" content="Simple VBScript example for ASP showing how random content can be selected and displayed">
<meta name="keywords" content="ASP, VBScript, random, example, sample">
</head>
<!--Begin ASPAlliance Document Article-->
<body topmargin="0" leftmargin="0">
<div align="center"><center>
<script language="JavaScript">
function SubmitSearch() {
document.frmSearch.submit();
}
</script>
<table border="0" cellpadding="0" width="100%" cellspacing="0">
<tr>
<td width="30%" bgcolor="#CC0000"><a href="http://authors.aspalliance.com/"><img
src="images/ASPAllianceLogo.gif" width="142" height="57" alt="ASPAlliance" border="0"></a></td>
<td width="40%" bgcolor="#CC0000" align="center"><!-- 468x60 Banner Ad Tag Start -->
<iframe src="http://ads.aspalliance.com/displayad.aspx?t=1&m=1" height="60" width="468" marginwidth="0" marginheight="0" frameborder="0" scrolling="no"><script type="text/javascript" src="http://ads.aspalliance.com/displayad.aspx?t=1&m=1&target=_parent&js=1"></script></iframe>
<!-- 468x60 Banner Ad Tag End --></td>
<td width="30%" bgcolor="#CC0000" align="right" class="HeaderBar"><font size="4">ASP Kitchen</font> <br><form name="frmSearch" method="POST" action="http://www.brettb.com/ASPAllianceSearch.asp">Search: <input type="text" name="Query"> <a href="javascript:SubmitSearch()">Go</a> </form>
</td>
</tr>
<tr>
<td colspan="3" bgcolor="#CCCCCC" style="BORDER: #270D30 1px solid;"><div class="menu-top"
id="TopMenu" align="left"><a href="Default.asp" title="Home"><p>Home</a> | <a
href="ClassicASPArticles.asp" title="ASP Articles">ASP Articles</a> | <a
href="ASP.NetArticles.aspx" title="ASP.NET Articles">ASP.NET Articles</a> | <a
href="Tools.asp" title="Tools">Tools</a> | <a
href="TableOfContents.asp" title="Table Of Contents">Table Of Contents</a> | <a href="What'sNew.aspx" title="What's New">What's
New</a></p>
</div></td>
</tr>
</table>
</center></div>
<table border="0" cellpadding="8" width="100%" cellspacing="0">
<tr>
<td valign="top" align="left"><!--start article-->
<p><a href="Default.asp" title="Back to the ASP Kitchen">ASP Kitchen</a>: <a
href="ASPWatchArticles.asp" title="Back to the ASPWatch.com articles">ASPWatch.com
articles</a>: Random Image Selector</p>
<h1>Random Image Selector</h1>
<h2>Introduction</h2>
<p>Here is a small function that allows random images to be displayed on an ASP document.
Although this is an easy task to achieve in ASP, or even using client-side JavaScript, the
VBScript function shown here has the advantage of not needing to know the number of images
within the folder – it will take account of images being to added or removed from the
images folder. An example random image is shown below. <a
href="javascript:location.reload()" title="Refresh this page">Refresh this page</a> to see
another:</p>
<p align="center"><img src="images/RandomImages/Sculpture_At_Kew_Gardens.jpg" alt="A randomly selected image"></p>
<p>The RandomImage function is shown below:<br>
<br>
<font color="#808080"><%<br>
Function RandomImage(ImagesFolderPath, ImageFileTypes, ImageDescription)<br>
<br>
</font><font color="#008000">'Declare variables</font><font color="#808080"><br>
Dim CompleteImagesFolderPath<br>
Dim FileSystemObject<br>
Dim ImageFolder<br>
Dim Files<br>
Dim i<br>
Dim ImageFiles<br>
Dim File<br>
Dim FileName<br>
Dim FileExtension<br>
Dim RandomNumber<br>
<br>
</font><font color="#008000">'Find the complete path to image folder by using
Server.MapPath</font><font color="#808080"><br>
CompleteImagesFolderPath = Server.MapPath(ImagesFolderPath)<br>
<br>
</font><font color="#008000">'Create an instance of the FileSystemObject which allows ASP
to<br>
'access the file system </font><font color="#808080"><br>
Set FileSystemObject = Server.CreateObject("Scripting.FileSystemObject")<br>
<br>
</font><font color="#008000">'Check that the folder containing the images exists</font><font
color="#808080"><br>
If Not FileSystemObject.FolderExists(CompleteImagesFolderPath) Then<br>
RandomImage = "Error 0: Cannot find requested folder"<br>
Set FileSystemObject = nothing<br>
Exit Function<br>
End If<br>
<br>
</font><font color="#008000">'Get the folder containing the images</font><font
color="#808080"><br>
Set ImageFolder = FileSystemObject.GetFolder(CompleteImagesFolderPath)<br>
<br>
</font><font color="#008000">'Get a list of all the files within the images folder</font><font
color="#808080"><br>
Set Files = ImageFolder.Files<br>
<br>
</font><font color="#008000">'Use a dictionary object to temporarily store the image file
names</font><font color="#808080"><br>
i = 1<br>
Set ImageFiles = Server.CreateObject("Scripting.Dictionary")<br>
<br>
</font><font color="#008000">'Loop through the list of files within the images folder.<br>
'If the file has a file extension that is in the list of<br>
'file types specified in the ImageFileTypes function parameter,<br>
'then add the file name to the ImageFiles dictionary object</font><font color="#808080"><br>
For Each File in Files<br>
<br>
FileName = File.Name<br>
FileExtension = Right(FileName, Len(FileName) - (InStrRev(FileName, ".")))<br>
<br>
If InStr(1,ImageFileTypes,FileExtension,vbTextCompare) > 0 then<br>
ImageFiles.Add i, FileName<br>
i = i + 1<br>
End If<br>
<br>
Next<br>
<br>
</font><font color="#008000">'Destroy objects that are no longer required</font><font
color="#808080"><br>
Set ImageFolder = nothing<br>
Set Files = nothing<br>
Set FileSystemObject = nothing<br>
<br>
</font><font color="#008000">'Initialise the random number generator</font><font
color="#808080"><br>
Randomize<br>
<br>
</font><font color="#008000">' Check that image file(s) have been found</font><font
color="#808080"><br>
If ImageFiles.Count = 0 Then<br>
RandomImage = "Error 1: Requested folder does not contain any image files"<br>
Exit Function<br>
End If<br>
<br>
</font><font color="#008000">'Generate a random number between 1 and the number of image
files</font><font color="#808080"><br>
RandomNumber = Int((ImageFiles.Count) * Rnd + 1)<br>
<br>
</font><font color="#008000">'Return a hyperlink to a random image file</font><font
color="#808080"><br>
RandomImage = "<img src=" & Chr(34) & ImagesFolderPath &
ImageFiles.Item(RandomNumber) & Chr(34) & " alt=" & Chr(34) &
ImageDescription & Chr(34) & ">"<br>
<br>
Set ImageFiles = nothing<br>
<br>
End Function<br>
%></font><font color="#FFFF00"><br>
</font><br>
<br>
The function uses the FileSystemObject object to access the file system. It checks that
the specified image folder exists, and then extracts a list of files within the folder. A
link to one of the images (chosen at random) is then returned.<br>
<br>
There is a certain amount of error checking within the script; it will return an error
message if it cannot find the images folder, and also if it cannot find any appropriate
image files.<br>
<br>
The function can be called using the following VBScript:<br>
<br>
<font color="#808080"><%Response.Write RandomImage("images/", "gif
jpeg", "My Image")%></font><font color="#FFFF00"><br>
</font><br>
The function has three arguments. The first (ImagesFolderPath) is the name of the folder
containing the images, and it should be a sub-folder of the folder that contains the ASP
document. The second argument should be a string containing a list of file types to use as
images (e.g. jpeg, jpg, gif). Finally, the last argument is a short sentence to describe
your image (which is used as the image’s ALT tag).</p>
<h2>Further reading</h2>
<ul>
<li><a HREF="http://www.amazon.com/exec/obidos/ASIN/0672317907/brettbcom"
title="Sams Teach Yourself Web
Development With ASP in 24 Hours">Sams Teach Yourself Web
Development With ASP in 24 Hours</a>. Start learning ASP with this introductory guide.</li>
</ul>
<ul>
<li><a href="http://www.brettb.com/js_banner_ad_rotator.asp"
title="A JavaScript Banner Ad Rotator">A JavaScript Banner Ad Rotator</a>. Displays a
different image after a specific amount of time. Each image is linked to a different URL.</li>
</ul>
<!--end article-->
<h2>Useful Development Tools</h2>
<div align="left">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%" valign="top"><a
href="http://www.winnershtriangle.com/w/Products.ASPDocumentationTool.asp" target="_blank" title="ASP Documentation Tool™"><strong>ASP
Documentation Tool™</strong></a></td>
</tr>
<tr>
<td width="100%" valign="top">Automatically creates developer documentation for ASP 2.0
and 3.0 web applications written in VBScript and JScript. Documentation for Microsoft
Access, SQL Server 7/2000 databases and Visual Basic 6.0 components associated with the
web application can also be incorporated into the reports. Documentation is created in
HTML, HTML Help and plain text formats.</td>
</tr>
<tr>
<td width="100%" valign="top">
<a
href="http://www.winnershtriangle.com/w/SampleWeb_Documentation/SampleWeb.chm"><img
src="images/Icon_CHM.gif" width="16" height="16" alt="View Sample Output (HTML Help format)"
border="0" align="absmiddle"></a> <a
href="http://www.winnershtriangle.com/w/SampleWeb_Documentation/SampleWeb.chm" title="View Sample Output (HTML Help format)">View Sample
Output</a> (HTML Help format).<br>
<a
href="http://www.winnershtriangle.com/w/SampleWeb_Documentation/Default.htm"><img
src="images/Icon_HTML.gif" width="16" height="16" alt="View Sample Output (HTML Format)"
align="absmiddle" border="0"></a> <a
href="http://www.winnershtriangle.com/w/SampleWeb_Documentation/Default.htm"
target="_blank" title="View Sample Output (HTML Format)">View Sample Output</a> (HTML Format).<br>
<a
href="http://www.brettb.com/redirector.asp?URL=downloads/ASPDocumentationTool_Evaluation_Version.zip"><img
src="images/Icon_Download.gif" width="18" height="20" alt="Download Trial Version"
border="0" align="absmiddle"></a> <a
href="http://www.brettb.com/redirector.asp?URL=downloads/ASPDocumentationTool_Evaluation_Version.zip" title="Download Trial Version">Download
Trial Version</a> (5.2Mb ZIP file).</td>
</tr>
</table>
<br>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%" valign="top"><a
href="http://www.winnershtriangle.com/w/Products.IndexServerCompanion.asp" target="_blank" title="Index Server Companion"><strong>Index Server Companion</strong></a></td>
</tr>
<tr>
<td width="100%" valign="top">
The Index Server Companion is a Windows application that extends the functionality of Microsoft Index Server so that it is able to index content from remote websites and also from ODBC databases. As such it can be used as a low cost alternative to Site Server 3.0 Search.
</td>
</tr>
<tr>
<td width="100%" valign="top">
<a
href="http://www.brettb.com/redirector.asp?URL=downloads/IndexServerCompanionDocumentation.zip"><img
src="images/Icon_CHM.gif" width="16" height="16" alt="View Product Documentation"
border="0" align="absmiddle"></a> <a
href="http://www.brettb.com/redirector.asp?URL=downloads/IndexServerCompanionDocumentation.zip" title="View Product Documentation">View Product
Documentation</a> (119K ZIP file).<br>
<a
href="http://www.winnershtriangle.com/w/Products.IndexServerCompanion.SampleSearch.asp"><img
src="images/Icon_HTML.gif" width="16" height="16" alt="Try Sample Search Facility"
align="absmiddle" border="0"></a> <a
href="http://www.winnershtriangle.com/w/Products.IndexServerCompanion.SampleSearch.asp"
target="_blank" title="View Sample Search Facility">Try Sample Search Facility</a>.<br>
<a
href="http://www.brettb.com/redirector.asp?URL=downloads/IndexServerCompanion_EvaluationVersion.zip"><img
src="images/Icon_Download.gif" width="18" height="20" alt="Download Trial Version"
border="0" align="absmiddle"></a> <a
href="http://www.brettb.com/redirector.asp?URL=downloads/IndexServerCompanion_EvaluationVersion.zip" title="Download Trial Version">Download
Trial Version</a> (1.7Mb ZIP file).</td>
</tr>
</table>
<br>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%" valign="top"><a
href="http://www.winnershtriangle.com/w/Products.ASPNETDocumentationTool.asp" target="_blank" title="ASP.NET Documentation Tool"><strong>ASP.NET Documentation Tool</strong></a></td>
</tr>
<tr>
<td width="100%" valign="top">Automatically creates developer documentation for ASP.NET web applications written in C# or VB.NET.
Documentation for SQL Server 7/2000 databases and C#/VB.NET components associated with the
web application can also be incorporated into the reports. Documentation is created in
HTML, HTML Help and plain text formats.</td>
</tr>
<tr>
<td width="100%" valign="top">
<a href="http://www.winnershtriangle.com/w/ASP.NETDocToolSamples/SampleWeb.NET/SampleWeb.NET.chm"><img
src="images/Icon_CHM.gif" width="16" height="16" alt="View Sample Output (HTML Help format)"
border="0" align="absmiddle"></a> <a
href="http://www.winnershtriangle.com/w/ASP.NETDocToolSamples/SampleWeb.NET/SampleWeb.NET.chm" title="View Sample Output (HTML Help format)">View Sample
Output</a> (HTML Help format).<br>
<a
href="http://www.winnershtriangle.com/w/ASP.NETDocToolSamples/SampleWeb.NET/Default.htm"><img
src="images/Icon_HTML.gif" width="16" height="16" alt="View Sample Output (HTML Format)"
align="absmiddle" border="0"></a> <a
href="http://www.winnershtriangle.com/w/ASP.NETDocToolSamples/SampleWeb.NET/Default.htm"
target="_blank" title="View Sample Output (HTML Format)">View Sample Output</a> (HTML Format).<br>
<a
href="http://www.brettb.com/redirector.asp?URL=downloads/ASP.NETDocumentationTool_1.0.zip"><img
src="images/Icon_Download.gif" width="18" height="20" alt="Download Trial Version"
border="0" align="absmiddle"></a> <a
href="http://www.brettb.com/redirector.asp?URL=downloads/ASP.NETDocumentationTool_1.0.zip" title="Download Trial Version">Download
Trial Version</a> (727K ZIP file).</td>
</tr>
</table>
<br>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%" valign="top"><a
href="http://www.winnershtriangle.com/w/Products.SQLDocumentationTool.asp" target="_blank" title="SQL Documentation Tool"><strong>SQL
Documentation Tool</strong></a></td>
</tr>
<tr>
<td width="100%" valign="top">The SQL Documentation Tool creates technical documentation for Microsoft SQL Server 7.0 and 2000 databases. Technical documentation is created in HTML and HTML Help formats. The HTML Help format documentation is fully searchable and cross referenced. The SQL Documentation Tool documents SQL Server Tables, Views, Stored Procedures, Triggers and Table Relationships.</td>
</tr>
<tr>
<td width="100%" valign="top">
<a
href="http://www.winnershtriangle.com/w/SQLDocumentationTool/Reports/Test_Project/Test_Project.chm"><img
src="images/Icon_CHM.gif" width="16" height="16" alt="View Sample Output (HTML Help format)"
border="0" align="absmiddle"></a> <a
href="http://www.winnershtriangle.com/w/SQLDocumentationTool/Reports/Test_Project/Test_Project.chm" title="View Sample Output (HTML Help format)">View Sample
Output</a> (HTML Help format).<br>
<a
href="http://www.winnershtriangle.com/w/SQLDocumentationTool/Reports/Test_Project/Default.htm"><img
src="images/Icon_HTML.gif" width="16" height="16" alt="View Sample Output (HTML Format)"
align="absmiddle" border="0"></a> <a
href="http://www.winnershtriangle.com/w/SQLDocumentationTool/Reports/Test_Project/Default.htm"
target="_blank" title="View Sample Output (HTML Format)">View Sample Output</a> (HTML Format).<br>
<a
href="http://www.brettb.com/redirector.asp?URL=downloads/SQLDocumentationToolTrial.zip"><img
src="images/Icon_Download.gif" width="18" height="20" alt="Download Trial Version"
border="0" align="absmiddle"></a> <a
href="http://www.brettb.com/redirector.asp?URL=downloads/SQLDocumentationToolTrial.zip" title="Download Trial Version">Download
Trial Version</a> (10.3Mb ZIP file).</td>
</tr>
</table>
<br>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%" valign="top"><a
href="http://www.winnershtriangle.com/w/Products.TheWebsiteUtility.asp" target="_blank" title="The Website Utility"><strong>The Website Utility</strong></a></td>
</tr>
<tr>
<td width="100%" valign="top">The Website Utility examines websites for errors and
areas that need to be optimised for search engines by using a built in web crawling engine.
Errors checked for include broken or moved hyperlinks, missing page titles and missing meta tags.
It also generates HTML for use in creating website site maps (table of contents pages - like <a href="TableOfContents.asp" title="Example Table of Contents">this one</a>), and is
able to create both client-side <a href="http://www.winnershtriangle.com/w/Products.TheWebsiteUtility.JavaScriptSearchEngine.asp" title="JavaScript Search Engine">JavaScript Search Engines</a> and server-side <a href="http://www.winnershtriangle.com/w/Products.TheWebsiteUtility.ASPSearchEngine.asp" title="JavaScript Search Engine">ASP Search Engines</a> for a website.</td>
</tr>
<tr>
<td width="100%" valign="top">
<a
href="http://www.winnershtriangle.com/w/TheWebsiteUtility/Reports/ASPAlliance/default.htm"><img
src="images/Icon_HTML.gif" width="16" height="16" alt="View Sample Output (HTML Format)"
align="absmiddle" border="0"></a> <a
href="http://www.winnershtriangle.com/w/TheWebsiteUtility/Reports/ASPAlliance/default.htm"
target="_blank" title="View Sample Output (HTML Format)">View Sample Output</a> (HTML Format).<br>
<a
href="http://www.brettb.com/redirector.asp?URL=downloads/TheWebsiteUtilityTrial.zip"><img
src="images/Icon_Download.gif" width="18" height="20" alt="Download Trial Version"
border="0" align="absmiddle"></a> <a
href="http://www.brettb.com/redirector.asp?URL=downloads/TheWebsiteUtilityTrial.zip" title="Download Trial Version">Download
Trial Version</a> (3Mb ZIP file).</td>
</tr>
</table>
<br>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%" valign="top"><a
href="http://www.regnow.com/softsell/nph-softsell.cgi?item=8452-18&affiliate=44172" target="_blank" title="Text Workbench"><strong>Text Workbench</strong></a></td>
</tr>
<tr>
<td width="100%" valign="top">Text Workbench is a file search and replacement utility for text files and Microsoft Office documents. Make rapid file replacements on multiple files and folders full of files. Advanced replacement options include regular expressions support. It even works on remote file systems via FTP. A Regular Expression Laboratory allows advanced pattern matching and replacement expressions to be built and tested. This great utility will make your everyday development tasks much easier!
</td>
</tr>
<tr>
<td width="100%" valign="top">
<a
href="http://www.regnow.com/trialware/download/Download_TxtWrBSetup.exe?item=8452-18&affiliate=44172"><img
src="images/Icon_Download.gif" width="18" height="20" alt="Download Trial Version of Text Workbench"
border="0" align="absmiddle"></a> <a
href="http://www.regnow.com/trialware/download/Download_TxtWrBSetup.exe?item=8452-18&affiliate=44172" title="Download Trial Version of Text Workbench">Download
Trial Version</a> (3Mb ZIP file; you have the option to either install directly from this link or save the file for later installation).</td>
</tr>
</table>
</div>
<h2>Author details</h2>
<p><p><a href="http://www.brettb.com/" title="View Brett's personal website">Brett Burridge</a>
spent two years working in the <a href="http://www.essex.ac.uk/"
title="University of Essex">University of Essex</a> Computing Service, before moving to <a
href="http://www.intapps.com/" title="The Internet Applications Group">The Internet
Applications Group</a> in the Autumn of 1999, where he developed e-Business applications for a range of
corporate clients and dot-com start ups.</P>
<P>Brett is presently employed as an Internet developer and technical writer
through his own company,
<a href="http://www.winnershtriangle.com/w/Default.asp" title="Winnersh Triangle Web Solutions Limited" target="_blank">Winnersh Triangle Web Solutions Limited</a>.
The company produces a number of
innovative products, including the popular
<a href="http://www.winnershtriangle.com/w/Products.ASPDocumentationTool.asp" target="_blank" title="ASP Documentation Tool™ - creates project documentation for ASP 2.0 and 3.0 websites written in VBScript and JScript, and also SQL Server 2000 databases">ASP Documentation Tool™</a>, the <a href="http://www.winnershtriangle.com/w/Products.IndexServerCompanion.asp" target="_blank" title="Index Server Companion - extends the functionality of Index Server to allow indexing of content from remote websites and ODBC databases">Index Server Companion</a>, the <a href="http://www.winnershtriangle.com/w/Products.ASPNETDocumentationTool.asp" target="_blank" title="ASP.NET Documentation Tool - creates documentation for ASP.NET web applications written in VB.NET and C#">ASP.NET Documentation Tool</a>, the <a href="http://www.winnershtriangle.com/w/Products.SQLServerDocumentationTool.asp" target="_blank" title="SQL Server Documentation Tool - Documents Microsoft SQL Server Databases">SQL Server Documentation Tool</a> and <a href="http://www.winnershtriangle.com/w/Products.TheWebsiteUtility.asp" target="_blank" title="The Website Utility">The Website Utility</a>.
The company is also available for <a href="http://www.winnershtriangle.com/w/Services.Main.asp" target="_blank" title="web application design and development">web application design and development</a> at reasonable rates, primarily using
<a href="http://www.winnershtriangle.com/w/Services.Microsoft.asp" target="_blank" title="Development using Microsoft technologies such as ASP, ASP.NET, Visual Basic, SQL Server">Microsoft technologies</a> (ASP, ASP.NET, Visual Basic, SQL Server) but also using <a href="http://www.winnershtriangle.com/w/Services.OpenSource.asp" target="_blank" title="Open source development using technologies such as PHP, MySQL and Perl">open source</a>
technologies such as PHP, MySQL and Perl. Specialist services include development
of <a href="http://www.winnershtriangle.com/w/Services.IndexServer.asp" target="_blank" title="Development of search solutions using Microsoft's Index Server and Site Server 3.0 Search">search solutions</a> using Microsoft's Index Server and Site Server 3.0 Search.
</P>
<P>
As well as the ASPAlliance, Brett has written articles for <a href="http://www.ariadne.ac.uk/issue33/nt-explorer/" title="Read Brett's most recent article for Ariadne.ac.uk" target="_blank">Ariadne.ac.uk</a>
and <a href="http://www.asptoday.com/content.asp?id=1435" target="_blank" title="Read Brett's first ASPToday article">ASPToday</a>, and has contributed recipes to the <a href="http://www.amazon.com/exec/obidos/ASIN/0672325241/brettbcom" target="_blank" title="ASP.NET Developer's Cookbook">ASP.NET Developer's Cookbook</a>.
<small><a href="Links.asp" style="color: rgb(252,253,253);">links</a></small>
</P>
<p>
Outside web development, Brett is interested in digital photography (here's my <a href="http://www.brettb.com/gallery.asp" target="_blank" title="My digital photo gallery">photo gallery</a>), <a href="http://www.brettb.com/MyTropicalFishtank.asp" target="_blank" title="My Tropical Fish!">tropical fishkeeping</a>
and collecting contemporary works of art by artists such as <a href="http://www.brettb.com/Doug_Hyde_Gallery.asp" title="My Doug Hyde Limited Edition Sculptures and Prints" target="_blank">Doug Hyde</a>.
</p>
<p>Contact Brett by emailing <script language="JavaScript"><!--
document.write('<a title="Email Brett" href="mailto:' + 'brett' + '@asp' + 'alliance.com">brett' + '@' + 'aspalliance.com</a>');
// --></script></p>
<p align="center">
<a href="http://www.winnershtriangle.com/w/Products.ASPDocumentationTool.asp?FROM=http://authors.aspalliance.com/brettb/RandomImageSelector.asp" target="_blank"><IMG SRC="images/ASPDocumentationToolBannerAd.gif" width="468" height="60" alt="Download a free ASP Documentation Tool now!!!" border="0"></a>
</p>
</p>
<h2>Article history</h2>
<p>"Random image selector" originally published on ASPWatch.com on June 8 2000.
Republished on ASPAlliance.com on 26 September 2001.</p>
<p><a href="Default.asp" title="Back to the ASP Kitchen">ASP Kitchen</a>: <a
href="ASPWatchArticles.asp" title="Back to the ASPWatch.com articles">ASPWatch.com
articles</a>: Random Image Selector</p>
</td>
</td>
<td valign="top" align="center" bgcolor="#CCCCCC" style="BORDER-LEFT: rgb(102,102,102) 1px solid;"> <script type="text/javascript"><!--
google_ad_client = "pub-7044749527879330";
google_ad_width = 120;
google_ad_height = 600;
google_ad_format = "120x600_as";
google_ad_channel ="5708954406";
google_color_border = "0000C0";
google_color_bg = "FFFFFF";
google_color_link = "E60000";
google_color_url = "0000FF";
google_color_text = "000000";
google_ad_type = "text_image";
google_alternate_ad_url = "http://authors.aspalliance.com/brettb/NoGoogleAds.asp";
//--></script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
<p align="center">
<a href="http://www.winnershtriangle.com/w/Products.ASPDocumentationTool.asp" target="_blank"><img src="http://authors.aspalliance.com/brettb/images/ASPDocumentationTool_1.gif" alt="Download a Free ASP Documentation Tool Now!"></a>
</p>
<!-- Search Google -->
<center>
<form method="get" action="http://www.google.com/custom" target="google_window">
<table bgcolor="#cccccc">
<tr><td nowrap="nowrap" valign="top" align="left" height="32">
<a href="http://www.google.com/">
<img src="http://www.google.com/logos/Logo_25gry.gif" border="0" alt="Google" align="middle"></img></a>
<br/>
<input type="text" name="q" size="15" maxlength="255" value=""></input>
</td></tr>
<tr><td valign="top" align="left">
<input type="submit" name="sa" value="Search"></input>
<input type="hidden" name="client" value="pub-7044749527879330"></input>
<input type="hidden" name="forid" value="1"></input>
<input type="hidden" name="channel" value="4628523158"></input>
<input type="hidden" name="ie" value="ISO-8859-1"></input>
<input type="hidden" name="oe" value="ISO-8859-1"></input>
<input type="hidden" name="cof" value="GALT:#008000;GL:1;DIV:#336699;VLC:663399;AH:center;BGC:FFFFFF;LBGC:336699;ALC:0000FF;LC:0000FF;T:000000;GFNT:0000FF;GIMP:0000FF;FORID:1;"></input>
<input type="hidden" name="hl" value="en"></input>
</td></tr></table>
</form>
</center>
<!-- Search Google -->
<p align="center">
<a href="http://www.regnow.com/softsell/visitor.cgi?affiliate=44172&action=site&vendor=7522" target="_blank" title="Search Engine Builder - Build a search engine for your website!"><img border="0" src="images/SearchEngineBuilder.gif" alt="Search Engine Builder - Build a search engine for your website!"></a>
</p>
</td>
</tr>
<tr><td bgcolor="#CC0000" colspan="2" style="BORDER-TOP: rgb(102,102,102) 1px solid;"><small><font color="white">© page content copyright Brett Burridge 1998 - 2004.</font></small></td></tr>
</table>
<!--End ASPAlliance Document Article-->
</body>
</html>