string = UnMappath(pathname)
Example Usage:
  Returns the string "/New Folder/file.asp"
<% = UnMappath( server.mappath("/New Folder/file.asp") ) %>
ASP Source Code:
  <%
Private Function UnMappath(byVal pathname)
	dim tmp, strRoot
	strRoot = Server.Mappath("/")
	tmp = replace( lcase( pathname ), lcase( strRoot ), "" )
	tmp = replace( tmp, "\", "/" )
	UnMappath = tmp
End Function
%>