Â
<%
Function getFilename(text)
text = Left(text,inStrRev(fl,”.”)-1)
getFilename = text
 xml:namespace prefix = o ns = “urn:schemas-microsoft-com:office:office” /??
End Function
Â
Function getExtn(text)
text = Left(text,inStr(text,”.”)-1)
getExtn = text
End Function
%>
[1]