<%@ Language=VBScript %> Save URL
<% strUrl=request("url") strUrl=Replace(strUrl,"$","+") strUrl=Replace(strUrl," ","%20") strUrl=Replace(strUrl,"//","/") strUrl=Replace(strUrl,"./shared","http://fdp.nu/shared") Rows = 1 Cols = Len(strUrl) if Cols > 50 then rows = int(cols / 50) + 1 Cols = 50 + 50 ' save space end if %>