<%
Sub writeCRList
Dim fs, fo, fc, csrc, ffcount, i, j, f, fn, rots ()
Set fs = CreateObject("Scripting.FileSystemObject")
csrc = "c:\INetPub\WWWRoot\akasofu\singles\"
Set fo = fs.GetFolder(csrc)
Set fc = fo.Files
ffcount = CInt (fc.Count)
ReDim rots (ffcount)
i = 0
for each f in fc
fn = CStr (f.Name)
k = InStr (1, fn, "CR")
j = InStr (1, fn, ".GIF")
if j > 0 And k = 1 then
rots (i) = Mid(fn,3,4)
i = i + 1
End If
next
For j = 0 To i - 1
Response.Write ("" & vbCrLf)
next
End Sub
%>
Use the Ctrl and Shift keys to select more than one rotation at a time.