UnMappath Function:

The UnMappath function returns the virtual path of the absolute path specfied in the required argument pathname.

Syntax:
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
%>