The Flowers of San Antonio Park
Coen288 - Software Ethics
Winter 2004
Instructor: Dr. Neil R. Quinn Jr.
<% =time() %>
<% =date() %>
|
<%
Dim fso, f, f1, fc, fn, RecNum, i, rn
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("D:\wwwroot\images\SanAntonioPark")
Set fc = f.Files
Randomize
rn=Rnd
RecNum = CLng(Int((fc.count)*rn)) +1
i=0
For Each f1 in fc
i=i+1
if i=RecNum then fn = f1.name
next
%>
The Flowers of San Antonio Park |
Coen288 - Software Ethics |
|
Instructor: Dr. Neil R. Quinn Jr. |