Skriva ut filnamn utan filändelse

Hej jag har jätte stressigt med en med en sak och hinner inte klura på det så nån av er kanske har ett snabbt och bra svar.

Jag listar ett antal filer med hjälp av ett asp-script men jag vill inte att filändelsen ska synnas. Hur gör jag?

så här ser min kod ut:

 <%
If Request.QueryString("path") = "" Then
StartMapp = "d:\clients\testsite.se\wwwroot\ljufiler\ivr"
StartMappUrl = "http://www.testsite.se/ljudfiler\ivr"

Else

StartMapp = Request.QueryString("path")
StartMappUrl = Request.QueryString("url")

End If

Set filsystemobjekt = CreateObject("Scripting.FileSystemObject")
Set folder = filsystemobjekt.GetFolder(StartMapp)
Set filer = folder.Files 
Set underkataloger = folder.SubFolders 

For Each folder in underkataloger

If folder.Attributes < 50 then
%>
        <table border="0" width="500">
          <tr>
            <td width="29%" bgcolor="#999999"><font face="Verdana"><strong>IVR</strong></font></td>
       
      </tr>
      <tr>
            <td width="29%" bgcolor="#FFFFFF"><strong><small><small><font face="Verdana"><img src="../bilder/folder.gif" align="absmiddle" WIDTH="15" HEIGHT="13"> 
              <% Response.Write "<a href=index.asp?url=" & StartMappUrl & "/" & folder.name & "&path="  & StartMapp & "\" & folder.name &  ">" & folder.name & "</a> <br>" %> </font></small></small></strong></td>
        </tr>
<%
end if
Next  
%>
<%
For Each folder in filer

' Nedan kontrollerar vi så att det inte visas några filer med konstiga attribut

If folder.Attributes < 50 then
%>
      <tr>
            <td width="29%" bgcolor="#FFFFFF"><small><small><font face="Verdana"> 
              &nbsp; 
              <% Response.Write "<a href=" & StartMappUrl & "/" & folder.name &  ">" & folder.name & "</a> <br>" %> </font></small></small></td>
       
      </tr>
	  </table>
<%
end if
Next  

Set filsystemobjekt = Nothing
Set folder = Nothing
Set filer = Nothing
Set underkataloger = Nothing

Tack på förhand
Andreas