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