<%@ LANGUAGE="VBSCRIPT" %> <% option explicit %> <% Function ShowFileList(folderspec) Dim fso, f, f1, fc, s, col, piccount col=0 piccount=0 Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(folderspec) Set fc = f.Files %> 2004 Rally@Texas Pictures

Rally@Texas 2004 Pictures

All pictures are Copyright © 1997-<%= Year(date()) %> Texas Rally Committee, Inc. All rights reserved.
Note: Pictures are still being uploaded and you may experience errors displaying the full size image. Please retry your request after a couple of hours. <% For Each f1 in fc If (left(f1.name,2)="s_" and right(f1.name,4)=LCase(".jpg")) Then 'response.Write ("debug:"&left(f1.name,2)&"
") ' If LCase(Right(f1.name,4))=".jpg" Then piccount=piccount+1 col=col+1 %> <% If col=8 Then col=0 %> <% End If End If Next ShowFileList = s %>
" Target="_blank">" ALT="Click To Enlarge" Border=1 Width=96 Height=72>
Picture count=<% =piccount %>

<% End Function ShowFileList("//nawinfs02/home/users/web/b346/rh.rallytexas\2004Pictures") %>