<%

Function getFilename(text)

text = Left(text,inStrRev(fl,".")-1)

getFilename = text

End Function

Function getExtn(text)

text = Left(text,inStr(text,".")-1)

getExtn = text

End Function

%>

[1]