<%
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 %>
|