myurl

Les Cottrell. Last Update: 3 Mar 1997

/* MyURL
   Returns a URL to the script
*/
MyURL: PROCEDURE
   IF GETENV('SERVER_PORT')\='80' THEN 
        Port=':'GETENV('SERVER_PORT')
   ELSE Port=''
   Url='http://'GETENV('SERVER_NAME')||Port
   RETURN Url||GETENV('SCRIPT_NAME')