<%
resfound=0
third=0
restext=""
for each tempFile in f.Files
fname=tempFile.Name
'vfname=left(fname,len(fname)-4)
vfname=fname
vfname=replace(vfname,".jpg","")
vfname=replace(vfname,".gif","")
vfname=replace(vfname,"_"," ")
vfname=replace(vfname,"-"," ")
vfname=ucase(left(vfname,1)) & right(vfname,len(vfname)-1)
if instr(lcase(tempFile.name),".jpg") or instr(lcase(tempFile.name),".gif") then
' restext=restext+" "
restext="" & vfname & "" & " "
third=third+1
%>
<% if third=1 then %>
<% end if %>
<%=restext%> |
<%
if third=4 then
third=0
%>
<% end if %>
<%
end if
next
%>
|