<% on error resume next %> dagimp.org - home of cheese grater masturbation - kelly clarkson is a crack whore
celebrities of the digital world - dagimp.org - wasting bandwidth since december 2000 //                                               view: 1024x768

[ Site Map ]

<% dim fso, f, dir, tempFile dir=server.MapPath(".") Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(dir) resfound=0 third=0 for each tempFile in f.Files fname=tempFile.Name if instr(lcase(tempFile.name),".htm") then if instr(lcase(tempFile.name),".html") then vfname=left(fname,len(fname)-5) if instr(lcase(tempFile.name),".htm") then vfname=left(fname,len(fname)-4) vfname=replace(vfname,"_"," ") vfname=ucase(left(vfname,1))+right(vfname,len(vfname)-1) resfound=resfound+1 third=third+1 %> <% if resfound=1 then %>

    <% end if %> <% if third=1 then %>
<% end if %> <% if third=4 then third=0 %> <% end if %> <% end if next %> <% if resfound>=1 then %>
<%=vfname%> 
<% end if %>