Titelnavn i stedet for filnavn

Hej
Jeg har fundet dette udmærkede script, men jeg vil bare gerne have vist titlen på filen i stedet for filnavnet. Er der nogen der kan finde ud af det ?
<%
sti = "/"
ShowSub = sti & request("ShowSub")
ShowSubLink = request("ShowSub")
strPathInfo = ShowSub

strPhysicalPath = Server.MapPath(strPathInfo)

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPhysicalPath)

For each Folder in objFolder.SubFolders
If Left(Folder.Name,1)<>"_" Then
Response.Write "<a href=""" & CurFile & "?ShowSub=" & ShowSubLink & ""
Response.Write(Replace(Folder.Name, " ", "%20"))
response.write """>"
Response.Write Folder.Name
Response.Write "<br>"
End if
Next

Set objFSO = Nothing
%> </td>
  </tr>
</table>

<hr>

<table border="0" cellpadding="0" cellspacing="5" style="border-collapse: collapse"
bordercolor="#111111" width="800" id="AutoNumber1">
<%
'Response.Write ShowSub & "<br>"
'Response.Write strPhysicalPath
'Response.End

SiteName = request.servervariables("script_name")
strPhysicalPath = Server.MapPath(ShowSub)

If ShowSub > " " then
ShowSub = Replace(ShowSub, " ", "%20")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPhysicalPath)
Set objFolderContents = objFolder.Files
For Each objFileItem in objFolderContents
Response.write "<tr><td>"
if InStr(1,"mov", LCase(objFSO.GetExtensionName(objFileItem.name))) > 0 then

Response.Write "<a href=""show.asp?fil=" & ShowSub & "" & objFileItem.Name &""">" & objFileItem.Name & "</a>"
else
Response.Write "<a href=""" & ShowSub & "/" & objFileItem.Name &""">" & objFileItem.Name & "</a>"
End if
Response.write "</td></tr>"
Next
Set objFSO = Nothing
End if
%>