If Wp.Domain, '.net', STR_RIGHT 
   With Wp from RegExp Page_location 'Wp' then
 ...
Else
 ...
;  